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ABSTRACT 


The  Division  Map  Exercise  (DIME)  is  a  comprehensive,  computer-assisted  war 
game  designed  to  portray  the  significant  aspects  of  Air-Land  Battle 
operational  doctrine  for  the  Army's  primary  division  strike  force 
structures.  It  was  developed  in  response  to  a  need  for  a  quick-running  low 
resolution  battle  simulation  with  which  to  address  critical  analytical 
combat  development  questions.  Using  a  map  board,  a  set  of  computer 
algorithms  and  manual  rules,  DIME  portrays  the  important  aspects  of  the 
modern  battlefield  which  must  be  considered  in  the  context  of  the  Air-Land 
Battle.  These  include  ground  combat,  air  operations  and  air  defense, 
maneuver,  command  and  control,  chemical  effects  and  logistics. 


The  DIME  combat  model  documentation  consists  of  three  volumes.  This  volume 
is  Volume  II,  DIME  Documentation/Model.  The  other  volumes  are  Volume  I, 
Game  Protocol,  and  Volume  III,  Classified  Data  Base  and  Data  Description. 
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CHAPTER  1 


MODEL  OVERVIEW 


I.  BACKGROUND  AND  PURPOSE. 

A.  One  of  the  roles  of  the  Combined  Arms  Operations  Research  Activity 
(CAORA)  in  Army  analysis  is  to  determine  the  effectiveness  of  tactical  and 
doctrinal  innovations  for  corps  and  division-level  forces.  In  performing 
this  role,  CAORA  is  often  required  to  develop  division-level  combat 
simulations  or  war  games  to  be  used  as  study  tools.  In  December  1982,  the 
Deputy  Undersecretary  of  the  Army  for  Operations  Research  (DUSA/OR)  office 
requested  that  CAORA  build  a  division-level  war  game  to  be  used  in  the 
effectiveness  evaluation  of  the  High  Technology  Light  Division  (HTLD) .  The 
game  was  to  be  used  in  a  study  comparing  HTLD  and  a  conventional  light 
infantry  division. 

The  design  criteria  for  the  war  game  were: 

(1)  The  model  must  fairly  represent  the  ability  of  HTLD  to  execute 
the  innovative  tactics  and  maneuverability  associated  with  the  division's 
advanced  equipment  and  organizational  structure. 

(2)  The  game  should  be  "transportable"  so  it  can  be  moved  to  Ft. 
Lewis  for  play  by  HTLD  personnel. 

(3)  The  game  should  play  six  hours  of  division  combat  to  include 
resupply  within  one  8-hour  working  day. 

The  Division  Map  Exercise  (DIME)  was  the  result  of  an  eight-month  software 
development  effort  by  CAORA.  It  was  completed  in  October  1983  and  used  as 
CAORA' s  principal  wargaming  tool  to  evaluate  the  High  Technology  Light 
Division. 

B.  This  document  is  a  programmer's  manual  for  DIME.  It  contains  a 
general  description  of  the  play  of  the  war  game  (a  complete  description  can 
be  found  in  the  DIME  Volume  I,  Game  Protocol)  and  a  list  of  the  hardware 
necessary  to  run  the  game.  This  manual  also  contains  the  methodology  used 
in  the  combat  simulation  and  software  documentation  to  include  logic/data 
flows,  variable  descriptions  and  program  listings. 

C.  This  volume  is  organized  into  11  chapters.  This  chapter  contains  a 
description  of  the  overall  model  structure,  the  unit  status  file 
("UNITFILE") ,  and  the  computer  hardware  necessary  to  operate  the  model. 
Chapters  2  through  11  contain  documentation  for  the  programs  forming  the 
DIME  software  system. 
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2- 


DIME  OVERVIEW. 


A.  The  Division  Map  Exercise  (DIME)  is  a  computer-assisted  map 
exercise  representing  forces  of  up  to  a  Blue  Division  engaging  a  Red  Army. 
The  location,  movement,  and  deployment  of  the  forces  is  represented  by  unit 
symbols  placed  on  a  1:50,000  map.  The  model  is  ideally  structured  for  units 
of  Blue  Battalions  and  Red  Regiments.  However,  units  to  the  resolution  of 
brigade  command  posts  and  brigade  fuel /ammunition  (POL/ AMMO)  dumps  can  also 
be  accommodated  in  the  model.  Red  and  Blue  gamers  are  required  to  plan  the 
distribution  of  ammunition  and  POL  to  all  units  for  a  six-hour  period.  They 
also  maneuver  their  forces  and  structure  the  battles  initiated  during  the 
six-hour  period.  The  DIME  model  uses  a  set  of  computerized  attrition  and 
detection  algorithms  to  determine  elements  surviving  unit  engagements. 
Likewise,  resupply  algorithms  are  used  to  maintain  the  current  levels  of 
ammunition  and  POL  available  to  the  units. 

B.  The  structure  of  the  model  is  shown  in  Figure  1-1.  The  DIME  model 
consists  of  a  set  of  BASIC  software  programs  representing  each  functional 
aspect  of  the  division  battle.  These  programs  operate  independently, 
interacting  only  through  a  common  unit  status  file  containing  one  record  for 
each  unit.  The  programs  are  also  supported  by  random  access  files 
containing  weapon  effects  data  (e.g. ,  probability  of  kill,  movement  rates, 
etc.).  The  DIME  programs  are  accessed  from  a  menu-driven  executive 
controller  program  shown  in  Figure  1-4  of  this  chapter.  The  normal  play  of 
six  hours  of  division  combat  requires  use  of  the  programs  in  the  following 
order: 


(1)  The  game  initialization  program  (PI).  At  the  beginning  of  each 
six-hour  gaming  period,  the  user  may  update  any  of  the  records  on  the  unit 
status  file  ("UNITFILE").  It  is  often  necessary  to  change  a  unit's  mission, 
resupply  its  ammunition  and  POL,  and  cross-attach  or  add  combat  elements  to 
the  unit.  This  is  done  with  the  menu-driven  game  initialization  program 
(PI).  If  it  is  necessary  to  resupply  a  unit,  this  program  must  be  run 
before  the  logistic  support  program  (P2). 

(2)  The  logistic  support  program  (P2).  This  program  also  interacts 
with  the  "UNITFILE"  to  disperse  the  ammunition  and  POL  available  for  use  by 
each  unit  during  the  six-hour  gaming  period.  The  quantities  resupplied  to 
each  unit  (specified  during  the  running  of  PI)  are  moved  into  an  "available 
for  consumption"  status  (see  entries  131  through  133  on  the  "UNITFILE"). 
The  logistics  support  program  (P2)  must  be  run  after  PI  and  prior  to  any 
other  DIME  programs.  If  P2  is  not  run,  available  ammunition  and  POL  will 
not  be  placed  in  the  proper  "UNITFILE"  entries  and  the  artillery,  air 
defense,  and  direct  fire  systems  will  not  fire  in  the  DIME  combat  programs 
(P3  and  P4) . 
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Figure  l-l.  DIME  program  structure. 
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(3)  The  air  attack/air  defease  program  (P3).  This  program  calculates 
the  losses  to  both  air  and  ground  elements  for  fixed-wing  air  attacks  on  the 
DIME  units.  The  program  also  provides  losses  to  both  helicopters  and  fixed- 
wing  aircraft  when  air  defense  (AD)  units  are  inadvertently  overflown  during 
ingress/egress  to  a  target.  The  program  must  be  run  once  for  each 
air/ground  attack  that  occurs  during  the  six-  hour  period.  These  runs 
should  occur  before  ground  combat  sectors  are  played.  The  model  outputs 
element  losses  in  both  hard  copy  for  game  use  and  updates  the  DIME 
"UNITFILE".  The  model  also  updates  air  defense  ammunition  consumption  on 
the  unit  status  file. 

(4)  The  ground  combat  program  (P4).  This  program  calculates  losses 
to  helicopters  and  ground  elements  resulting  from  ground  combat  engagements 
during  the  six-hour  gaming  period.  The  program  requires  as  input  those 
units  engaged  in  combat  plus  a  set  of  parameters  describing  Red  and  Blue 
command  decisions  influencing  the  battle;  e.g.,  opening  range  for  artillery 
and  direct  fire  systems  and  break  ranges  for  potential  overrun  situations. 
The  ground  combat  module  must  be  executed  for  each  sector  battle  that 
occurs  during  the  six-hour  gaming  period.  The  model  outputs  a  hard  copy  of 
each  battle  history  containing  half-hour  updates  on  force  movements, 
helicopter  attack  status,  and  indirect  fire  tonnage  consumptions.  A 
killer/victim  scoreboard  is  output  at  the  end  of  the  battle,  summarizing 
losses  to  each  force.  The  module  also  updates  the  "UNITFILE"  with  element 
losses  and  ammunition  consumption  for  the  engaging  units. 

(5)  The  chemical  combat  program  (P5).  The  chemical  program 
calculates  losses  to  exposed  forces  attacked  with  artillery-delivered 
chemical  munitions.  The  losses  represent  those  incurred  during  the  first 
15  seconds  of  chemical  attack  while  the  Unit  is  moving  into  a  mission- 
oriented  protective  posture  (MOPP)  status.  The  program  posts  losses  to  the 
"UNITFILE"  and  updates  the  MOPP  status  of  the  unit.  The  chemical  program 
is  included  in  this  manual  for  the  sake  of  completeness.  At  the  writing  of 
this  documentation,  it  has  not  been  debugged  nor  used  in  a  CAORA  study. 
Anyone  desiring  to  use  this  program  is  encouraged  to  contact  one  of  the 
authors  prior  to  its  use. 

(6)  The  detection  program  (P7).  The  detection  program  provides  a 
list  of  detected  units  to  both  Red  and  Blue  commanders.  The  list  actually 
represents  the  commander's  intelligence  map  and  shows  units  on  the  opposing 
force  as  either: 

(a)  not  detected, 

(b)  detected  but  not  identified  as  to  mission  and  composition, 

(c)  identified  mission  and  composition,  or 

(d)  lost,  previously  detected,  but  friendly  sensors  unable  to 
track. 

Although  DIME  is  played  as  an  open  game,  it  is  structured  for  closed  play 
with  the  detection  lists  representing  the  current  status  of  the  friendly 
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commander's  knowledge  of  enemy  positions.  These  lists  are  used  by  the 
gamers  to  plan  attacks  on  enemy  units  in  the  next  six  hours  and  to  justify 
placing  units  in  defensive  missions  when  detected  enemy  units  are 
approaching.  The  detection  lists  are  also  used  by  DIME  controllers  in 
selecting  "not  detected"  enemy  units  which  are  overflown  by  friendly  forces 
during  an  air  strike.  The  units  are  input  to  the  air  attack  module  (P3) 
for  overflight  and  possible  air  interdiction  by  overflown  air  defense 
elements. 

(7)  The  unit  status  report  (P8).  Following  the  running  of  all  ground 
combat  and  air  strike  battles  for  current  six  hours  of  combat,  preparations 
begin  for  running  the  next  six  hours  of  combat.  This  process  involves  DIME 
programs  P8,  P7,  and  P9.  The  unit  status  report  (P8)  provides  a  status 
listing  of  all  units  currently  in  play.  The  listing  includes  the  number  of 
elements  currently  in  the  unit,  ammunition  and  POL  currently  available  to 
the  unit,  and  the  current  mission  of  the  unit.  The  report  is  used  by  the 
gamers  to  determine  which  units  should  be  resupplied  with  both  equipment 
and  ammunition/POL.  P8  also  generates  game  forms  for  the  resupply  of  each 
unit.  These  forms  are  used  as  input  documents  to  PI.  The  unit  status 
report  also  generates  a  "Game  Run  Summary"  showing  total  losses  of 
equipment  across  the  division  for  the  preceding  six-hour  period. 

(8)  The  movement  program  (P9).  The  movement  program  calculates  the 
time  required  to  move  units  across  several  types  of  terrain  or  by  helicopter 
to  deployed  positions  specified  by  the  gamers.  Note  that  the  movement 
represented  by  this  program  is  of  a  strategic  nature  rather  than  the 
maneuver  that  occurs  during  combat  (P4  calculates  movement  times  during 
combat).  Inputs  to  the  model  consist  of  the  unit  being  moved  and  the 
distance  it  mu3t  travel  to  reach  final  deployment.  Output  from  the  model 
consists  of  the  arrival  time  of  the  first  element  in  the  unit  and  the 
arrival  time  of  the  last  element.  In  cases  where  the  helicopters  have  been 
used  to  aid  in  movement  of  equipment  and  personnel,  output  also  contains 
the  number  of  helicopter  sorties  flown. 

(9)  The  command  and  control  program  (P10).  This  program  produces  the 
time  required  for  the  command  element  to  send  a  message  changing  the  mission 
of  a  subordinate  unit  and  for  the  subordinate  unit  to  execute  the  mission 
change.  Inputs  to  the  program  consist  of  the  level  of  the  command  unit,  the 
level  of  the  subordinate  unit,  and  the  desired  and  current  mission  of  the 
subordinate  unit.  Output  is  the  time  to  affect  the  mission  change.  The 
command  and  communication  nets  are  not  explicitly  modeled,  but  rather,  the 
program  uses  a  simple  "table  look-up"  structure. 
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3.  THE  DIME  "UNITFILE". 

A.  The  DIME  "UNITFILE"  is  central  to  the  operation  of  all  programs. 
The  model  currently  will  support  191  Blue  units  (the  first  191  records  on 
the  file)  and  209  Red  units.  Each  unit  record  contains  150  entries 
describing  the  number  of  weapon  systems  in  the  unit,  its  amraunition/POL 
status,  and  its  current  mission.  Table  1-1  provides  a  brief  description  of 
each  entry  in  the  "UNITFILE". 

B.  Elements  1  -  70  in  the  "UNITFILE"  contain  the  weapons  list  for  the 
unit.  The  structure  of  this  list  requires  that  systems  performing  certain 
battlefield  functions  be  placed  in  specific  positions  on  this  list.  Table 
1-2  shows  these  system  functions  for  each  position  for  both  the  Blue  and 
Red  units.  Typical  systems  are  shown  in  Table  1-3. 

(1)  Direct  fire  platforms.  Entries  1-20  (Table  1-2)  for  both  Red 
and  Blue  contain  the  number  of  elements  which  are  direct  fire  platforms. 
These  locations  are  interrogated  by  the  combat  program  (P4)  for  play  in  the 
direct  fire  portion  of  the  battle.  Note  that  locations  16  -  20  also  serve 
as  infantry  carriers.  P4  "mounts"  and  "dismounts"  infantry  personnel  into 
these  locations  depending  on  unit  mission  and  proximity  to  the  enemy  force. 

(2)  Artillery.  The  number  of  artillery  elements  are  held  in 
locations  21  -  27.  DIME  plays  only  one  caliber  of  artillery  for  Blue  and  one 
for  Red. 

(3)  Mortars.  Entries  28  -  31  contain  the  number  of  mortars  available 
to  both  Blue  and  Red  units. 

(4)  MLRS/MRL.  The  number  of  multiple  launch  rocket  systems  (MLRS) 
for  a  Blue  unit  and  the  number  of  multiple  rocket  launchers  (MRL)  for  a  Red 
unit  are  contained  in  entries  32  -  35. 

(5)  Infantry  personnel.  Positions  36  -  40  contains  the  infantry 
personnel  which  serve  as  the  pool  for  mounting/dismounting  vehicles  in 
locations  16  -  20.  Other  small  arms  are  located  in  positions  41  -  47. 
Infantry  personnel  are  allowed  to  participate  in  the  battle  only  during  the 
last  500  meters  to  closure. 

(6)  Air  defense  systems.  Air  defense  systems  must  be  placed  in 
entries  48  -  54.  Only  hand-held  type  systems  can  be  placed  in  entries  53  - 
54,  while  entries  48  -  52  contain  only  vehicular  type  systems. 

(7)  Tank  trucks.  The  number  of  fuel  trucks  located  in  entry  55  and 
tank  trucks  in  entry  56  are  used  by  the  logistics  program  (P2)  to  calculate 
fuel  hauling  capacity.  Water  trucks  are  in  position  57. 

(8)  Cargo  trucks.  The  number  of  cargo  trucks  located  in  entry  58  and 
59  are  used  by  the  logistics  program  to  calculate  the  cargo  hauling  capacity 
of  the  unit. 
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Table  1-1.  The  DIME  "UNITFILE"  structure. 

The  "UNITFILE"  for  the  Division  Map  Exercise  (DIME)  consists  of  400  records, 
each  containing  150  elements.  The  assignment  of  records  consist  of: 


1 

records 

1  -  191  Blue  units 

records 

192  -  400  Red  units. 

1 

Elements  are 

assigned  to  each  unit 

record  as  follows: 

► 

Element 

number 

Description 

Default  value 

p 

1  -  70 

Weapons  list 

The  70  weapon  quantities  contained  in  the 
units  (see  Table  1-2). 

l 

71  -  74 

Vacant 

f 

75 

Major  mission 

1  =  Attack 

2  =  Defend 

3  =  Reserve/idle 

4  =  Move 


76 

Unit  size/echelon 

1  =  Blue  battalion/Red  regiment 

2  =  Blue  company/Red  battalion 

77 

Unit  M0PP  level 

1  =  Unit  not  in  M0PP 

2  »  Unit  in  M0PP 

78 

Unit  type  (X.Y) 

X  =  Player 

1  =  Blue  ' 

2  =  Red 


Y  =  Unit  type 

0  =  Combat  unit 

1  =  Artillery  unit 

2  =  Air  defense  (ADA)  unit 

3  -  Attack  helicopter  ground/forward 

rearming  and  refueling  point 
(FARP) 

4  ■  Commandpost/headquarters 

(CP/HQ) 

5  *  Engineer  unit 

6  =  POL/ AMMO  supply  point 

7  =  Maintenance  point 

8  =  Surface-to-air  missile  (SAM)  site 

9  a  Communications/radar/electronic 

warfare  (EW)  site 
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Table  1-1.  The  DIME  "UNITFILE"  structure  (continued). 

Element 

number  Description  Default  value 


79 

80 

81 

82 

83 


84 

85 

86 

87 


Unit  effectiveness  Percent  unit  effectiveness  as  a 

function  of  surviving  weapons 
and  personnel 

Percent  ADA  suppressed  XX  =  Vehicle  ADA  systems 

(XX. YY)  suppressed 

YY  =  Handheld  systems  suppressed 

Supporting  corps  ADA  unit 

Activity  code  Status  of  unit 

0  =  Not  active  in  game 
1  =  Active 

Mission  status  Represents  Blue/Red  mission 

during  current  6-hour  period 

MISSIONS: 

0  =  Meeting  Engagement 

1  *  Indirect  Fire 

2  =  Movement 

3  =  Frontal  Attack 

4  =  Envelopmental  Attack 

5  =  Delay 

6  =  Hasty  Defense 

7  =  Prepared  Defense 

8  =  Reserve/Rear  Area 

9  =  Ambush 

Cargo  trucks  alive  at  start 
of  turn 

Fuel  trucks  alive  at  start 
of  turn 

JP4  trucks  alive  at  start 
of  turn 

Vacant 
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Table  1-1.  The  DIME  "UNITFILE"  structure  (continued). 


Element 

number 

DescriDtion 

88 

Vacant 

89 

Sensor  status 

90 

Unit  fraction  covered  by 

sensor  group 

91 

Detection  status  (X.Y) 

Default  value 


X  =  POTA  zone  values  (1-5)  for 
sensor  (X,Y)  group  Y. 

Y  =  Sensor  group  (0-4)  detecting 
this  particular  unit. 

0  =  Not  covered 
1-3  =  Applicable  Blue/Red 
sensor  group 

4  *  Linear  FEBA-oriented 
sensor  array 

NOTE:  Default  for  sensor  status 
=  1.4 

POTA  =  probability  of  operational 
target  acquisition. 

FEBA  *  forward  edge  of  battle 
area. 


Value  from  0-1.0 


X  «=  Hours  left  until  redetected 
Y  =  Unit  status  with  respect  to 
detection  by  the  opposite 
commander 
0  =  Not  detected 

1  =  Detected  but  not 

verified 

2  =  Acquired/verified 

3  =  Lost 

Total  hours  this  target  has  been 
tracked  this  detection  period 


92 

Intelligence  status 

93  - 

94 

Vacant 

95  - 

100 

Enemy  sensors 
detecting  this  unit 

101 

Fuel  status  of  unit  vehicles 

102 

Fuel  status  of  helicopters 

Value  from  0-1.0 
Value  from  0-1.0 
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Table  1-1.  The  DIME  "UNITFILE"  structure  (continued). 


Element 

number 

Description 

Default  value 

103 

Fuel  on  tankers  (gallons) 

104 

JP4  on  tankers  (gallons) 

105 

Fuel  on  ground  (gallons) 

106 

JP4  on  ground  (gallons) 

107 

Fuel  use  profile 

108 

Fuel  consumed  (gallons) 

109 

JP4  consumed  (gallons) 

110 

Fuel  resupplied  (gallons) 

111 

JP4  resupplied  (gallons) 

112 

Fuel  dispensed  to  other  units 

113 

JP4  dispensed  to  other  units 

114 

Vacant 

115 

Helo  ammo  at  beginning  of  Cl 

116 

DF  at  beginning  of  Cl 

117 

IF  at  beginning  of  Cl 

118 

AD  at  beginning  of  Cl 

119 

Direct  fire  ammo  status 
(vehicles) 

Value  0-1.0 

120 

Indirect  fire  ammo  status 
(vehicles) 

Value  0-1.0 

121 

Air  defense  ammo  status 
(vehicles) 

Value  0-1.0 
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Table  1-1.  The  DIME  "UNITFILE"  structure  (continued). 

Element 

number 

Description 

Default  value 

122 

Helicopter  ammo  status 

Value 

0-1.0 

1 

123 

Ammo  on  cargo  vehicle, 
short  tons  (STONS) 

* 

124 

Distribution  of  cargo  by 

XXX  = 

DF  ammo  percent  (XXX  = 

p 

type  (XXX. YYY) 

YYY  = 

XX. XZ) 

IF  ammo  fraction 
(YYY  =  YY.Y%) 

125 

Ammo  on  ground  (STONS) 

t 

126 

Distribution  of  ground  ammo 

XXX  = 

DF  ammo  percent  (XXX  = 

by  type  (XXX. YYY) 

YYY  = 

XX. X%) 

IF  ammo  fraction 
(YYY. Y%) 

127 

DF  ammo  use  profile 

i 

128 

IF  ammo  use  profile 

129 

AD  ammo  use  profile 

130 

Helicopter  ammo  use  profile 

131 

DF  ammo  available  to  be  consumed 

132 

IF  ammo  available  to  be  consumed 

133 

AD  ammo  available  to  be  consumed 

134 

Helo  ammo  available  to  be  consumed 

135 

Ammo  resupplied  (STONS) 

136 

Ammo  resupply  profile 

XXX  = 

DF  ammo  percent  (XXX  = 

(XXX. YYY) 

YYY  = 

XX. X%) 

IF  ammo  fraction  (YYY  = 
YY.Y%) 

137 

Ammo  dispensed  to  other  units 

L 
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Table  1-1.  The  DIME  "UNITFILE"  structure  (concluded). 


Element 

number 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149  -  150 


Description  Default  value 

Dispensed  ammo  profile  XXX  =  DF  ammo  percent  (XXX  = 

XX. X%) 

(XXX. YYY)  YYY  =  IF’ammo  fraction  (YYY 

YY.YX) 

Cumulative  DF  ammo  consumed 
to  date 

Cumulative  IF  ammo  consumed 
to  date 

Cumulative  AD  ammo  consumed 
to  date 

Cumulative  helo  ammo  consumed 
to  date 

Fuel  consumed  to  date 
JP4  consumed  to  date 
Vacant 

KM  traveled  this  turn 
Fuel  left 
JP4  fuel  left 
Vacant 
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Table  1-2.  The  DIME  element  list  structure. 


Element 


Number 

Type 

1  - 

15 

Direct  Fire  Platform 

16  - 

20 

Direct  Fire  Platform  (Infantry  Carrier) 

21  - 

27 

Artillery 

28  - 

31 

Mortar 

32  - 

35 

MLR/MRL 

36  - 

40 

Small  Arms  (Infantry  for  DF  Carrier) 

41  - 

47 

Small  Arms 

48  - 

52 

ADA 

53  - 

54 

ADA  (Hana-held) 

55 

Fuel  Truck 

56 

JP4  Fuel  Truck 

57 

Water  Truck 

58 

Ammo  Truck 

59 

Non-ammo  Truck 

60  - 

61 

E/W  Truck 

62 

Mine  Clearing  Equipment 

63 

Obstacle  Clearing  Equipment 

64 

AVLB 

65 

Pontoon  Bridge 

66  - 

67 

Engineer  Equipment 

68  - 

70 

Material  Handling  Equipment 
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Table  1-3.  Example  of  weapon  lists  in  the  DIME  "UNITFILE". 


Element 


Number 

HTLD 

C-SERIES 

THREAT 

1 

LAV/ 2 5-TOW 

Ml 

T72 

2 

FAV/TOW 

M2 

Vacant 

3 

HMMWV/TOW 

M3 

BMP  81 

4 

FAV/40 

ITV 

Vacant 

5 

HMMWV/40 

HMMWV/TOW 

BFDM-2 

6 

Vacant 

HMMWV/40 

BRDM-AT 

7 

DRAGON 

DRAGON 

AT-* 

8 

Vacant 

Vacant 

ASU-85 

9 

Vacant 

Vacant 

BMD 

10 

Command  Vehicle 

Command  Vehicle 

Command  Vehicle 

11  -  15 

Vacant 

Vacant 

Vacant 

16 

Vacant 

Vacant 

BMP 

17 

Vacant 

Vacant 

BTR 

18  -  20 

Vacant 

Vacant 

Vacant 

21 

155MM 

155MM 

152MM 

22  -  27 

Vacant 

Vacant 

Vacant 

28 

107MM 

181MM 

120MM 

29  -  31 

Vacant 

Vacant 

Vacant 

32 

MLRS(T) 

MLRS(Sp) 

MRL 

33  -  35 

Vacant 

Vacant 

Vacant 

36 

Viper 

Viper 

RPG-16 

37  -  47 

Vacant 

Vacanc 

Vacant 

48 

VULCAN 

DIVAD 

XSU-X 

49 

ICHAP(T) 

ICHAP(Sp) 

SA-13 

50 

IHAWK 

IHAWK 

SA-8 

51  -  52 

Vacant 

Vacant 

Vacant 

53 

Stinger  Post 

Stinger  Post 

SA-14 

54 

Vacant 

Vacant 

Vacant 

55 

Fuel  Truck 

Fuel  Truck 

Fuel  Truck 

56  -  57 

Vacant 

Vacant 

Vacant 

58 

Cargo  Truck 

Cargo  Truck 

Cargo  Truck 

59  -  61 

Vacant 

Vacant 

Vacant 

62 

Sp.  Vehicle 

Sp.  Vehicle 

Sp.  Vehicle 

63  -  70 

Vacant 

Vacant 

Vacant 
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(9)  Special  vehicles.  The  number  of  special  vehicles  must  be  placed 
in  positions  60  -  70  of  the  "UNITFILE".  These  locations  are  reserved  for 
vehicles  that  support  combat  (i.e.  bridging  equipment,  communication  vans, 
mine  clearing  equipment)  but  are  not  usually  involved  in  direct  combat. 
These  vehicles  are  subject  to  attrition  from  artillery,  helicopters,  and 
direct  fire  systems.  The  importance  of  maintaining  the  functional  positions 
of  each  system  on  the  "UNITFILE"  cannot  be  overemphasized.  The  DIME 
programs  have  been  constructed  to  access  "expected"  systems  in  these 
functional  positions  to  perform  these  roles  in  battle. 

C.  All  DIME  programs  except  command  and  control  (P10)  and  movement  (P9) 
interface  with  the  "UNITFILE"  records  at  the  time  of  this  writing.  Movement 
(P9)  as  shown  in  Table  1-4  is  capable  of  accessing  the  "UNITFILE"  but  is  not 
currently  operational.  Table  1-4  lists  the  programs  showing  the  elements  on 
the  unit  record  serving  as  program  input  and  the  elements  which  are  updated 
by  the  program  and  returned  as  output  to  the  "UNITFILE". 


4.  THE  DIME  CONTROLLER. 

A.  The  DIME  controller  (P0)  serves  as  the  menu-driven  executive 
routine  calling  each  of  the  DIME  programs.  The  general  logic  flow  of  the 
controller  is  quite  simple  and  is  shown  in  Figure  1-2.  The  user  is  required 
to  input  the  desired  program  from  the  DIME  menu  shown  in  Figure  1-  3.  The 
chosen  program  is  loaded  and  execution  begins.  Following  execution  of  the 
program,  control  is  returned  to  the  menu  for  other  program  selections.  If 
the  QUIT  option  is  invoked  from  the  menu,  the  executive  controller  closes 
all  files  and  terminates  operations. 

B.  A  listing  of  the  BASIC  code  for  the  DIME  executive  controller  is 
found  in  Figure  1-4. 


5.  THE  DIME  HARDWARE. 

The  DIME  system  was  built  for  operation  on  a  Hewlett  Packard  HP  9816. 
The  original  configuration  consisted  of  the  9816,  a  printer,  one  floppy  disk 
and  a  Winchester  disk.  The  HP  extended  BASIC  is  also  required.  Table  1-5 
contains  a  detailed  listing  of  the  hardware  necessary  to  execute  the 
program.  Subsequent  versions  of  the  DIME  combat  program  (P4),  currently 
available  at  CAORA,  have  required  expanded  memory  hardware.  This  has  also 
been  listed  in  the  table  under  expanded  hardware  requirements. 


1-15 


Chemical  combat  program  1-70,  75,  77,  1-70,  77  Program  calculates  losses  to  weapons  on  "UNITFILE" 
(P5)  78  (1-70)  from  chemical  attack  based  on  mission  (75), 

unit  type  (78)  and  MOPP  level  (77).  Updated 
weapons  lists  (1-70)  and  MOPP  level  (77)  are 
output  to  "UNITFILE". 
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DISPLAY  MENU 
REQUESTING  USER  INPUT 
FOR  DESIRED  PROGRAM 


•Game 


Figure 


NO 


WAS  PROGRAM 
SELECTED? 


\ 

YES 

/ 

LOAD  AND 

EXECUTE 

SELECTED  PROGRAM 

UNIT  STATUS  UPDATE 

DETECTION 

LOGISTICS 

MOVEMENT 

AIR  ATTACK 

STATUS  REPORT 

GROUND  COMBAT 

COMMAND/CONTROL 

CHEMICAL  COMBAT 

*GAME  POST-PROCESSOR 

post-processor  not  currently  used. 


1-2.  The  DIME  Executive  Controller  Logic  Flow  is  menu  driven 
allowing  the  user  to  select  any  module  for  use. 


DDDDDDD 

III 

M 

M 

EEEEEEEEE 

D  D 

I 

MM 

MM 

E 

D  D 

I 

M  M 

M  M 

E 

D  D 
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M  MMMM  M 

EEEEEE 

D  D 

I 

M 
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D  D 

I 

M 

M 

E 

D  D 

I 

M 

M 

E 

DDDDDOD 

III 

M 

M 

EEEEEEEEE 

PROGRAM  MENU 

<  GAME 

VERSION  ) 

1. 

DATA  OPERATIONS 

7. 

DETECTION/TARGET  LIST 

2. 

LOGISTICS 

8. 

CONSOL I DATE /TURN  SUMMARY 

3. 

AIR  ATTACK/AIR 

DEFENSE 

9. 

MOVEMENT  CALCULATOR 

4. 

GROUND  COMBAT 

10. 

COMMAND /CONTROL  CALCULATOR 

5. 

CHEMICAL  COMBAT 

11. 

GAME 

POST  PROCESSOR  * 

6. 

UNIT  LOSS  ASSESSMENT 

12. 

QUIT1 

1  1  1  1  1  1  1  1  1  1  1  1  f  1  1  1 

*  GAME  POST  PROCESSOR  not  currently  used. 


Figure  1-3.  DIME  input  menu. 
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C  l  t.A  (A 


10  ' 1 !  "DIME"  IS  THE  MENU  CONTROL  PROGRAM  FOR  THE  DIVISION  MAP  EXERCISE 
20  1  (DIME).  DIME  WAS  DEVELOPED  BY  THE  OPNS  ANALYSIS  BRANCH  OF  THE 

70  1  COMBINED  ARMS  OPERATIONS  RESEARCH  ACTIVITY.  THE  CHIEF  OF  THE 

40  1  PROJECT  IS  MR.  H.  KENT  PICKETT.  A/V  552-4613.  THE  PROGRAM  LAST 

50  •  CHANGED  ON  15  SEPT  S3 

60  1 

70  DlsK*=": 9134, 704,0" 

80  PRINTER  IS  1 
90  PRINT  USING  "i?,#  " 

100  PRINT  TABXY ( 1 , 1 ), TAB ( 17) , "DDDDDDD  III  M  M  EEEEEEEEE" 

110  PRINT  TAB (17), "D  D  I  MM  MM  E" 

120  PRINT  T AB ( 1 7 ) , " D  D  I  M  M  M  M  E" 

130  PRINT  T AB  ( 1 7 >  ,  "D  D  I  M  MMMM  M  EEEEEE" 

140  PRINT  TAB ( 17) , "D  DIM  ME" 

150  PRINT  T AB ( 17 ) ,  "  D  DIM  M_  E" 

160  PRINT  TAB (17) , "D  DIM  ME" 

170  PRINT  TAB( 17) . "DDDDDDD  III  M  M  EEEEEEEEE" 

180  PRINT 

190  PRINT  TAB ( 24 ), "PROGRAM  MENU  (  CONTRACT  BENCH  >" 

200  PRINT 

210  PRINT  "1.  DATA  OPERATIONS  " , TAB (40) , "7.  DETECTION/TARGET  LIST" 

220  PRINT  "2.  LOGISTICS  " , TAB (40) , "8.  CONSOLIDATE/TURN  SUMMARY" 

230  PRINT  "3.  AIR  ATTACK/AIR  DEFENSE” , TAB (40) , "9.  MOVEMENT  CALCULATOR" 

240  PRINT  "4.  GROUND  COMBAT" , TAB (40) ," 10.  COMMAND /CONTROL  CALCULATOR" 

250  PRINT  "5.  CHEMICAL  COMBAT" , TAB (40) 1 1 .  GAME  POST  PROCESSOR" 

260  PRINT  "6.  UNIT  LOSS  ASSESSMENT" , TAB (40) ," 12.  QUIT1  !  !  '  !  1  '  '  '  !  •  '  !  1  (  '  1  >" 

270  INPUT  "TYPE  DESIRED  PROGRAM  NUMBER,  PRESS  ENTER:  "  ,  SS 
280  IF  S*=" 12"  THEN  GOTO  Halt 
300  LOAD  "NEW  P"S<SSS«Di  sk* 

10  Halt:  ( 

20  PRINT  USING  "I?,#" 

30  END 


Figure  1-4.  Executive  controller  code 


Table  1-5.  Hardware  configuration  for  the  DIME  model. 


Hardware  Description 
HP9816  Computer 


HP9121  D/S  Disc  Memory 


HP9134A  Disc  Memory 


HP82905B  Printer 


HP9888A  Bus  Expander 


The  HP9816  computer  is  a  member  of  the  HP 
series  200  family  of  personal  technical 
computers.  It  supports  a  number  of 
programming  languages  and  operating  systems, 
and  has  the  capacity  to  link  up  to  diverse 
peripheral  devices. 

The  HP9121  D/S  Disc  memories  are  random 
access  data  storage  devices.  The  HP  9121S 
contains  a  single  3  1/2-inch  disc  drive 
providing  286.72  Kbytes  of  storage  capacity. 
The  HP9121D  contains  two  3  1/2-inch  disc 
drives  providing  a  total  storage  capacity  of 
573.44  Kbytes. 

The  HP9134A  disc  memory  is  a  random  access 
data  storage  device  containing  a  5  1/4-inch 
Winchester  disc  drive  providing  4.6  Mbytes  of 
storage  capacity. 

The  HP82905B  Printer  is  a  general  purpose 
printer  featuring  80  character  per  second 
bi-directional  printing.  The  printer 
utilizes  a  9x9  dot  matrix  character  format. 
It  prints  in  40,  66,  80,  or  132  columns.  You 

can  choose  among  normal,  expanded, 
compressed,  or  compressed  expanded 
characters.  Normal  size  character  may  also 
be  emphasized.  The  printer  has  a  graphics 
mode  which  has  the  ability  to  print 
illustrations,  charts,  graphs,  block  letters, 
etc.  using  patterns  of  dots  under  software 
control.  Functions  such  as  line  spacing, 
form  length,  and  skip  over  perforation  are 
also  under  software  control. 

The  HP  9888A  Bus  expander  allows  for 
connecting  up  to  eight  interface  cards  and 
eight  memory  cards  or  up  to  16  memory  cards 
to  HP  Series  200  Personal  Technical 
Computers,  using  an  1/0  slot  in  the  computer. 
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CHAPTER  2 

GAME  INITIALIZATION 


1.  PURPOSE. 

The  purpose  of  the  DIME  game  initialization  program  (PI)  is  to  create  and 
edit  the  unit  status  file  ("UNITFILE").  Listings  of  the  "UNITFILE"  may  also 
be  obtained  through  this  program,  along  with  many  other  options. 

2.  GENERAL. 

This  program  deals  with  a  400-record  "UNITFILE'*.  Records  1—191  are  reserved 
for  Blue  units  and  records  192-400  are  reserved  for  Red  units.  The  program 
consists  of  10  subroutines  that  run  from  the  menu  which  appears  at  the 
beginning  of  the  program  (see  Figure  2-1). 

3.  DATA  FLOW. 

A.  Input  data.  Data  for  this  program  comes  through  two  means,  data 
files  and  input  data  (see  Figure  2-2). 

(1)  Data  files.  All  data  files  are  external  to  the  program  and  stored 
on  the  hard  disk.  These  consist  of  the  "UNITFILE",  the  table  of 
organization/equipment  ("TOEFILE"),  the  "NAMEFILE",  the  ammunition 
capacities  file,  the  fuel  capacities  file,  system  effectiveness  files  and 
weapon  type  files. 

(2)  Input  data.  Data  is  input  to  this  program  by  means  of  the  unit 
input  sheets  and  the  gamer/staff  worksheets. 

(a)  The  unit  input  sheets  are  used  to  create  an  original 
"UNITFILE."  Figure  2-3  displays  the  unit  input  sheet.  Option  12  ("Enter 
initial  unit  status")  should  be  chosen  in  order  to  input  these  sheets. 

1*  Unit  #.  Represents  the  record  number  for  the  "NAMEFILE" 
being  created. 

2_.  Side.  A  number  representing  the  side  (Blue  =  1,  Red  =  2). 
This  number  is  stored  in  the  "TOEFILE"  (position  72)  as  a  whole  number. 
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UNIT  INPUT  SHEET 


**  UNIT  TYPE  ** 


0:  COMBAT 
1:  ARTILLERY 
2:  AIR  DEFENSE 
3:  FARRP 


5:  ENGINEER. 

6:  SUPPLY 
7:  MAINTENANCE  PT 
8:  BRIDGE 


4:  COMMAND  POST  9:  COM/EW  SITE 


UNIT  NO. 


SIDE  UNIT  TYPE 


UNIT  NAME 


STARTEX  SYSTEM  QTY 


1 

-1 

1“ 

~ 

1“ 

TT 

~T 

TT 

~9~ 

"To 

11 

TT 

IT" 

Sr-* 

L5“ 

w 

TT 

TeF 

19~ 

~20 

21 

22~ 

23“ 

^TT^ 

25“ 

26 

TT 

28“ 

TT 

"30 

31 

TT 

33“ 

34 

35“ 

36“ 

TT 

38“ 

TT 

“40 

41 

-1 

W 

43“ 

45“ 

46“ 

47“ 

48“ 

49“ 

“50 

51 

52“ 

53“ 

55“ 

56“ 

TT 

58“ 

59“ 

“60 

61 

62  63  64  65 

MUST  EQUAL  100% 

66 

67 

68 

69 

70 

**  ACTIVITY  CODE  ** 
0:  INACTIVE 

l_l 

A 

i_i  mi  mi  mi 

B  C  D  E 

l_l 

F 

1 _ 1 

G 

TT 

:i 

1:  ACTIVE 

A:  %  FUEL  ON  TANKERS 
B:  %  AMMO  ON  CARGO  VEHICLE 
C:  Z  DIRECT  FIRE  AMMO 
D:  Z  INDIRECT  FIRE  AMMO 
E:  Z  AIR  DEFENSE  AMMO 
F:  ACTIVITY  CODE 
G:  TACT  MISSION 
H:  ECHELON 


**  TACT  MISSION 
0:  MVMTN  TO  CONT 
1:  INDIRECT  FIRE 
2:  MOVEMENT 
3:  FRONTAL  ATTACK 
4:  ENV.  ATTACK 


** 

5:  DELAY 

6:  HASTY  DEFENSE 
7:  PREP.  DEFENSE 
8:  RESERVE/REAR 
9:  AMBUSH 


**  ECHELON  ** 

0:  BLUE  BATTALION/RED  REGIMENT 
1:  BLUE  COMPANY/RED  BATTALION 


Figure  2-3  Unit  input  sheet. 
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3.  Type.  A  number  representing  the  unit  type,  where: 

0  =  Combat  unit 

1  =  Artillery  unit 

2  =  Air  defense  unit 

3  *  Attack  helicopter  site/FARP 

4  =  Command  post/headquarters  (CP/HQ) 

5  =  Engineer  unit 

6  *  POL/AMMO  supply  unit 

7  =  Maintenance  point 

8  =  Surface-to-air  missile  (SAM)  site 

9  =  Communications/radar/electronic  warfare  (EW) 
site. 

The  unit  number  stored  in  the  "TOEFILE"  (position  72)  is  input  as  a 
"decimal"  number.  The  number  in  front  of  the  decimal  is  the  unit's  side, 
the  number  following  the  decimal  represents  the  unit's  type.  Some  examples 
of  position  in  the  "TOEFILE"  follow: 

1.3  represents  a  Blue  air  defense  unit 
1.8  represents  a  Blue  SAM  site 
2.5  represents  a  Red  engineer  unit 


4.  Name.  A  16  character  alphanumeric  string  which  represents 
the  unit  and  is  meaningful  to  the  gamers.  This  string  is  held  in  the 
"NAMEFILE". 

5_.  Input  Lines  1-7  are  used  to  input  the  actual  quantity  of 
70  weapon  elements  assigned  to  a  unit.  These  are  the  first  70  elements  of 
each  record  of  the  "UNITFILE".  These  represent  on-hand  quantities  as 
opposed  to  the  authorized  quantities  listed  in  the  "TOEFILE",  above. 

6.  Line  8 . 

a.  Fuel  on  tankers.  The  fraction  of  the  unit's  fuel,  in 
gallons,  loaded  on  tankers  that  are  organic  to  the  unit.  Stored  in  the 
103rd  element  of  the  "UNITFILE." 

b.  Ammo  on  cargo  vehicle.  Fraction  of  ammunition  (loads) 
carried  by  the  unit's  ammunition  trucks.  Stored  in  the  123rd  element  of  the 
"UNITFILE". 

c.  DF  ammo  status.  Fraction  of  the  unit's  direct  fire  (DF) 
load  capacity  that  is  full  (Note:  DF  status  +  IF  status  +  AD  status  =  100). 
Stored  in  the  119th  element  of  the  "UNITFILE". 

d. .  IF  ammo  status.  Fraction  of  the  unit's  indirect  fire 
(IF)  basic  load  capacity  that  is  full  (Note:  DF  status  +  IF  status  +  AD 
status  -  100).  Stored  in  the  120th  element  of  the  "UNITFILE". 
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e.  AD  ammo  status.  Fraction  of  the  unit's  air  defense  (AD) 
basic  load  capacity  that  is  full  ('Note:  DF  status  +  IF  status  +  AD  status  = 
100).  Stored  in  the  121st  element  of  the  "UNITFILE". 

f_.  Activity  code.  If  a  unit  is  active  in  the  critical 
incident  (Cl),  set  this  to  1,  otherwise  it  is  0.  This  is  element  82  of  the 
"UNITFILE". 


g_.  Mission.  Represents  element  83  of  the  "UNITFILE",  where: 

0  =  Meeting  engagement 

1  =  Indirect  fire 

2  =  Movement 

3  =  Frontal  attack 

4  =  Envelopmental  attack 

5  =  Delay 

6  =  Hasty  defense 

7  =  Prepared  defense 

8  =  Reserve/rear  area 

9  =  Ambush. 

h_.  Echelon.  The  unit's  echelon.  Enter  0  for  Blue 
battalions/Red  regiments  (or  larger)  and  1  for  Blue  company/Red  battalions. 
This  is  element  76  of  the  "UNITFILE". 

(b)  The  gamer/staff  worksheets  (see  Chapter  10,  Figure  10-3)  are 
completed  by  the  gamers  and  input  in  PI  using  Option  10  (enter  game  turn 
inputs).  These  worksheets  are  used  to  change  "UNITFILE"  information  at  the 
end  of  each  critical  incident  (Cl). 

B.  Output  data.  The  only  data  output  from  this  program  is  that  data 
contained  in  the  external  files.  The  "UNITFILE"  contains  one  array  for  each 
unit.  Units  not  used  should  contain  zeroes.  The  "T0EFILE"  and  "NAMEFILE" 
are  normally  output  only  during  initial  creation  of  the  units. 


4.  FILE  STRUCTURE. 

Data  files  used  in  PI  are  all  external  to  the  code.  There  are  no  internal 
files  constructed  as  data  statements  within  the  code. 

A.  A(*).  Contains  the  packaged  weight  of  ammunition,  in  tons,  for  Red 
and  Blue's  70  weapon  elements. 

B.  F(*).  Contains  the  capacity,  in  gallons,  for  Red  and  Blue's  70  weapon 
elements. 

C.  S(*).  Contains  the  system  effectiveness  values  for  Red  and  Blue's  70 
elements. 
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L  D.  W(*).  Contains  a  number  (1-3)  representing  the  ammunition  type  for 

p  Red  and  Blue's  70  elements,  where: 

r  1  =  Direct  fire 

■  2  =  Indirect  fire  (artillery) 

^  3  =  Air  defense. 

P  E.  The  "UNITFILE"  is  the  major  file  within  PI.  A  complete  description 

of  the  elements  within  the  "UNITFILE"  may  be  found  in  Chapter  1. 

F.  The  "TOEFILE"  or  table  of  organization  and  equipment  (TOE)  file 

f  consists  of  400  records  (one  for  each  unit)  and  holds  the  number  of  starting 

force  elements  in  positions  1  to  70.  Position  71  of  each  record  holds  the 
total  beginning  effectiveness  value  for  the  unit.  Position  72  contains  a 
value  representing  the  side  (Red/Blue)  and  the  type  of  unit. 

G.  The  "NAMEFILE",  developed  into  400  records,  holds  the  name  for  each  of 
the  units. 

H.  For  further  information  on  any  data,  please  refer  to  volume  III  of 
the  DIME  documentation. 


5.  ALGORITHMS. 

A.  Figure  2-4  depicts  the  logic  flow  of  the  PI  program. 

B.  The  major  algorithm  in  this  program  calculates  the  combat 
effectiveness  percentage  for  units.  It  begins  by  calculating  the  current 
total  effectiveness: 


C 


I 


Ni  *  Si 


(Eq.  2-1) 


where: 


C  =  current  total  effectiveness. 

Ni  =  the  current  number  of  weapon  systems  of  type  i. 
Si=  the  system  effectiveness  value  for  weapon  type  i. 
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Figure  2-4.  Game  initialization  logic  flow. 
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The  percentage  is  then  calculated  for  each  unit  by: 

Eff  -  C  /  U  (Eq.  2-2) 


where : 


U  ■  the  total  authorized  effectiveness  value  for  unit  j. 

This  value  (U)  is  stored  in  the  "TOEFILE"  in  record  j. 
Eff  «  the  effectiveness  percentage  for  unit  j. 


6.  "UNITFILE"  IMPACT. 

All  inputs  to  this  program  will  affect  the  "UNITFILE"  directly  as  they  are 
entered.  In  addition,  when  item  number  83  (mission  status)  of  the 
"UNITFILE"  is  changed,  it  in  turn  causes  item  75  (major  mission)  and  items 
107  and  127  -  129  (ammunition  and  fuel  use  profiles)  to  be  changed.  The 
game  initialization  program  does  not  interact  with  any  other  program  other 
than  to  return  to  the  main  DIME  menu. 


7.  CODE. 

A.  The  game  initialization  code  is  divided  into  12  major  subroutines. 
These  subroutines  correspond  to  the  12  items  on  the  PI  menu  (Figure  2-1).  A 
short  description  of  each  menu  option  follows. 

(1)  Option  1  —  Return  to  DIME  menu.  This  merely  returns  control  to 
the  DIME  menu  (PO)  discussed  in  Chapter  1. 

(2)  Option  2  —  Enter  name  only.  This  option  allows  you  to  change  the 
"NAMEFILE"  for  any  given  unit.  It  will  not  affect  the  "UNITFILE"  or 
"TOEFILE". 

(3)  Option  3  —  Enter  entire  file.  With  this  option,  one  may  enter 
all  150  elements  of  the  "UNITFILE". 

(4)  Option  4  —  Display  unit  status.  This  option  prints  the  unit 
number,  name,  and  the  150  elements  of  its  "UNITFILE".  It  is  possible  to 
list  specific  units  or  all  units  with  this  option. 

(5)  Option  5  —  Backup  or  Restore  "UNITFILE".  This  copies  the  current 
"UNITFILE"  from  hard  disk  onto  a  floppy  disc  (or  vice  versa).  The  entire 
"UNITFILE"  will  not  fit  a  single  floppy  disc,  so  one  is  used  for  Blue  units 
and  another  for  Red  units. 

(6)  Option  6  —  Change  single  value.  This  option  permits  correction 
of  individual  elements  within  the  "UNITFILE".  It  does  not  allow,  however, 
the  changing  of  elements  75,  79,  107  127,  128,  or  129.  Element  75  (major 
mission)  is  dependent  on  element  83  (mission  0-9).  Elements  107  and  127  - 
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129  are  set  automatically  to  the  same  number  indicated  by  element  83. 
Element  79  is  the  current  effectiveness  which  changes  from  Cl  to  Cl,  due  to 
single  value  change  or  transfer  of  unit  elements.  Please  note:  the  setting 
of  elements  75,  79,  107  and  127  -  129  are  always  reset  before  each  output  of 
the  "UNITFILE"  in  PI. 

(7)  Option  7  —  Build  "TOEFILE".  Within  this  option,  a  specific 
record  of  the  "TOEFILE”  may  be  built  or  displayed.  Initial  building  is 
usually  done  in  the  next  option  (8),  however,  if  changes  need  to  be  made  to 
the  "TOEFILE",  it  will  have  to  be  input  in  this  option.  Please  note:  If 
changes  are  made  using  this  option,  the  total  combat  effectiveness  is 
changed.  Use  the  program  EFF  found  in  Chapter  11  to  ensure  that  the 
effectiveness  value  in  the  "UNITFILE"  is  corrected. 

(8)  Option  8  —  Enter  initial  unit  status  (old  version).  The  old 
version  of  this  procedure  is  no  longer  in  use.  See  Option  12,  below. 

(9)  Option  9  —  Transfer  equipment  between  units.  This  option  allows 
transfer  between  units  of  the  same  side  (Red/Blue).  A  specific  weapon 
element  (1-70)  may  be  transferred.  This  routine  is  not  restricted  to 
transferring  entire  units.  As  described  in  Table  2-1,  the  gaining  unit  is 
the  one  which  is  receiving  the  equipment  being  transferred,  and  the  losing 
unit  is  the  one  which  is  shipping  out  the  equipment  to  the  gaining  unit. 
Not  only  are  the  weapon  elements  transferred,  but  their  accompanying 
ammunition  and  fuel  are  transferred.  This  routine  affects  the  "UNITFILE" 
and  "TOEFILE"  including  the  combat  effectiveness  which  is  recalculated  after 
the  transfer. 

(10)  Option  10  —  Enter  game  turn  inputs.  This  option  works  off  the 
gamer/staff  worksheet  which  was  output  at  the  end  of  the  previous  Cl  through 
P8  (unit  status  report).  After  gamers  have  filled  out  the  worksheet,  it  is 
input  line  by  line.  An  echo  of  the  inputs  are  also  printed  for 
record-keeping  purposes. 

(11)  Option  11  —  Copy  one  unit  to  another.  This  selection  permits 
the  user  to  copy  the  data  entered  for  one  unit  to  another  unit. 

(12)  Option  12  —  Enter  initial  unit  status  (new  version).  Data  from 
the  input  sheet  shown  in  Figure  2-3  is  input  using  this  option.  Please 
refer  to  paragraph  3A(2)  of  this  chapter  for  a  complete  discussion  of  the 
inputs. 


B.  Primary  variables  for  each  subroutine  are  listed  in  Table  2-1.  A 
listing  of  PI  code  appears  in  Table  2-2. 


Table  2—1.  Game  Initializatii 
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Table  2-1.  Game  Initialization  Subroutine  Table,  (continued) 
Functional  area(s):  File  Ogerations^  (continued) 

Subroutine  called  Subroutine  functlon(e)  Primarx  variables  Varieble  d^cri^o;, 

Cha__single__value  Allows  changes  to  any 

of  the  150  elements  of 
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Table  2-1.  Game  Initialization  Subroutine  Table,  (continued) 
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var  Checks  inputs  fo 

incorrect  ranges 


1 


i 
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r 

y 
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10  PI — FILE  OPERATIONS  THIS  VERSION  PLAYS  A 00  UNITS  AND  DETAILED  SENSORS 

20  ;  DATA  CHANGED  JANUARY  29,  1906  BY  ROB  BELFLOWER.  BDM 

30  !  EXPANDED  VERSION  —  JUNE  9.  1906  —  BY  OAO  CORP. 

31  !  DECLASSIFIED  —  AUG  7.  1906  —  BY  OAO  CORP.  **  DC  ** 

40  OPTION  BASE  1 

50  Disk**": 9134, 704,0" 

56  Dedisk**":  9134, 704,  O'*  !  **  DC  ** 

60  DIM  Ammo  gain (3) , Ammo_l ose (3) , Ammo  sys (3) . Tal (3) , Tag (3) 

70  DIM  A  <2, 70) ,F  <2,701 ,S<2,70) ,W(2,70> ,U<72) .Ugain (72) 

80  DIM  T  (70)  ,  Toe  (70)  ,Sys<70)  ,N<  150)  ,  Ngai  n  ( 150)  ,  MSI.  163,  Type*!.  133 
90  ASSIGN  C-Pname  TO  "NAMEFILE"8<Di  sk* 

100  ASSIGN  ©Punit  TO  "UNITFILE"S<Di  sk* 

110  ASSIGN  ©Ptoe  TO  "TOEFILE'*J<Di  sk* 

120  REM  -  INITIALIZE 

121  < 

122  !  **  DC  **  7  AUG  1986 

123  ! 

130  ASSIGN  ©Pammocap  TO  "AMMO_CAP"S<Dco\sk* 

140  ENTER  ©Pammocap, l;A(t) 

150  ASSIGN  ©Pammocap  TO  * 

160  ! 

290  ASSIGN  ©P-fuelcap  TO  “FUEL_CAP"S<Dcdi  sk* 

300  ENTER  ©Pfuelca,-,  1;F<») 

310  ASSIGN  @P -uelcap  TO  * 

450  ! 


460  ASSIGN  ©Psyse-f  f  TO  "SYS_EFF"S<Dcdi  sk* 
47  ■>  ENTER  ©Psyse-f -f  ,  1 ;  S  <*  ) 

400  ASSIGN  ©Psyse-f -f  TO  * 

490  ! 


500  ASSIGN  ©Pwpntyp  TO  "WPN  TYP"&Dcdi  sk* 
510  ENTER  ©Pwpntyp, 1;W<*> 

520  ASSIGN  ©Pwpntyp  TO  * 

521  1 


530 

540 


**  END  DC  ** 
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PRINT 
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PRINT 
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PRINT 

II 
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PRINT 
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PRINT 

II 
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PRINT 

•« 

10 

820 

PRINT 

II 

1 1 

830 

PRINT 

II 

12 

840 

PRINT 

II  II 

850 

INPUT 

"ENTER 

Nl 

DATA  OPERATIONS  MENU" 

RETURN  TO  MASTER  MENU" 

ENTER  OR  CHANGE  NAME  ONLY" 

ENTER  ENTIRE  FILE  (1-150)  FOR  A  UNIT" 

DISPLAY  UNIT  STATUS" 

BACKUP  OR  RESTORE  UNITFILE" 

CHANGE  SINGLE  VALUE" 

TOEFILE  UTILITIES" 

ENTER  INITIAL  UNIT  STATUS  -  OLD  VERSION" 

TRANSFER  EQUIPMENT  BETWEEN  UNITS" 

ENTER  PLAYER  P8  POST-GAMETURN  RESUPPLY  AND  STATUS  INFO 
COPY  ONE  UNIT  TO  ANOTHER  UNIT" 

ENTER  INITIAL  UNIT  STATUS  -  NEW  VERSION" 


ENTER  NUMBER  OF  DESIRED  ACTION — ",I 
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B60  IF  1=12  THEN  GOSUB  Init_stat 

870  IF  1=11  THEN  GOSUB  Recor d_number 

880  IF  I >10  OR  I<1  THEN  690 

890  ON  I  GOSUB  Ret _master_menu ,  Input._uni  t_name,  Ent  l  re_uni  t  f  i  1  e,  Di  sp_un i  t_stai 
Cre_backup  -file.Cha  si  ngl  e_val u, Bui  1 d  toe-f  i  1  e,  Iru  t._un  i  t  st.at ,  Transfer  .  Game  lurr 
900  GOTO  690 


910  ! - ROB 

920  Record_number :  ! 

930  PRINT  USING  "<?" 

940  ASSIGN  l?Nname  TO  "NAMEFILE: 9134, 704. O" 

950  ASSIGN  li'Nunit  TO  "UNITFILEs 9134, 704, 0" 

960  ASSIGN  6>Ntoe  TO  "TOEFILE: 9134, 704, O" 

970  PRINT  "THIS  ROUTINE  WILL  COPY  ONE  UNIT  RECORD  INTO  ANOTHER  UNIT  RECORD. 
900  PRINT  "IT  WILL  ERASE  ANY  DATA  ALREADY  STORED  IN  THE  NEW  RECORD" 

990  PRINT  "NUMBER  AND  REPLACE  IT  WITH  THE  CHANGED  DATA.  IT  WILL" 

1000  PRINT  "NOT  ERASE  THE  DATA  STORED  IN  THE  OLD  RECORD." 

1010  PRINT 

1020  PRINT  "USE  RECORD  NUMBER  999  TO  END  THIS  ROUTINE" 

1030  X=0 

1 040  Y=0 


1050  PRINT 

1060  INPUT  "WHAT  IS  THE  OLD  RECORD  NUMBER". X 
1070  IF  X=999  THEN  RETURN 

1080  INPUT  "WHAT  IS  THE  NEW  RECORD  NUMBER" ,Y 
1090  IF  Y=999  THEN  RETURN 
1  1 00  ENTER  il'Pun  i  t. ,  X :  N  <  * ) 

1110  ENTER  ©Ptoe, X;U<*) 

1120  ENTER  C-Pname.  XjM* 

1130  OUTPUT  ©Nunit, Y;N<*> 

1140  OUTPUT  ©Ntoe,  Y;U<*> 

1150  OUTPUT  ©Nname,  Y;M* 

1160  GOTO  920 
1 1 70  RETURN 


1180  ! 


1190  Ret_master_menu:  ! 
1200  ASSIGN  ©Pname  TO  * 
1210  ASSIGN  ©Punit  TO  * 
1220  ASSIGN  ©Ptoe  TO  * 


1230  GOTO  Subprogram_end 
1240  RETURN 


1 250  ! 


1260  Input_uni t_name: ! 

1270  PRINT  USING  "©" 

1280  INPUT  "UNIT  NAME  ENTRY  <16  CHARACTER  MAXIMUM.  999=ST0P) .  ENTER  UNIT  NUMBE 

",  I 

1290  IF  1=999  THEN  1360 

1300  IF  Kl  OR  I  >400  THEN  1270 

1310  INPUT  "ENTER  UNIT  NAME " , M* 

1320  OUTPUT  ©Pname, I s  M* 

1330  ENTER  <?Pname,  1 5  M* 

1340  PRINT  USING  "@,16A"5M* 

1  350  GOTO  1 280 
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1360  RETURN 

1370  ! - - 

1380  Ent. i  re_uni  tf  i  1  e:  ! 

1390  PRINT  USING  "iy" 

1400  PRINT  "UNIT  FILE  ENTRY  (NAME. PARAMETERS) " 

1410  PRINT  USING  "i?" 

1420  INPUT  "ENTER  UNIT  NUMBER  <1-400.  999=STQP)".I 

1430  IF  1=999  THEN  1590 

1440  IF  I >400  OR  I<1  THEN  1410 

1450  PRINT  USING  "S'" 

1460  INPUT  "ENTER  UNIT  NAME  (16  CHARACTERS >". M* 

1470  PRINT  Mi 

1480  FOR  K= 1  TO  15 

1490  PRINT  "LINE " ; K; "  ": 

1500  FOR  J=1  TO  10 

1510  INPUT  “INPUT  FIELD  VALUE" . N < <K- 1 >* 1 0+J ) 

1520  PRINT  N< <K— 1) * 10-KJ) : 

1530  NEXT  J 

1540  PRINT 

1550  NEXT  K 

1560  OUTPUT  (ypname,  I :  M* 

1570  GOSUB  Cal c_combat_ef f 
1580  GOTO  1410 
1590  RETURN 

1 600  ! - 

1610  Di sp_uni t_stat : ' 

1620  PRINT  USING  "i?" 

1630  PRINT  "UNIT  STATUS  DISPLAY- 
1640  PRINT 

1650  INPUT  "CHECK  LOADSHEET  VALUES  <L>.  OR  SCRUTINIZE  ALL  150  VALUES  <S>?".Ans 
1660  INPUT  "ENTER  OUTPUT  DESIRED:  1-ALL  UNITS  2-SPECIFIC  UNITS". Z5 

1670  INPUT  "DISPLAY  TO  1=SCREEN  ONLY  OR  2=SCREEN  AND  PR  INTER", A* 

1680  Page=0 
1690  IF  Z5= 1  THEN 
1700  Loadsheet=0 

1710  PRINT  USING  "i?,#" 

1720  FOR  1=1  TO  400 

1730  GOSUB  Pr  i  nt_uni  tf  i  1  e 

1740  NEXT  I 

1750  ELSE 

1760  INPUT  "UNIT  NUMBER  <900=START  OVER.  999=MAIN  MENU)",  I 

1770  IF  1=900  THEN  1620 

1780  IF  1=999  THEN  1830 

1790  IF  I<1  OR  I >400  THEN  1760 

1800  GOSUB  Print  unit file 

1810  GOTO  1760 

1820  END  IF 

1830  RETURN 

1 840  ' 

1850  Pr i nt _uni tf i 1 e: ! 

1860  ENTER  i?Puni  t ,  I :  N  <  *  > 

1870  ENTER  ij'Pname.  I ;  M* 
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1880  IF  N ( 79) =0  THEN  2820 
1890  Side=INT<N<78> > 

1900  Kind- 1  NT ( (N ( 78 > -Si de+ . 05) *10) 

1910  IF  Kind=0  THEN  T ype*= "COMBAT “ 

1920  IF  Kind=l  THEN  Type6=" ARTILLERY" 

1930  IF  Ki nd=2  THEN  Type*="AIR  DEFENSE" 

1940  IF  Ki nd=3  THEN  Type*="FARRP" 

1950  IF  Ki nd=4  THEN  Type«=" COMMAND  POST" 

1960  IF  Kind=5  THEN  Type*-" ENGINEER" 

1970  IF  Ki nd=6  THEN  Type*="SUPPLY" 

1980  IF  Kind=7  THEN  Type*= “MAINTENANCE" 

1990  IF  Ki nd=8  THEN  Type*- "BRIDGE" 

2000  IF  Ki nd=9  THEN  Type*="COMMO/EW  SITE" 

2010  •  PRINTER  IS  1 
2020  X  “  I NT ( N  < 1 24  > ) / 1 0 
2030  Y=  <N  < 1 24)  —  I NT  (N  ( 124 )  )  )  *  100 

2040  IF  Side-1  THEN 

2050  Fuel =1800 

2060  Ton s=6. 5 

2070  ELSE 
2080  Fuel =1288 

2090  Tons=4 . 5 

2100  END  IF 

2110  IF  Nil 03 >  >N  < 1 0 1 >  THEN 
2120  Gal= (N ( 103) /Fuel /N<55>  >  *100 

2130  ELSE 

2140  Gal =N< 101) *100 

2150  END  IF 
2160  Ammo—N ( 1 23) 

2170  IF  Gal =0  THEN  Gal=l 
2180  IF  Ammo=0  THEN  Ammo=l 

2190  IF  A*= " 1 "  THEN 

2200  PRINT  "  " : "UNIT  NO."."  SIDE" . "TYPE" . Type* 

2210  PRINT  I, Side, Kind 

2220  PRINT  "  " ; MS 

2230  IF  Ans*="L"  THEN 

2240  FOR  J=1  TO  70 

2250  PRINT  USING  " 6D. 3D. 1 X . : N ( J > 

2260  IF  J  MOD  7=0  THEN 

2270  PRINT 

2280  END  IF 

2290  NEXT  J 

2300  ! PRINT  ROUTINE  BELOW  WAS  ADDED  AFTER  THE  CORRECT  FORMULA  WAS  ADDED  TO  T 

HE  INIT_STAT  ROUTINE  TO  LOAD  DF  AND  IDF  AMMO. 

2310  PRINT  "  ";**7.  FUEL  "."7.  AMMO".”  7.DF  7.IF"."  7.ADA  ” .  "ACTIVITY" .  "MIS 

SION", "ECHELON” 

2320  PRINT  USING  " 7D, 8D. 1 1 D. 8D. 1 1 D . 1 OD. 8D. 1 D, 1 OD" : Gal . 1 00* < TonsIN ( 58 > ) / Ammo 

, X, Y, 100— X—Y , N (82) ,N<83> .N<76> 

2330  PRINT 

2340  PRINT 

2350  ELSE 

2360  PRINT  USING  "22 (7 (6D. 3D. 1 X ) . / ) " s N ( * > 
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2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

SION 

2520 

,X.Y, 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 


PRINT 
END  IF 
ELSE 

PRINTER  IS  702 

PRINT  "  " ; "UNIT  NO.”."  SIDE” . "TYPE" . Type* 

PRINT  I, Side, Kind 
PRINT  "  "  ;M* 

IF  Ans*="L"  THEN 
FOR  J=1  TO  70 

PRINT  USING  "6D.3D, IX,#"; INT(N(J> > 

IF  J  MOD  7=0  THEN 
PRINT 
END  IF 
NEXT  3 

PRINT  "  ";"7.  FUEL  “,*'7.  AMMO","  '/.DF  “ .  "  7.IF"  .  "  '/.ADA  "."ACTIVITY 
, "ECHELON" 

PRINT  USING  "7D, 8D, 11D,8D, 11D, 10D.8D.  ID. 10D":Gal , 100* <Tons*N<58> 
100— X-Y, N (82) , N (83) , N  <76) 

Load  sheet =Load  sheet -*-1 
IF  Loadsheet=3  THEN 
PRINT  USING  "8,4“ 

Loadsheet=0 
ELSE 
PRINT 
PRINT 
PRINT 
END  IF 
PRINTER  IS  1 
GOTO  2820 
ELSE 

PRINT  USING  "22  <7  <6D. 3D, IX) ,/) ";NC*> 

Page=Page+l 
IF  Page=2  THEN 
PRINT  USING 
Page=0 
ELSE 
PRINT 
PRINT 
END  IF 
PRINTER  IS  1 
END  IF 
END  IF 
*  Coun=Coun+l 
! IF  Coun=2  THEN  1310 
•PRINTER  IS  702 
! GOTO  1250 
! PRINTER  IS  1 
RETURN 


Cre_backup_-f  i  le:  ! 

PRINT  USING  "8,4" 

PRINT  "  BACKUP/RESTORE  MENU" 
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2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 


PRINT  " 

PRINT  "  1  —  BACKUP  UNITFILE  TO  FLOPPY" 

PRINT  "  2  —  RESTORE  UNITFILE  FROM  FLOPPY- 

PRINT  "  3  —  RETURN  TO  MAIN  MENU" 

PRINT  “ 

INPUT  "ENTER  NUMBER  OF  DESIRED  ACTION — ".I 
IF  1=1  THEN  GOTO  Backunit 
IF  1=2  THEN  GOTO  Restun it 
IF  1=3  THEN  RETURN 
GOTO  Cre_backup_f i le 
Backunit: 

Suni t=l 
Euni t=191 
Trecs=191 
Oname»="BLUE" 

GOSUB  Make_unit 
Suni t=192 
Euni t =400 
Trecs=209 
Oname** " RED " 

GOSUB  Make_unit 
RETURN 


3090  Make_unitj  1 

3100  DISP  "INSERT  "sOname*:"  UNITFILE  DISK  IN  FLOPPY  DRIVE  0 
READY" 

3110  PAUSE 

3120  Bunit*="UNITFIL£"fcOname*Cl.  1  3 

3130  DISP  "CREATING  " j Buni t*; " . . . " J 

3140  CREATE  BDAT  Buni t*V s HP9121 , 700, O" ,  Trees. 1 200 

3150  ASSIGN  PBunit  TO  Buni t*V s HP9121 , 700, 0“ 

3160  DISP  "COPYING  "j-UNITFILE  TO  " ; Buni t*> “ . . . " ; 

3170  FOR  Recno=Sunit  TO  Eunit 
3180  ENTER  @Puni t , Recno; N < *) 

3190  OUTPUT  <?Bunit;N<*> 

3200  NEXT  Recno 
3210  DISP  "COMPLETE" 

3220  WAIT  3 
3230  RETURN 
3240  Restunits  ! 

3250  DISP  "PURGE  UNITFILE  FROM  HARDISK  (Y/N)  ": 

3260  INPUT  Purg* 

3270  IF  Purg*«"Y"  THEN  PURGE  "UNITFILE"S<Di  skS 
3280  DISP  "CREATING  UNITFILE..." 

3290  CREATE  BDAT  "UNITFILE"«cDisk«,  400.  1200 
3300  ASSIGN  @Punit  TO  "UNITFILE"*<Di  sk* 

3310  Eunit=191 
3320  Iname*=" BLUE" 

3330  GOSUB  Run it 
3340  Eunit =209 
3350  Iname*»"RED” 

3360  GOSUB  Run it 
3370  RETURN 


PRESS  CONT  WHEN 
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3380  Runit:  1 

3390  DISP  "INSERT  " : InameS : "  UN1TFILE  DISK  IN  FLOPPY  DRIVE  O  -  PRESS  CONT  WHEN' 
READY" 

3400  PAUSE 

3410  Runi  tS*=  "UN  I TF I LE"?/  Inainetf  1  .  1  ] 

3420  DISP  "COPYING  ":Runit*;"  TO  UNITFILE- . . 

3430  ASSIGN  ©Runit  TO  Run  i  t SS<"  :  HP  9  121. 700. 0" 

3440  FOR  Recno=l  TO  Eunit 
3450  ENTER  ©Runi t . Recnos N ( * ) 

3460  OUTPUT  ©Pun i  t ;  N  (  *  ) 

3470  NEXT  Recno 
3480  DISP  "COMPLETE" 

3490  WAIT  3 
3500  RETURN 

3510  1 - 

3520  Cha_si ngl o _val u: 1 
3530  PRINT  USIN"  "©" 

3540  PRINT  "CHANGE  SINGLE  VALUES  IN  THE  UNITFILE" 

3550  INPUT  "ENTER  UNIT  NUMBER  1-400  <999=ST0P> " , I 

3560  IF  1=999  THEN  3670 

3570  IF  I<1  OR  I >400  THEN  3550 

3580  ENTER  ©Pun i  t ,  I :  N  (  *  > 

3590  INPUT  "ENTER  ITEM  NUMBER.  NEW  VALUE  (999. 999=ST0P> " . J . NO 

3600  IF  J=999  THEN  3640 

3610  IF  J<1  OR  J > 1 50  THEN  3590 

3620  N  ( J ) =NQ 

3630  GOTO  3590 

3640  GOSUB  Calc  combat_e-f'f 

3650  OUTPUT  ©Pun i t , I : N ( * ) 

3660  GOTO  3530 
3670  RETURN 

3680  ! - 

3690  Bui  ld_toe-f  i  le:  ' 

3700  PRINT  USING 

3710  PRINT  "TOEFILE  BUILDER" 

3720  INPUT  "DESIRED  ACTION:  1-BUILD  UNIT  2-DISPLAY  UNIT  3-RETURN  TO  MENU" .Zl 

3730  ON  Z1  GOTO  3740,3900.690 

3740  INPUT  "ENTER  UNIT  NUMBER  (999=ST0P) " . I 

3750  IF  1=999  THEN  3700 

3760  IF  I<1  OR  I >400  THEN  3740 

3770  INPUT  "SIDE  ( 1 -BLUE  2-RED) ”.K 

3780  INPUT  "UNIT  TYPE" , L 

3790  IF  L<0  OR  L>9  THEN  3780 

3800  INPUT  "ENTER  NUMBER  OF  SYSTEMS  1-70", T(*> 

3810  E=0 

3820  FOR  J*=l  TO  70 
3830  U ( J ) =T ( J ) 

3840  E=E+U(J> *S(K. J) 

3850  NEXT  J 

3860  U ( 7 1 >  =E 

3870  U  (72)  “K+-L/  10 

3880  OUTPUT  ©Ptoe.I;U<*> 
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3890  GOTO  3740 

3900  INPUT  "1 -SINGLE  UNIT  2-ALL  UNITS  999-STOP" , Ch 

3910  IF  Ch=999  THEN  GOTO  3720 

3920  ON  Ch  GOSUB  Sing. All 

3930  GOTO  3900 

3940  Sing:  ! 

3950  INPUT  "ENTER  UNIT  NUMBER  (999-STOP) ",  I 
3960  IF  1=999  THEN  4010 
3970  IF  I<1  OR  I >400  THEN  3900 
3980  ENTER  GPtoe,  I  :U<*> 

3990  GOSUB  Print_toe 
4000  GOTO  3940 
4010  RETURN 
4020  All:  ! 

4030  FOR  1=1  TO  400 
4040  ENTER  &Ptoe,I:U<*> 

4050  GOSUB  Pri nt_toe 
4060  NEXT  I 
4070  RETURN 
4080  Print_toe:  ! 

4090  PRINTER  IS  702 
4100  PRINT 
4110  PRINT 
4120  PRINT  "UNIT  “ : I 

4130  PRINT  USING  "7 ( 1 0 (5D. ID, 1 X ) , / ) , 7D. ID, 7X, 7D. ID" : U ( * ) 

4140  PRINTER  IS  1 
4150  RETURN 

4160  - - 

4170  Init  unit_stat: 

4180  PRINT  USING  "G“ 

4190  PRINT  "UNIT  STATUS  INITIALIZATION" 

4200  INPUT  "ENTER  UNIT  NUMBER  1-400  (999=ST0P> " , I 

4210  GOSUB  Cl  ear _out 

4220  IF  1=999  THEN  4710 

4230  IF  I<1  OR  I >400  THEN  4200 

4240  INPUT  "ENTER  UNIT  NAME  <16  CHARACTER  MAX IMUM) " „ M* 

4250  OUTPUT  GPname,I;M* 

4260  INPUT  "SIDE  < 1-BLUE  2-RED) ",K 
4270  INPUT  "UNIT  TYPE" . L 
4280  K=INT(K> 

4290  L=INT (L) 

4300  IF  L<0  OR  L>9  THEN  4270 

4310  INPUT  "ENTER  NUMBER  OF  SYSTEMS  1-70", T(*> 

4320  E=0 

4330  FOR  0-1  TO  70 
4340  U  < J ) =T  < J ) 

4350  E=E-HJ(J)  *S(K.  J) 

4360  NEXT  J 

4370  U ( 7 1 ) =E 

4380  U (72) — K+L/ 10 

4390  OUTPUT  GPtoe, I:U<*> 

4400  INPUT  "ENTER  LINE  1  (1-10)",N<1).N(2),N<3),N<4),N(5).N<6>,N(7).N(8).N(9).N 

(  10) 
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4410  INPUT  "ENTER  LINE  2  < 1 1-20) " . N < 1 1 ) . N < 12) , N ( 1 3) . N ( 1 4> , N ( IS) . N < 1 6) , N ( 17) . N*" 
8> ,N< 19> ,N(20> 

4420  INPUT  "ENTER  LINE  3  (21 -30) " . N ( 21 ) , N (22) . N ( 23 ) . N ( 24) , N <25 ) , N (26 ) , N (27) . N 
B)  .  N ( 29 > , N ( 30 ) 

4430  INPUT  "ENTER  LINE  4  (31—40) “ . N (31 )  , N (32) , N <33> . N (34) , N <35> , N (36) , N (37) . N • 
8)  ;  N (39) , N (40) 

4440  INPUT  "ENTER  LINE  5  (41-50) " ,N (4 1 )  , N (42) , N (43) , N (44) , N (45)  . N (46) , N (47) , N ■ 
8)  ,  N (49) , N (50) 

4450  INPUT  "ENTER  LINE  6  (51-60) " , N <51 )  ,  N (52)  .  N (53) , N (54) , N (55) . N <56 ) . N (57) , N 
8 )  ,  N  ( 59 ) , N ( 60  > 

4460  INPUT  "ENTER  LINE  7  (61-70) " , N (61 )  ,  N (62) , N (63) , N (64) , N (65) , N (66) , N (67) . N < 
8)  ,  N  (69)  ,  N  (70) 

4470  INPUT  "ENTER  LINE  8  (75,89,77,78.90,101,103,105;  90&78  IN  2  PARTS) N (75) 
A1 ,  A2, N (77) . B1 . B2, N ( 90) , N ( 101 ) , N ( 103) , N < 1 05) 

4480  IF  N (75) < 1  OR  N<75>>4  THEN  4470 

4490  IF  Al< 1  OR  Al>5  THEN  4470 

4500  IF  A2<0  OR  A2>9  THEN  4470 

4510  N  (89)  =  INT  <A1 )  +A2/ 10 

4520  IF  N (77) <  >1  AND  N<77><>2  THEN  4470 

4530  IF  BtOl  AND  8102  THEN  4470 

4540  IF  B2<0  OR  82 >9  THEN  4470 

4550  N(78)=INT(B1)+B2/10 

4560  IF  N (90) <0  OR  N(90>>1  THEN  4470 

4570  IF  N < 101 ) <0  OR  N<101>>1  THEN  4470 

4580  INPUT  "ENTER  LINE  9  ( 1 19-125, 81 -83,  76) "  .  N < 1 1 9)  .  N < 1 20) . N < 1 2 1 ) . N ( 1 22 > , N ( 1 23 
,  N  ( 124 )  ,  N  ( 125)  ,  N  (81 )  ,  N  (82)  ,  N  (83)  ,  N  (76) 

4590  IF  N ( 1 19) <0  OR  N(119)>1  THEN  4580 

4600  IF  N <120X0  OR  ?<<120>>1  THEN  4580 

4610  IF  N < 121 ) <0  OR  N (121 ) >1  THEN  4580 

4620  IF  N (81 ) < 1  OR  N <81 >>400  THEN  4580 

4630  IF  N  <82)00  AND  N  (82)01  THEN  4580 

4640  IF  N (83) <0  OR  N<83>>9  THEN  4580 

4650  IF  N  (76)00  AND  N  <76)01  THEN  4580 

4660  N ( 1 39 ) *0 

4670  N<140)=0 

4680  N  ( 141  )  <=0 

4690  GOSUB  Uni  t-f  i  1  e_di  sk 

4700  GOTO  4200 

4710  RETURN 

4720  Clear_out:‘ 

4730  FOR  I kp=l  TO  150 
4740  N  ( I  kp )  =0 
4750  NEXT  Ikp 
4760  RETURN 

4770  ! - 

4780  Init_stats! 

4790  PRINT  USING  "8" 

4800  PRINT  "  UNIT  STATUS  INITIALIZATION" 

4810  INPUT  "ENTER  UNIT  NUMBER  1-400  (999=ST0P) " , I 
4820  IF  1=999  THEN  RETURN 
4830  IF  I<1  OR  1 >400  THEN  4810 
4840  INPUT  "SIDE  <1=BLUE,  2=RED)",K 
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4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 


INPUT  "UNIT  TYPE " , L 
K=INT(K) 

L=INT(L) 

IF  L<0  OR  L!)9  THEN  4850 

INPUT  "ENTER  UNIT  NAME  (16  CHARACTER  MAXIMUM) "  ,  M* 

OUTPUT  @Pname.I:M* 

DISP  "ENTER  THE  NUMBER  OF  SYSTEMS  1-70" 

FOR  G= 1  TO  7 

PRINT  "LINE" : G: " 

FOR  J=1  TO  10 

INPUT  "INPUT  FIELD  VALUE" , T < (G-l ># 10+J ) 

PRINT  T  < (G-l ) * 10+J) ; 

NEXT  J 
PRINT 
NEXT  G 
E=0 

FOR  J=1  TO  70 
U(J)«T(J> 

E=E+U  < J ) *S  (K.  J ) 

N ( J ) =T ( J ) 

NEXT  J 
U (71 ) =E 
U(72)=K+L/10 
OUTPUT  <?Ptoe.  I;U<*> 

N  (89)  *=5.  9 
N (77) =1 
N(78)«(OL/10 
N (90) “1 

PRINT  USING  "@" 

.'PRINT  "DOES  THIS  UNIT  HAVE  ITS  NORMAL  FUEL  SUPPLY?" 

!  INPUT  "ANSWER  <Y>ES  IF  IT  DOES.  <N>0  IF  IT  HAS  EITHER  MORE  OR  LESS".  As, 
! IF  A*="Y"  THEN 
!  N  < 101 ) - 1 
!  IF  K=1  THEN 
!  N(103)=N(55> *1800 

!  ELSE 

'  N(103)=N(55) *1288 

!  END  IF 
!  ELSE 

INPUT  "WHAT  PERCENT  OF  NORMAL  FUEL  DOES  THIS  UNIT  HAVE",X 
Percent=X/ 100 
IF  Percent>l  THEN 
N ( 101 ) =1 
ELSE 

N ( lOl ) “Percent 
END  IF 
IF  K-l  THEN 

IF  Percent >1  THEN 
N ( 103) “N (55) *1800 

N ( 105) = (N (55) * ISOOfPercent ) -N ( 103) 

ELSE 

N ( 103) =N (55) *  1800* Per cent 


Table  2-2.  Game  initialization  code. 


2-24 


5370  N  ( 105)  =0  >- 

5380  END  IF 

5390  ELSE 

5400  IF  Percent >1  THEN 

5410  N ( 1 03  >  =N ( 55  >  *  1 288 

5420  N  < 105)  =  <N (55) *  1 288 IPercent ) -N  < 1 03  > 

5430  ELSE 

5440  N ( 103) =N (55) #1288*Percent 

5450  N  < 1 05  >  =0 

5460  END  IF 

5470  END  IF 

5480  !  END  IF 

5490  PRINT  USING  " «*•" 

5500  !  PRINT  “DOES  THIS  UNIT  HAVE  ITS  NORMAL  AMMUNITION  SUPPLY?" 

5510  !  INPUT  "ANSWER  <Y>ES  IF  IT  DOES.  <N>0  IF  IT  HAS  EITHER  MORE  OR  LESS  AMMUNI 
TION", A* 

5520  !  IF  A*="Y"  THEN 

5530  !  N< 1191=1 

5540  !  N  <  120)  *=1 

5550  !  N  < 121 >  =  1 

5560  !  IF  K=1  THEN 

5570  !  N<123)=N<58) *6.5 

5580  !  ELSE 

5590  !  N(123)=N<58> *4.5 

5600  !  END  IF 

5610  !  N( 125) =0 

5620  !  ELSE 

5630  INPUT  "WHAT  PERCENT  OF  ITS  NORMAL  AMMUNITION  DOES  THIS  UNIT  HAVE".X 

5640  Percent=X / 100 

5650  IF  Percent >1  THEN 

5660  N(119>=1 

5670  N ( 120) =1 

5680  N ( 1 21 >  *1 

5690  IF  K= 1  THEN 

5700  N  (  123)  *=N  (58)  *6.5 

5710  N ( 125)  =  <N  <58 > *6 . 5*Per cent ) -N ( 123) 

5720  ELSE 

5730  N  < 123) =N  <  58 ) *4 . 5 

5740  N  < 1 25)  =  (N  < 58 > *4. 5*Percent ) -N ( 123) 

5750  END  IF 

5760  ELSE 

5770  N  < 1 19) “Percent 

5780  N < 120) "Percent 

5790  N( 121) “Percent 

5800  IF  K= 1  THEN 

5810  N < 123) =N<58) *6. 5*Percent 

5820  N  < 1 25  >  =0 

5830  ELSE 

5840  N  < 123) =N  < 58 ) *4.5*Percent 

5850  N ( 1 25  >  =0 

5860  END  IF 

5870  END  IF 
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5800  !  END  IF 
5890  PRINT  USING 

5900  INPUT  "WHAT  IS  THE  PERCENTAGE  OF  DIRECT  FIRE  AMMUN I T I ON " . X 

5910  INPUT  "WHAT  IS  THE  PERCENTAGE  OF  INDIRECT  FIRE  AMMUN I T ION" , Y 

5920  INPUT  "WHAT  IS  THE  PERCENTAGE  OF  AIR  DEFENSE  AMMUN I T I ON " .1 

5930  IF  X+Y+ZOlOO  THEN 
5940  PRINT  USING 

5950  PRINT  "PERCENTAGES  OF  AMMUNITION  DO  NOT  ADD  UP  TO  1007..  TRY  IT  AGAIN.  " 
5960  WAIT  3 
5970  GOTO  5890 
5980  END  IF 

5990  N ( 124) =X+Y/ 100  ! UNITS  WERE  CREATED  WITH  FORMULA.  IT  SHOULD  BE 

N  ( 124)  =  <X*10)-*-<Y/  100)  .  NEXT  LINE  ALSO 
6000  N  < 1 26 ) =  X  +Y / 1 00 

6010  i INPUT  "WHAT  IS  THE  SUPPORTING  ADA  UNIT",N<81> 

6020  INPUT  "IS  THIS  UNIT  ACTIVE  < 1 >  OR  INACTIVE  <0>",N<82> 

6030  INPUT  "WHAT  IS  THIS  UNIT'S  TACTICAL  MISSION",  X 

6040  !  INPUT  “WHAT  IS  THIS  UNIT’S  TACTICAL  MISSION  FOR  THE  2ND  3  HOURS". Y 
6050  X=INT(X) 

6060  Y=INT<X) 

6070  N (83) “X+Y/ 10 

6080  IF  K= 1  THEN 

6090  INPUT  "IS  THIS  UNIT  A  BATTALION  (0)  OR  COMPANY  (1)  " . Esch 

6100  ELSE 

6110  INPUT  "IS  THIS  UNIT  A  REGIMENT  (0)  OR  BATTALION  (1)  ".Esch 
6120  END  IF 

6130  IF  EschOO  AND  EschOl  THEN 

6140  DISP  "UNIT  ECHELON  MUST  BE  ""0""  OR  " " 1 . 

6150  WAIT  3 

6160  GOTO  6080 

6170  ELSE 
6180  N<76)*Esch 

6190  END  IF 

6200  GOSUB  Umtf  i  le_disk 
6210  GOTO  4780 
6220  RETURN 

6230  Transfers!  THIS  SUBROUTINE  TRANSFERS  EQUIPMENT  BETWEEN  UNITS 
6240  Start_i nput :  PRINT  USING  "(?,#,  23A" ;  "UNIT  EQUIPMENT  TRANSFER" 

6250  INPUT  "ENTER  UNIT  #  LOSSING  ELEMENT  AND  UNIT  #  GAINING  ELEMENT  —  ST0P<99C 
,999) " , L, G 

6260  IF  L=999  AND  G=999  THEN  Transend 

6270  IF  L< 1  OR  L>400  OR  G< 1  OR  G>400  THEN  6250 

6280  IF  L< 192  THEN 

6290  Si de_l =1 

6300  ELSE 

6310  Si de_l =2 

6320  END  IF 

6330  IF  G< 192  THEN 

6340  Si de_g= 1 

6350  ELSE 

6360  Side_g=2 

6370  END  IF 
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6380 

6390 


IF  Si de_l<  >Side_g  THEN 

DISP  "UNITS  NOT  ON  SAME  SIDE.  CHECK.  YOUR  DATA. 


PRESS  CONTINUE  TO  PROCEE! 


6400  PAUSE 

6410  GOTO  6250 

6420  ELSE 

6430  Side=Side_l 

6440  END  IF 

6450  Element_input:  ! 

6460  FOR  1=1  TO  70 
6470  Sys ( I >  =0 

6480  Toe  < 1 ) =0 

6490  NEXT  I 
6500  ! 

6510  REM  -  ADJUST  TOEFILE  FOR  LOSING  AND  GAINING  UNITS 
6520  ENTER  ©Ptoe, G; Ugai n < * ) 

6530  ENTER  ©Ptoe,L;U(*> 

6540  ENTER  ©Puni t , G; Ngai n < * > 

6550  ENTER  ©Puni t, L; N < * ) 

6560  INPUT  "ENTER  ELEMENT  NUMBER  TO  BE  TRANSFERED" , Elmt_no_trans 
6570  INPUT  “NUMBER  OF  ELEMENTS  TO  BE  TRANSFERED" , Sys (El mt_no_trans > 

6580  E-f-f_gain“0 
6590  E-ff_lose«0 

6600  Int_sys=N<El mt  no_trans) -Sys (El mt_no_trans ) 

6610  IF  Int_sys<0  THEN~ 

6620  PRINT  USING  "©" 

6630  PRINT  "ELEMENT  "jElmt  no  trans; "  IS  NEGATIVE  FOR  LOSING  UNIT.  CHECK  YOUR 
DATA,  PRESS  CONTINUE  TO  PROCEED" 

6640  PAUSE 

6650  GOTO  Start  input 

6660  END  IF 

6670  Int_sys*=U  <Elmt_no_trans>  -Sys  (El  mt  no  trans) 

6680  IF  lnt_sys<0  THEN 
6690  PRINT  USING  "©" 

6700  PRINT  "TOE  ITEM  " ; El mt_no_trans: "  IS  NEGATIVE  FOR  LOSING  UNIT.  CHECK  YOU 
R  DATA,  PRESS  CONTINUE  TO  PROCEED" 

6710  PAUSE 

6720  GOTO  St«rt_i nput 

6730  ELSE 

6740  Ugain  (Elmt_no_trans) =Ugain (El mt_no_trans> +Sys (El mt_no_trans> 

6750  U (El mt_no_trans) =Int_sys 

6760  E-ff  lose=Sys(Elmt_no_trans) *S (Side.Elmt  no_trans> 

6770  END  IF 

6780  Ugai n (71 ) =Ef f _1 ose+Ugai n <71 > 

6790  U  (71 )  =U  (71 )  -Et-f  _1  ose 
6800  ! 

6810  IF  U <7 1 >  =0  OR  Ugain(71)=0  THEN  Ni 

6820  Eff_u=0 

6830  E-f  f  _ug=0 

6840  FOR~Le= 1  TO  70 

6850  E-f  f  _u=Ef  t_u+S  (Si  de,  Le)  *N (Le) 

6860  ER  f _ug=Ef  f _ug+S  (Side,  Le>  *Nga i n (Le) 
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6870  NEXT  Le 

6880  N ( 79 ) =£f  f  _u/U ( 7 1 ) 

6B90  Ngain  (79)  =Ef-f_ug/Ugain(71> 

6900  Ni :  1 

6910  ’ 

6920  !  UPDATE  UNITFILE  STATUS 

6930  REM  -  ADJUST  CARGO/FUEL  TRUCK  LEVELS 
6940  IF  Sys (55) =0  THEN  Adjust_cargo 
6950  Avg_f uel =N (103) /N  <55) 

6960  Tot_avg_f uel  =Avg_-f  uel  *Sys  (55) 

6970  N  < 103) =N ( 103) -Tot_avg_f uel 

6980  Ngain  <  103)  =Ngain  ( 103)  +Tot_avg_-f  uel 

6990  IF  N(  103X0  THEN  N(103>=0~ 

7000  Adjust_cargo: !  ADJUST  CARGO  LEVELS 
7010  IF  Sys (58) *0  THEN  Tal 1 y_systems 
7020  Gain_d-f  _'frac  =  INT  (Ngain  (124)  )  /1000 
7030  Lose_d-f  _-frac  =  INT  (N(  124) )  /  1000 
7040  Gain_i  -f  _-frac=Ngain  ( 124)  -I NT  (Ngai  n  ( 124)  ) 

7050  Lose_iF _frac=N ( 124) -I NT (N ( 124) > 

7060  Gair»_ad_-f  rac=l-  (Gain_d-f  rac+Gain_i  f rac  > 

7070  Lose_ad_f  rac=l-  (Lose_df  _trac+LoBe_i  f  _frac) 

7080  Avg_ammo_lase=N ( 123) /N (58) 

7090  Am<na_tr  ansfer=Avg_aitimo_lose*Sys  (58) 

7100  N ( 123) =N ( 123) —Ammo_tr answer 

7110  D-f  _ammo_trans=Amnio_trans(  er  *Lose_d'f  rac 

7120  I  i  _ammo_tr  ans=Ammo_tr  ansf  er  *Lose_i  ■f  _■#  rac 

7130  Ad_am/no_trans=Amma_transf er*Lose_ad_f r ac 

7140  D+_am(no=0 

7150  lf_ammo=0 

7160  Ad_amtno=0 

7170  D-f  _amma=D-f  _ammo_tr ans+Gai n_df  _f  racINgain  ( 123) 

7180  I  f  _ammo=I'f  _ammo_tr ans+Gai n_ j  -f  _f  rac* Ngain  (123) 

7190  Ad_amma=Ad_ammo_trans+Gain_ad_-frac*Ngain  ( 123) 

7200  Tot_arnmo=D-f  _ammo+I  f  _ammo+Ad_ammo 
7210  Ngai n ( 123) =Tot_ammo 
7220  Nl  =  (Df _ammo/Tot_ammo)  *1000 
7230  N2=If _ammo/Tot_ammo 
7240  Ngain7l24)=INT7Nl)+N2 

7250  Tal 1 y_systemss !  ADJUST  VEHICLE  AMMO  LEVELS  AND  TRANSFER  SYSTEMS 

7260  Tot_?uel _1 ose=0 

7270  Tot_-fuel_gain=0 

7280  Fuel_gain=0 

7290  Fuel_lose=0 

7300  Fuel_sys=0 

7310  FOR  7=1  TO  3 

7320  Ammo_gai n ( I ) =0 

7330  Am(no_l  ose  ( I )  =0 

7340  Ammo.sys ( I ) =0 

7350  Tal ( I ) =0 

7360  Tag ( I ) =0 

7370  NEXT  I 

7380  REM  -  TALLY  FUEL /AMMO 
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7390  FOR  1=1  TO  70 

7400  Fuel _gai n=Fuel _gai n+Nqaln ( I >  *F  < Si de. I>  *Nga i n ( 1 01 ) 

7410  Fuel _1 ose=Fuel _1 ose+N (I) *F (Side, I) *  N ( 101) 

7420  Fuel _sys=Fuel _sys+Sys(I> *F (Side. I) *N ( 101 > 

7430  Ammo_gai n(W(Side, I) ) =Amma_gai n(W(Side,J)>  +A (Side, I ) *Ngai n ( 1 1 8+W (Side, I ) ) 

*Ngai n ( I ) 

7440  Ammo_l  ose  (W  (Side.  I  >  )  =Ammo  1  ose  <W(Side.  I)  )  +A (Si de.  I  )  #N  ( 1  18+W  (Side.  I)  >*N(I 

> 

7450  Ammo_sys (W (Side.  I  >  )  =Ammo_sys  (W  (Si de.  I ) >  +A (Si de. I >  *N (  1 18+W  (Side.  I )  )  *Sys  ( I 
) 

7460  NEXT  I 

7470  Fuel _gai n=Fuel _gai n+Fuel _sys 
7480  Fuel _1 ose=Fuel _1 ose-Fuel  sys 
7490  FOR  1=1  TO  3 

7500  Ammo_gai  n  <  I  >  =Ammo_gai  n  ( I )  +Ammo_sys  <  I ) 

7510  Ammo_l ose ( I ) =Ammo  1 ose ( I > -Ammo_sys ( I ) 

7520  NEXT  1 

7530  FOR  1=1  TO  70 

7540  Ngai n ( I ) =Ngai n ( I ) +Sys ( I ) 

7550  N ( I ) =N  < I ) -Sys  < I ) 

7560  Tag ( W (Si de, I) >=Tag(W(Si de, I> )+Ngain(I)#A(Side, I) 

7570  Tal <W(Side, I) >=Tal < W (Si de, I >  > +N ( I >  *A (Si de, I > 

7580  T  ot_Fuel  _gai  n=Tot _Fuel  _gai  n+Ngai  n  (I)*F(Side,  I) 

7590  Tot_F uel  _1  ose=Tot_-f  uel  1  ose+N  ( I )  *F  (Si  de,  I ) 

7600  NEXT  I 

7610  REM  -  UPDATE  UNIT  AMMO/FUEL  STATUS 

7620  FOR  1=1  TO  3 

7630  IF  Tag ( I ) =0  THEN 

7640  Ngain ( 1 18+1 >=0 

7650  ELSE 

7660  Ngain ( 1 18+I ) =Ammo_gai n ( I > /Tag ( I > 

7670  END  IF 

7680  IF  Ngain ( 1 18+1 ) >1  THEN  Ngain ( 1 18+1 ) =1 
7690  IF  Tal ( I ) =0  THEN 

7700  N ( 1 18+1 ) =0 

7710  ELSE 

7720  N ( 1 18+1 ) =Ammo_l ose(I)/Tal (I) 

7730  IF  N ( 1 18+1 ) >1  THEN  N(118+I>=1 

7740  END  IF 

7750  NEXT  I 

7760  IF  Tot_f uel _gai n=0  THEN 
7770  Ngain ( 101 ) =0 

7780  ELSE 

7790  Ngai n ( 101 ) =Fuel _gai n/Tot  fuel_gain 

7800  END  IF 

7810  IF  Ngai n(101) >1  THEN  Ngain(101)=l 
7820  IF  Tot  Fuel  lose=0  THEN 
7830  N ( 1 oT ) =0 

7840  ELSE 

7850  N(101)=Fuel _1 ose /Tot _ Fuel _1 ose 

7860  END  IF 

7870  REM  -  CALCULATE  UNIT  EFFECTIVENESS 
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7880  E-f-f_aain=0 
7890  E-f -f  ~lose=0 
7900  FOR  1=1  TO  70 

7910  £f  -f  _gai  n=Ngai  n  <  I  >  *S  (Si  de,  I 1  +E-f  f  gain 

7920  Ef  f  _1  ose=N  ( 1 1  *S  (Si  de,  1 1  +EF  +  _1  ose 

7930  NEXT  I 

7940  IF  Ugai n (71 >  =0  THEN 
7950  Ngai n (79) =0 

7960  ELSE 

7970  Ngai  n  ( 79 )  =EF -f  _gai  n /Ugai  n  <7 1  > 

7980  END  IF 
7990  IF  U (711=0  THEN 
8000  N (791=0 

8010  ELSE 

8020  N (791 =EF f _1 ase/U (711 

8030  END  IF 

8040  REM  -  WRITE  TO  FILE 
8050  OUTPUT  (?Puni  t ,  G;  Ngai  n  ( *  1 
8060  OUTPUT  <?Punit,L;N(*l 
8070  OUTPUT  <?Ptoe,  G; Ugai n ( *  1 
8080  OUTPUT  6*Ptoe,  L;  U  (  #  1 

8090  INPUT  "ANY  MORE  ELEMENTS  TO  TRANSFER?  (Y  OR  N1".Q* 

8100  IF  OS="N"  THEN  8120 

8110  IF  OS="Y"  THEN  El ement_input 

8120  INPUT  "ANY  MORE  UNITS  TO  TRANSFER?  (Y  OR  N1",QS 
8130  IF  C!*<  Y"  AND  Q«<:  >“N"  THEN  8120 
8140  IF  Q4="Y"  THEN  Start_input 
8150  Transend:  ! 

8160  RETURN 

8170  ! - 

8180  Game  turn:  : 

8190  !  PRINT  USING  "<?" 

8200  'PRINTER  IS  702 
8210  'PRINT  USING  "e" 

8220  PRINT  '•**#***»***  GAME  TURN  RESUPPLY  ************" 

8230  PRINTER  IS  1 

8240  PRINT  "ENTER  UNIT  FILE  CHANGES  FOR  GAME  TURN" 

8250  REPEAT 

8260  PRINT  USING  "//" 

8270  REPEAT 

8280  INPUT  "ENTER  UNIT  NUMBER  (1-400,  999=ST0P1".I 

8290  UNTIL  I <=400  AND  I>=1  OR  1=999 

8300  IF  1=999  THEN  GOTO  The_end 

8310  PRINT  "UNIT  " ; I 

8320  PRINT 

8330  PRINT 

8340  ENTER  <?Punit,  I  ;N(#1 

8350  ' 

8360  REPEAT 

8370  REPEAT 

8380  INPUT  "ENTER  LINE  #  <1-6,  999=NEXT  UNIT1  " . L 

8390  UNTIL  L=1  OR  L=2  OR  L=3  OR  L=4  OR  L=5  OR  L=6  OR  L=999 
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8400  IF  L=999  THEN  GOTO  End_lines 

8410  ON  L  GOSUB  Li nel , Li ne2, Li ne3, Li ne4 , Li ne5. Li ne6 

8420  End  lines:  ! 

8430  UNTIL  L=999 

8440  OUTPUT  ©Pun it. I: N(*> 

8450  UNTIL  1=999 
8460  The_end: ! 

8470  RETURN 
8480  Linel : ! 

8490  PRINT  "  LINE  1:" 

8500  INPUT  "ENTER:  ACTIVITY.  MOPP  LEVEL,  MISSION,  KV  MOVED" . N (82) , N (77) , N (83) , r 
(146) 

8510  CALL  Ck_var ("ACTIVITY", "OR", N(82) .0,2) 

8520  CALL  Ck_var("MOPP  LEVEL" , "OR" , N (77) . 1 , 2> 

8530  GOSUB  Uni tf i 1 e_di sk 

8540  PRINT  "  " , N (82) , N (77) , N (83) , N ( 146) 

8550  PRINTER  IS  1 
8560  RETURN 
8570  Line2: ! 

8580  PRINT  “  LINE  2:" 

8590  INPUT  "ENTER:  SENSOR  GP,  ZONE,  PCT  COVERED" , N89y . N (89 1 , N (90) 

8600  CALL  Ck_var ( "SENSOR  GROUP" , "TO" . N89y , 0, 9) 

8610  CALL  Ck_var ("ZONE", "T0",N(89> , 1 ,5) 

8620  CALL  Ck_var("PCT  COVERED" , "THRU" , N (90) , O, 100) 

8630  PRINT  “ , N89y , N ( 89 ) , N ( 90 ) 

8640  PRINTER  IS  1 

8650  N ( 89 ) = ( I NT ( N ( 89 ) ) )+(N89y/10) 

8660  N ( 90 ) =N ( 90 ) / 1 00 
8670  RETURN 
8680  Li ne3: ! 

8690  PRINT  "  LINE  3:" 

8700  INPUT  "ENTER  PCT  ADA  SUPPRESSION  DATA:'  Vehicle,  Hand  held,  Corps  ada",N(8< 

) , N80y , Xx 

8710  IF  Xx=0  THEN 
8720  N ( 8 1 ) =N (81) 

8730  ELSE 
8740  N (81 ) =Xx 

8750  END  IF 

8760  CALL  Ck  var ( "Vehi cl e" . "TO" , N (BO)  ,  0 , 99) 

8770  CALL  Ck_var("Hand  hel d" , "TO" , N80y ,  0, 99) 

8780  PRINT  " , N ( 80 ) , N80y ,  N  <  8 1 ) 

8790  PRINTER  IS  1 

8800  N ( 80 )  =  ( I NT ( N ( 80  > ) )  +  (N80y/100) 

8810  RETURN 
8820  Line4: • 

8830  PRINT  "  LINE  4:" 

8840  INPUT  "ENTER  RESUPPLY  DATA:  DF (Tons) , IF (Tons) , AD (Tons) ,  FUEL  (Gal )", N1 , N2. r 
3,  N ( 1 lO) 

8850  N ( 1 35  >  =N 1 +N2+N3 
8860  IF  (N1+N2+N3) =0  THEN 
8870  Ndf =0 

8880  Ni 4=0 
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8890  N ( 1 36 > =0 

8900  END  IF 

8910  PRINT  “  DF" . "  IF"."  ADA" . "TOTAL" , "FUEL" 

8920  PRINT  "  " , N1 , N2, N3, N ( 135) , N ( 1 10) 

8930  IF  N  < 135) <=0  THEN  9050 
8940  ! FOR  J=1  TO  3 

8950  ! IF  N(J>«0  THEN 

8960  ! GOTO  4467 

8970  ! ELSE 

8980  !N(J)=100*N(J)/N(135) 

8990  ! END  IF 

9000  ! NEXT  J 

9010  Ndf=Nl/ (N1+N2+N3) 

9020  Nif=N2/  (N1+N2+N3) 

9030  IF  Ni f  =  1  THEN  Nif«.999 
9040  N ( 136) *<INT(Ndf *1000)  )+Ni-f 
9050  PRINTER  IS  1 
9060  RETURN 
9070  Li ne5: ! 

9080  PRINT  "  LINE  5s “ 

9090  INPUT  "ENTER  DISPENSED  DATA:  DF (Tons >. IF (Tons >.  AD (Tons) .  FUEL (Gal )". Nl . N2 
N3 , N ( 1 1 2  > 

9100  N ( 1 37 )  *N  1 +N2+N3 
9110  IF  N ( 137) “O  THEN 
9120  Nd-f  =0 

9130  Ni f  =0 

9140  N ( 138) =0 

9150  END  IF 

9160  IF  N(137)<»0  THEN  9300 

9170  PRINT  "  "  DF","  IF","  ADA" , "TOTAL" . "FUEL" 

9180  PRINT  "  ",N1,N2,N3,N(137) .N(112> 

9190  ! FOR  J  =  1  TO  3 

9200  'IF  N(J)=0  THEN 

9210  ! GOTO  4492 

9220  ‘ELSE 

9230  !N(J)«100*N(J) /N ( 137) 

9240  ! END  IF 

9250  ! NEXT  J 

9260  Ndf  *=N1  /  (Nl  +N2+N3 ) 

9270  Nif«N2/ (N1+N2+N3) 

9280  IF  Nif=»l  THEN  Nif-,999 
9290  N ( 138) ” ( I NT (Ndf  * 1000 ) >  +Ni f 
9300  PRINTER  IS  1 
9310  RETURN 
9320  Line6:  ! 

9330  IF  I >191  THEN  PRINT  "  LINE  6:  GR  RADAR,  CB  RADAR,  LRRP,  SLAR,  RPV,  FO " 
9340  IF  I< 192  THEN  PRINT  "  LINE  6t  GR  RADAR,  CB  RADAR,  LRRP,  RPV,  SLAR.  FO" 
9350  INPUT  N (95) , N (96 ) , N (97 ) , N  < 98 ) , N (99 ) , N ( 1 OO) 

9360  PRINT  "  LINE  6s  " ; N (95) ; N (96) ; N (97) ; N (98) ; N (99) ; N ( 100) 

9370  PRINTER  IS  1 
9380  RETURN 

9390  ' - 
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1 r 


9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9490 

9500 

9510 

9520 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 

9620 

9630 

9640 

9650 

9660 

9670 

9680 

9690 

9700 

9710 

9720 

9730 

9740 

9750 

9760 

9770 

9780 

9790 

9800 

9810 

9820 

9830 

9840 

9850 

9860 

9870 

9880 

9890 

9900 

9910 


Cal  c_combat_e-f  f  :  ' 
ENTER  ffPtcie. I;U(*> 
U0=0 

k  =  INT  <N  < 78) ) 

IF  K=0  THEN  9490 
FOR  J  =  1  TO  70 
'  U0=U0+N(J> *S <K. J> 
NEXT  J 

N  <79) =U0/U (71) 

GOSUB  Uni tf i 1 e_di sk 
RETURN 


Uni tt i 1 e_di sk : 

N1  =  INT  < N (83) ) 

IF  N (78) =0  THEN  9760 
! SET  MAJOR  MISSION 
SELECT  N1 
CASE  0 
N (75) =4 
CASE  1 
N  <  75)  ■»  1 
CASE  2 
N  ( 75)  «=4 
CASE  3  TO  4 
N (75) =1 
CASE  5  TO  7 
N (75) =2 
CASE  8 
N  <  75 ) =3 
CASE  9 
N (75) =4 
END  SELECT 
N ( 1 27  >  =N ( 83 ) 

N ( 128) =N (83) 

N ( 129) =N (83) 

N  <  107)  «=N  (83) 

OUTPUT  iSPunit,  I;N(*) 

RETURN 

<Mtt**$*t**$** *$$$****t *t *»***» *t **$*$$*$**$*$**$$$****$****$*** ******** 
Zero_uni  t : 

M*=" 

IF  Choi cet="B"  THEN 

INPUT  "ZERO  OUT  WHICH  UNIT?”, Unit 
IF  Unit < 1  OR  Unit >400  THEN  9820 
FOR  K«1  TO  150 
N (K) =0 
NEXT  K 

OUTPUT  tfP(.init,Unit;NU) 

OUTPUT  @Ptoe:N<*) 

OUTPUT  li'Pname,  Uni  t ;  MS 
RETURN 
END  IF 
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9920  IF  Choi ceS="C"  THEN 
9930  FOR  Unit=l  TO  191 
9940  FOR  K=1  TO  150 

9950  N  <K) =0 

9960  NEXT  K 

9970  OUTPUT  ©Puni t , Uni t ; N < * > 

9980  OUTPUT  ©Ptoe;N<*> 

9990  OUTPUT  ©Pn  ame ,  Un  i  1 ;  M* 

10000  NEXT  Unit 
10010  RETURN 
10020  END  IF 

10030  IF  Choi ce*="D"  THEN 
10040  FOR  Unit-192  TO  400 
10050  FOR  k=l  TO  150 

10060  N  (10=0 

10070  NEXT  K 

10080  OUTPUT  ©Pun it,Unit;N<*> 

10090  OUTPUT  ©PtaejNl*) 

10100  OUTPUT  ©Pname , Un i t ; M* 

10110  NEXT  Unit 
10120  RETURN 
10130  END  IF 

10140  IF  Choi ce*="E“  THEN 
10150  FOR  Uni t“l  TO  400 
10160  FOR  K«1  TO  150 

10170  N (K) =0 

101 SO  NEXT  K 

10190  OUTPUT  g'Puni  t ,  Un  i  t ;  N  ( * ) 

10200  OUTPUT  ©Ptoe;N<*) 

10210  OUTPUT  ©Pname, Uni tjM* 

10220  NEXT  Unit 
10230  RETURN 
10240  END  IF 

10250  IF  Choice*="F"  THEN 

10260  PRINT  "ZERO  OUT  FROM  WHICH  UNIT  TO  WHICH  UNIT?" 

10270  INPUT  "(INPUT  STARTING  UNIT  NUMBER. ENDING  UNIT  NUMBER) ",  First , Last 
10280  IF  FirstCl  OR  First>Uast  THEN 

10290  PRINT  "ERROR  IN  STARTING  UNIT  NUMBER.  TRY  AGAIN." 

10300  GOTO  10260 

10310  END  IF 

10320  IF  Last<First  OR  Last>400  THEN 

10330  PRINT  "ERROR  IN  ENDING  UNIT  NUMBER.  TRY  AGAIN." 

10340  GOTO  10260 

10350  END  IF 

10360  FOR  Unit-First  TO  Last 

10370  FOR  K— 1  TO  150 

10380  N(K)-0 

10390  NEXT  K 

10400  OUTPUT  ©Pun it,Unit;N<*) 

10410  OUTPUT  ©Ptoe;N<*> 

10420  OUTPUT  ©Pname. Uni t;M* 

10430  NEXT  Unit 
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10440  RETURN  ^ 

10450  END  IF 
10460  RETURN 

10470  ! - 

10400  Subprogr am_end :  ' 

10490  LOAD  "DIME'^Disk* 

10500  END 

10510  I*********************************************************** :****»*»  ****** 
10520  SUB  Ck_var  (Var_namet,T*(Variahle,t1in_value.MaK_value) 

•0530  SELECT  T* 

10540  CASE  "THRU" 

10550  WHILE  Var i ab 1 e< Mi n_va 1 ue  OR  Variable>Max_value 

10560  GOSUB  Print_error 

10570  END  WHILE 

10580  CASE  "OR" 

10590  GOTO  Case  to 

10600  CASE  "TO" 

10610  Case_tosFOR  M=Min_value  TO  Max_value 

10620  IF  Var iable=M  THEN  GOTO  End_*elect 

10630  NEXT  M 

10640  GOSUB  Prlnt_error 

10650  GOTO  Case_to 

10660  End_select: I 

10670  END  SELECT 

10680  GOTO  Rtrn 

10690  Print_error:  1 

10700  PRINT 

10710  PRINT  “**  ERROR:  ":Variable;"  IS  INVALID  FOR  ";Var_name* 

10720  PRINT  "INPUT:  " ; Mi n_val ue;  "  ";T*;"  " ; Max_val ue: "  ONLY" 

10730  INPUT  Variable 
10740  RETURN 

10750  Rtrn: ! 

10760  SUBEND 
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CHAPTER  3 


DETECTION 


1.  PURPOSE. 

The  DIME  detection  program  attempts  to  portray  the  detection  of  units  and 
the  intelligence  fusion  process  necessary  to  recognize  unit  type  and 
location. 

2.  GENERAL. 

A.  The  DIME  detection  program  (P7)  is  a  straightforward  adaptation  of 
the  DAME  detection  module  discussed  in  CAORA/TR-5/83,  Deep  Attack  Map 
Exercise  (DAME)  Game  Rules  and  Operation  Procedures. 

B.  The  detection  program  consists  of  a  main  program  and  15  associated 
data  bases. 

C.  The  program  requires  gamer  inputs  describing  the  location  of  each 
enemy  sensor  group  covering  the  targeted  unit.  Output  from  the  program 
consists  of  a  list  of  units  which  have  been  detected  (simply  found  but  not 
fully  identified),  verified  (found,  identified,  and  being  tracked),  or  lost 
(previously  verified/detected  but  now  lost).  The  list  represents  the 
intelligence  map  held  by  the  friendly  commander.  In  essence,  it  is  his  view 
of  the  battlefield  with  respect  to  enemy  units  and  is  intended  to  be  used  as 
a  basis  for  his  decision  to  tactically  respond  to  these  units.  The  program 
provides  one  list  for  the  Blue  commander  and  one  list  for  the  Red  commander. 

3.  DATA  FLOW. 

A.  The  detection  program  uses  three  types  of  data  inputs:  the  unit 
status  file  ("UNITFILE") ,  auxiliary,  and  online  data  files. 

(1)  The  detection  program  accesses  the  "UNITFILE"  for  the  following 
inputs: 


(a)  Sensor  status  (element  89) 

(b)  Unit  type  (element  78) 

(c)  Unit  fraction  covered  by  sensor  groups  (element  90) 

(d)  Detection  status  (element  91) 

(e)  Intelligence  status  (element  92) 

(f)  Activity  code  (element  82) 
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(2)  The  auxiliary  stored  data  is  generated  by  running  14  support 
programs.  Table  3-1  indicates  these  14  support  programs  and  the  resulting 
files  created  by  executing  these  programs.  A  complete  discussion  of  the 
file  structure  for  these  15  files  is  covered  under  paragraph  4  of  this 
chapter.  For  further  information,  refer  to  Volume  III  of  the  DIME 
documentation. 

(3)  The  detection  program  uses  four  online  data  files: 

(a)  Exposure  profiles  for  individual  elements  in  a  unit  (Table  3-2) 

(b)  Red  intelligence  thresholds  (Table  3-3) 

(c)  Blue  intelligence  thresholds  (Table  3-4) 

(d)  Unit  movement  profile  (Table  3-5). 


B.  The  detection  program  combines  the  inputs  listed  in  paragraph  3A 
with  the  three-step  methoaology  discussed  under  paragraph  5  to  provide  the 
following  outputs: 

(1)  A  list  of  units  which  have  been  detected,  verified,  or  lost. 

(2)  An  updated  "UNITFILE"  for  the  next  critical  incident  (Cl). 


C.  Figure  3-1  indicates  the  generalized  data  flow  for  the  detection 
program. 


4.  FILE  STRUCTURE. 

The  detection  program  requires  15  auxiliary  files,  four  online  files,  and 
the  "UNITFILE".  This  section  will  address  the  file  structure  for  these  data 
files. 


A.  Auxiliary.  The  auxiliary  files  consist  of  15  files:  REDPOTA,  BLUP0T1, 
RFLEE,  BFLEE,  BLBDG,  RDBDE,  RDCOR,  RS1T06,  BS1T06,  RTHOLD ,  BTHOLD,  REI,  BEI, 
RSENPRO,  and  BSENPRO. 


Table  3-1.  Detection  data  support  programs. 


Program 

Name 

Purpose 

Resulting  | 
File  Name  ! 

LDBP0T1 

Loads  the  POTA*  data  for  Red  sensors 
detecting  Blue  units. 

BLUP0T1  ! 

1 

LDRrOTA 

Loads  the  30TA*  data  for  Blue  sensors 
detecting  Red  units. 

REDPOTA  i 

1 

L3FLEE 

Loads  the  target  movement  profile  for  the  Blue 
units. 

BFLEE  | 

i 

IF  FLEE 

Loads  the  target  movement  profile  for  the  Red 
units . 

RFLEE  j 

! 

LSLBOG 

Loads  the  sensor  data  for  Blue  battalions  in 
contact  between  0-10  km. 

BLBDG 

. 

LRDBOE 

Loads  the  sensor  data  for  Red  regiments  in 
contact  between  0-10  km. 

RDBDE  I 

1 

LRDCOR 

Loads  the  sensor  data  for  Rea  commanders  for 
units  between  0-3  km. 

RDCOR 

LES1T06 

Loads  the  detection  probabilities  for  six  Blue 
sensors  against  5  signature  types. 

BS1T06 

LRS1T06 

Loads  the  detection  probabilities  for  six  Red 
sensors  against  5  signature  types. 

RS1T06  j 

LBTHOLO 

Loads  the  Blue  intelligence .threshold 
percentages  developed  by  DAME. 

BTHOLD 

! 

LRTHOLD 

Loads  the  Red  intelligence  threshold 
percentages  developed  by  DAME. 

RTHOLD  j 

LEE1 

Loads  the  Blue  sensor  profile  data  developed 
by  DAME. 

BE  I 

LRE I 

Loads  the  Red  sensor  profile  data  developed 
by  DAME. 

RE  I 

GROUPBID 

Loads  the  Blue  and  Red  sensor  groups. 

6SENPR0 

RSENPRO 

♦Probability  of  operational  target  acquisition. 
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Table  3-2. 

Fractional  target  exposure  criteria.  (Target 
are  exposed  in  various  mission  postures.) 

fractions  which 

Target  element  categories 

Mission 

Personnel 

Vehicles 

Tanks /APC 

Artillery 

Rockets 

Attack 

.40 

.75 

.75 

.75 

.75 

Defend 

.10 

.30 

.30 

.60 

.50 

Reserve 

.30 

.40 

.40 

.60 

.50 

Move 

.10 

.65 

.65 

.60 

.50 

Table 

3-3.  Red  intelligence  thresholds,  (fraction  of  exposed  Blue 
elements  which  must  be  detected  to  correctly  associate 
elements  with  Blue  unit  types.) 

Target  element  categories 

Unit  Type 

Personnel 

Vehicles 

Tanks/ APC 

Artillery 

Rockets 

Combat 

.20 

.40 

.50 

.50 

.40 

Artillery 

.20 

.40 

.50 

.50 

.40 

ADA 

.20 

.40 

.60 

.50 

.40 

AH  Gnd/FARP 

.20 

.40 

.20 

.20 

.40 

CP/HQ 

.20 

.30 

.40 

.20 

.40 

Engineer 

.20 

.40 

.60 

.20 

.40 

POL/ Ammo 

.20 

.45 

,80 

.20 

.40 

Maintenance 

.20 

.50 

.40 

.20 

.40 

SAM 

.20 

.30 

.20 

.30 

.40 

Radar/EW 

.20 

.40 

.10 

0 

.40 

Table  3-4.  Blue  intelligence  thresholds.  (Fraction  of  exposed  Red 
elements  which  must  be  detected  to  correctly  associate  with 
Red  unit  types.) 

Target  element  categories 


Unit  Tvne 

Personnel 

Vehicles 

Tanks/APC 

Artillery 

Rockets 

Combat 

.20 

.25 

.35 

.30 

.40 

Artillery 

.20 

.25 

.35 

.35 

.40 

ADA 

.20 

.30 

.35 

.30 

.40 

AH  Gnd/FARP 

.20 

.35 

.20 

.20 

.40 

CP/HQ 

.20 

.30 

.40 

.20 

.40 

Engineer 

.20 

.25 

.40 

.20 

.40 

POL/Ammo 

.20 

.40 

.40 

.20 

.40 

Maintenance 

.20 

.40 

.40 

.20 

.40 

SAM 

.20 

.30 

.20 

.30 

.40 

Radar /EW 

.20 

.40 

.10 

0 

.40 
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Table  3-5.  Time  intervals  between  unit  movements  to  avoid  detection 


Unit 

Red  stationary 

Blue  stationary 

type 

time  (hours) 

time  (hours) 

Combat 

2 

2 

Artillery 

3 

4 

ADA 

3 

3 

AH  Gnd/FARP 

3 

3 

CP/HQ 

2 

6 

Engineer 

4 

6 

POL/ Ammo 

12 

12 

Maintenance 

24 

24 

SAM 

24 

24 

Radar/EW 

3 

6 

3-6 
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Figure  3-1.  Detection  data  flow. 


(1)  REDPOTA.  A  file  containing  10  records  representing  the 
probability  of  operational  target  acquisition  (POTA)  for  the  Blue  sensors 
detecting  the  Red  targets.  Each  record  contains  the  probability  of 
detection  as  a  function  of  10  targets/units  and  five  zones. 


(a)  Targets/units. 

1_.  Combat. 

2.  Artillery. 

3.  Air  defense  (ADA). 

4.  Attack  helicopter  ground  forward  arming  and  refueling 
point  (FARP). 

5.  Command  post/headquarters  (CP/HQ). 

6.  Engineer. 

7.  Fuel/annnunition  (POL/AMMO)  supply  point. 

8.  Maintenance  point. 

9.  Surface-to-air  missile  (SAM)  site. 

10.  Communication/radar /electronic  warfare  (EW)  site. 

(b)  Target  surveillance  zones. 


If 

Zone  I. 

0-3  km  beyond  Forward  Edge  of  the  Battle  Area 

2. 

Zone  II. 

3-12  km  beyond  FEBA. 

3. 

Zone  III. 

12-25  km  beyond  FEBA. 

4. 

Zone  IV. 

25-100  km  beyond  FEBA. 

5. 

Zone  V. 

100-200  km  beyond  FEBA. 

(2)  BLUP0T1.  Same  as  REDPOTA  except  this  file  contains  the 
probability  of  operational  target  acquisition  (POTA)  of  the  Red  sensors 
detecting  the  Blue  targets. 

(3)  RFLEE.  A  file  containing  the  stationary  profile  time  for  the  10 
targets  listed  under  REDPOTA  above.  This  file  contains  one  record  with  10 
entries.  Each  entry  represents  the  time  in  hour9  a  Red  target  remains 
stationary  until  it  moves. 
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(4)  BFLEE.  Same  as  RFLEE  except  this  file  contains  the  stationary 
profile  time  for  the  Blue  targets. 

(5)  BLBDG.  A  file  containing  the  probability  of  a  Blue  reconnaissance 
party  detecting  any  of  the  10  Red  targets  within  10  kilometers  of  the  Blue 
battalion. 

(6)  RDBDE.  Same  as  BLBDG  except  this  file  contains  the  probability  a 
Red  reconnaissance  party  can  detect  any  of  the  10  Blue  targets  when  the  Red 
brigade  is  in  contact. 

(7)  RDCOR.  A  file  containing  the  probability  a  Red  commander  can 
detect  and/or  verify  10  Blue  units  within  0-3  km  from  Red  commander. 

(8)  RS1T06.  A  file  containing  the  probability  of  detection  for  six 
Red  sensors  detecting  five  target  types.  The  file  consists  of  30  records. 
The  records  are  structured  in  the  following  manner  where: 

Sensor  1  is  Small  Fred. 

Sensor  2  is  Big  Fred. 

Sensor  3  is  Forward  Observer  (F0),  day. 

Sensor  4  is  Long-range  reconnaissance  patrol  (LRRP). 

Sensor  5  is  Remotely  piloted  vehicle  (RPV)/Drones. 

Sensor  6  is  Side-looking  airborne  radar  (SLAR). 

(a)  Record  1  contains  the  probability  that  sensor  1  can  detect 

personnel  located  in  zones  1-5  (see  REDP0TA  above  for  zones).  Each  record 
has  five  entries. 

(b)  Record  2  contains  the  probability  that  sensor  1  can  detect 

vehicles  located  in  zones  1-5. 

(c)  Record  3  contains  the  probability  that  sensor  1  can  detect 

tanks/armored  personnel  carriers  located  in  zones  1-5. 

(d)  Record  4  contains  the  probability  that  sensor  1  can  detect 

artillery  targets  located  in  zones  1-5. 

(e)  Record  5  contains  the  probability  that  sensor  1  can  detect 

rocket  targets  located  in  zones  1-5. 

(f)  Records  6-10  contains  the  probability  that  sensor  2  can  detect 
five  targets  (personnel,  vehicles,  tank/armored  personnel  carriers  (APCs), 
artillery,  rockets)  located  in  one  of  the  five  zones. 

(g)  Records  11-15  contains  the  probability  for  sensor  3. 

(h)  Records  16-20  contains  the  probability  for  sensor  4. 

(i)  Records  21-25  contains  the  probability  for  sensor  5. 

(j)  Records  26-30  contains  the  probability  for  sensor  6. 
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(9)  BS1T06.  Same  as  RS1T06  except  this  file  contains  the  probability 
of  detection  for  six  Blue  sensors  detecting  the  five  target  types  where: 

Sensor  1  is  AN/PPS-15. 

Sensor  2  is  AN/TPQ-37. 

Sensor  3  is  FO  (day). 

Sensor  4  is  LRRP. 

Sensor  5  is  target  acquisition  designation  aerial 
reconnaissance  system  (TADARS) . 

Sensor  6  is  SLAR  (ASARS). 

(10)  RTHOLD.  A  file  containing  the  threshold  percentage  for  five  Red 
target  types  in  10  unit  types.  The  file  has  10  records.  Each  record 
represents  one  of  10  unit  types  (see  REDPOTA)  against  five  targets 
(personnel,  vehicle,  tank/APC,  artillery,  rockets).  Each  record  contains 
five  entries  representing  the  percent  of  target  which  must  be  detected 
before  the  unit  is  detected. 

(11)  BTHOLD.  Same  as  RTHOLD  except  this  file  contains  the  threshold 
percentage  for  five  Blue  target  types  in  10  unit  types. 

(12)  REI.  A  file  containing  four  records  representing  the  percent  of 
Red  target  types  available  for  detection  in  one  of  four  missions. 

(a)  Target  types. 

1_.  Personnel . 

2.  Vehicle . 

3.  Tanks/APC. 

4.  Artillery. 

5.  Rockets . 

(b)  Missions. 

1_.  Attack. 

2.  Defend. 

3_.  Reserve. 

4.  Move. 

(13)  BEI.  Same  as  REI  except  this  file  contains  the  percent  of  Blue 
target  types  available  for  detection  in  one  of  four  missions. 
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(14)  RSENPRO.  A  file  containing  three  records  describing  three  Red 
group  profiles.  The  record  structure  is  as  follows. 

(a)  Record  1.  For  sensor  group  1,  each  entry  represents: 

1.  Number  of  ground  radars  in  group. 

2.  Number  of  artillery  radars  in  group. 

3_.  Number  of  LRRP  in  group. 

4.  Number  of  RPV  in  group. 

5.  Number  of  SLAR  in  group. 

6.  Number  of  FO  in  group. 

(b)  Record  2.  Same  as  record  1  for  sensor  group  2. 

(c)  Record  3.  Same  as  record  1  for  sensor  group  3. 

(15)  BSENPRO.  Same  as  RSENPRO  except  this  file  contains  the  three 
Blue  group  profiles  as  a  function  of  the  sensors  in  the  group. 

B.  Online.  The  online  files  consist  of  four  files:  exposure  profiles, 
Red  intelligence  threshold,  Blue  intelligence  threshold,  and  unit  movement 
profile. 

(1)  Exposure  profiles.  The  exposure  profiles  shown  in  Table  3-2 
represents  an  effort  to  relate  an  element  exposure  profile  to  each  of  the 
five  signature  types  in  one  of  four  missions. 

(a)  The  exposure  profile  data  is  contained  in  four  records  of  five 
elements  each,  where  each  record  represents  one  of  four  missions  (attack, 
defend,  reserve,  move)  and  each  element  represents  one  of  five  signature 
types  (personnel,  vehicle,  tank/APC,  artillery,  rockets). 

(b)  The  exposure  profiles  were  developed  by  the  DAME  project  team 
using  military  judgment. 

(2)  Red/Blue  intelligence  thresholds.  The  intelligence  threshold 
tables  shown  in  Tables  3-3  and  3-4  represent  the  fraction  of  exposed 
Blue/Red  elements  which  must  be  detected  to  correctly  associate  elements 
with  Blue/Red  unit  types.  The  intelligence  threshold  data  is  contained  in 
10  records  of  five  elements  each,  where  each  record  represents  one  of  10 
unit  types  (combat,  artillery,  ADA,  FARP  site,  command  post,  engineer, 
POL/ AMMO,  maintenance,  SAM,  radar)  and  each  element  represents  one  of  five 
signature  types. 

(3)  Unit  movement  profile.  The  unit  movement  profiles  shown  in  Table 
3-5  represent  the  time  intervals  between  unit  movements  to  avoid  detection. 
The  movement  profile  data  consists  of  10  records  of  two  elements  each,  where 
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each  record  represents  one  of  10  unit  types  and  each  element  represents  one 
of  two  forces  (Blue,  Red). 


C.  "UNITFILE".  The  "UNITFILE"  is  a  400-record  file  containing  150 
elements.  Records  1-191  represent  the  Blue  units  and  records  192-400 
represent  the  Red  units.  The  detection  program  requires  six  elements  on  the 
"UNITFILE." 

(1)  Sensor  status.  Element  89  contains  the  sensor  status  (X.Y)  where: 

X  =  POTA  zone  values  (1-5)  for  sensor  group  Y. 

Y  ■  Sensor  groups  (0-4)  detecting  this  particular  unit. 

0  =■  Not  covered 

1-3  ■  Applicable  Blue/Red  sensor  group 
4  *  Linear  FEBA  oriented  -  sensor  array 

Default  =  (1.4). 

(2)  Unit  type.  Element  78  contains  the  unit  type  (X.Y),  where: 

X  =  Player  ID 

1  *  Blue 

2  =  Red 

Y  =  Unit  type 
0  *  Combat 

1  =  Artillery 

2  *  ADA 

3  «  FARP 

4  =  CP/HQ 

5  *  Engineer 

6  =  P0L/AMM0  supply 

7  »  Maintenance 

8  =  SAM  site 

9  ■  Com/radar/EW  site. 


(3)  Unit  fraction  covered  by  sensor  group.  Element  90  contains  a  real 
value  of  0  -  1.0  indicating  the  fraction  of  the  unit  covered  by  a  sensor 
group. 

(4)  Detection  status.  Element  91  contains  the  detection  status  for 
each  unit  (X.Y),  where: 

X  »  Represents  hours  left  until  redetected 

Y  a  Represents  the  unit  status  with  respect  to  detection  by 
the  opposite  commander 
0  ■  Not  detected 
1  *  Detected  but  not  verified 
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2  ■  Acquired/verified 

3  *■  Lost 

(5)  Intelligence  status.  Element  92  contains  the  total  hours  this 
target  has  been  tracked  this  detection. 

(6)  Activity  code.  Element  82  indicates  the  status  of  the  unit  ar  not 
active  (0)  or  active  (1). 


5.  ALGORITHMS. 

A.  In  simulating  the  production  of  the  commander's  intelligence  map,  the 
program  considers  three  processes. 

(1)  The  ability  of  the  friendly  sensors  to  detect  individual  elements 
of  the  enemy  unit. 

(a)  Calculation  of  element  detection  by  sensor  groups  considers 
elements  of  target  units  to  be  divided  into  five  categories:  personnel, 
armored  combat  vehicle,  support  vehicles,  artillery,  and  large  rockets. 
Target  units  and  their  associated  elements  can  be  located  in  one  of  five 
range  bands  from  the  sensors.  In  order  to  simplify  game  play,  location  of 
sensor  groups  is  represented  on  the  map  board.  Sensor  groups  consist  of  one 
or  more  Individual  sensors  of  varying  types.  Sensors  in  a  group  have 
individual  detection  probabilities  limiting  their  range  effectiveness. 
However,  the  program  assumes  that  an  individually  exposed  target  element  is 
covered  by  all  persons  in  the  group  having  an  effective  range  to  that 
element.  The  probability  of  the  sensor  group  detecting  an  individual 
element  is  given  by: 

pGe  -  1  -  TT  (l-p,ie)  ni  (Eq.  3-1) 

all  i 


where: 


-  the  probability  that  an  exposed  element  of  type  e  is 
detected  by  sensor  group  G. 

P'le  m  the  probability  that  sensor  i  can  detect  element  e. 

n^  ■  the  number  of  sensors  of  type  i  in  group  G. 


(b)  As  mentioned  in  the  previous  paragraph,  the  probabilities  of 
detection  P'ie  are  range  dependent  and  hence  the  probability  of  group 
detection  Pgg  is  also  range  dependent.  The  sensor  detection  probabilities 
pie  were  developed  from  sensor  performance  parameters  found  in  the  Target 
Acquisition  Study  (TAS  II)  conducted  by  Concepts  Analysis  Activity  (CAA)  in 
1980.  The  data  is  classified  and  will  not  be  presented  in  this  document. 
However,  it  should  be  noted  that  the  probabilities  include  the  following 
parameters: 
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P^e  *  Plos  *  Pa  *  Pc  *  Pj 


(Eq.  3-2) 


P' 


ie 


where : 


Pie 


Plos 


Pa 


Pc 


Pj 


the  probability  that  sensor  i  can  detect  element  e, 
given  that  the  element  is  exposed  and  the  sensor  is 
functioning. 

probability  the  sensor  has  line  of  sight  to  the  target; 
in  cases  where  sensors  do  not  require  line  of  sight, 
this  probability  is  set  to  1. 

probability  that  the  sensor  is  available  at  the  moment 
the  target  is  exposed. 

probability  that  the  crew  manning  the  sensor  will 
recognize  the  sensor  representation  of  the  target 
element. 

probability  that  sensor  is  not  jammed.  The  jamming 
probabilities  are  currently  input  estimates  supplied  by 
the  gamer. 


(2)  The  intelligence  fusion  process  whereby  numbers  of  detected  enemy 
elemeuts  are  mapped  into  the  detection  of  enemy  units  by  friendly  personnel. 

(a)  The  ability  of  the  friendly  force  to  recognize  a  unit  from 
sensor  detections  of  individual  elements  is  represented  in  the  program  by 
two  processes.  The  first  process  describes  the  exposure  profile  of  the 
target  unit.  The  second  process  calculates  the  probability  that  the  unit 
will  be  recognized  by  intelligence  personnel  and  correctly  categorized  as 
one  of  10  unit  types. 

(b)  The  exposure  profiles  for  individual  elements  in  a  unit  are 
shown  in  Table  3-2.  All  target  unit  elements  in  the  DIME  unit-  files  are 
categorized  by  the  detection  program  as  one  of  five  signature  types.  The 
exposure  percentages  shown  in  Table  3-2  are  then  applied  to  the  sum  of  the 
unit  elements  giving  the  number  of  elements  exposed  to  the  sensors.  Table 
3-2  was  developed  by  the  DAME  project  team  using  military  judgment.  It 
represents  an  effort  to  relate  an  element  exposure  profile  to  the  unit 
mission. 


(c)  Tables  3-3  and  3-4  are  percentages  which  are  applied  to  the 
numbers  of  exposed  target  elements.  The  resulting  numbers  of  elements  are 
intelligence  thresholds  used  by  the  program  to  simulate  the  fusion  process 
of  identifying  a  unit  from  its  parts.  The  example  in  figure  3-2  provides  an 
overview  of  the  use  of  Tables  3-3  and  3-4  by  the  program.  A  Blue  battalion 
executing  a  "move"  mission  has  the  number  of  elements  as  shown  in  the  DIME 
"UNITFILE".  These  elements  are  then  categorized  into  the  five  types  shown 
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STEP  2.  Exposure  profile  data 
(Table  3-3)  is  applied  to  element 
categories.  The  number  of  elements 
is  determined. 


Personnel  Vehicles  AFV  Artillery  Rockets 


Figure  3-2.  Example  use  of  intelligence  threshold  data. 
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in  step  1.  In  the  second  step,  the  program  extracts  the  exposure  profile 
percentages  for  a  "move"  from  Table  3-2  and  calculates  these  numbers  of 
elements  exposed  to  that  sensor  group.  In  step  three,  the  intelligence 
profile  is  extracted  from  Table  3-3  and  applied  to  the  exposed  elements  to 
generate  the  numbers  of  unit  elements  representing  intelligence  thresholds. 
These  represent  the  number  of  elements  which  must  be  detected  before  the 
intelligence  map  is  posted  with  a  unit  detection.  In  the  example,  two 
personnel,  five  vehicles,  22  tanks,  and  two  artillery  pieces  must  be 
detected  before  the  unit  will  be  detected  as  a  battalion. 

(d)  The  detection  program  uses  a  normal  approximation  of  the 
binomial  distribution  to  calculate  the  probability  of  detecting  the  least 
threshold  number  of  elements  in  each  category  in  the  following  manner: 


Pce  =  1  -  <D[(Te  -  Xe)/Ae  ]  (Eq.  3-3) 

where: 

Pce  =  probability  that  the  intel  personnel  receiving  reports 
from  sensor  group  c  will  detect  enough  category  e 
elements  to  identify  the  unit. 

fl)  (X)  =  the  cumulative  normal  density  function  evaluated  to  X. 

4 

Te  =  the  number  of  threshold  elements  of  category  e  needed  to 
detect  the  unit. 


Xe  ,  Ae 


the  mean  and  standard  deviation  of  the  normal 
approximation  to  the  binomial  distribution. 


Te  is  represented  by: 

Te  =  Se  *  Ee  *  Ie  *  Z  (Eq.  3-4) 

where : 

Se  =  the  sum  of  elements  of  type  e  in  the  unit. 

Ee  =  the  fraction  of  elements  of  type  e  exposed  under  the 

current  mission  (see  Table  3-2). 

Ie  =  the  minimal  fraction  of  elements  of  type  e  which  must  be 
detected  before  the  unit  can  be  detected  (see  Tables  3-3 
and  3-4). 

Z  =  a  factor  adjusting  the  intelligence  threshold  for  units 
which  were  previously  detected  but  are  now  lost.  Z  = 
1.0  for  units  not  previously  detected  and  0.75  for 
units  lost  during  tracking. 
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Xe  is  represented  by: 

Xe  “  Se  *  Ee  *  PGe  (Eq.  3-5) 

where : 

Se  and  Ee  are  described  above  and  PGe  =  probability  that  sensor 
group  G  will  detect  an  element  of  type  e. 

Ae  is  represented  by: 

Ae  -  Se  *  Ee  *  PQe  *  (1  -  PGe  )  (Eq.  3-6) 

where  Se,  Ee  and  PQg  are  as  described  above. 


The  detection  program  calculates  PQg  for  each  element  category  within  the 
unit.  These  probabilities  are  used  in  a  Monte  Carlo  evaluation  to  determine 
which  categories  are  detected  within  the  unit.  Units  are  "detected"  and 
posted  on  the  intelligence  list  if  one-half  or  more  of  their  element 
categories  are  detected. 

(e)  The  use  of  target  exposure  profiles  (Table  3-2),  intelligence 
detection  profiles  (Tables  3-3  and  3-4),  and  the  normal  binomial 
approximation  structure  has  some  inherent  assumptions  and  limitations.  The 
reader  is  reminded  that  due  to  a  paucity  of  field  data.  Table  3-2  was 
developed  using  military  judgment.  The  underlying  assumption  in  the  use  of 
this  table  is  that  the  unit  mission  (not  the  unit  type)  describes  the  level 
of  concealment  the  unit  is  able  to  achieve.  Tables  3-3  and  3-4  are  totally 
subjective  in  nature.  They  were  also  developed  by  the  DAME  programming  team 
using  military  judgment.  They  were  built  under  the  assumption  that  a  good 
intelligence  officer  will  identify  units  with  some  prior  knowledge  of  their 
type  and  mission.  He  will  have  maps  to  estimate  reasonable  deployment  areas 
and  some  knowledge  of  enemy  force  structures  to  guide  him  in  use  of  sensor 
reports.  Finally,  the  use  of  the  normal  approximation  of  the  binomial 
distribution  works  well  when  units  have  several  elements.  In  a 
battalion/regimental  game  where  most  categories  have  more  than  10  elements, 
it  is  adequate.  Care  should  be  used  in  applying  it  to  smaller  units. 

(3)  Unit  losses  and  unit  verification. 

(a)  Following  the  detection  of  a  target  unit,  the  program  also 
represents  the  tracking  of  that  unit  by  the  sensor  groups.  Units  are 
allowed  to  change  positions  to  avoid  detection  at  a  tactically  realistic 
rate.  Table  3-5  contains  the  unit  movement  profile  showing  the  time 
intervals  at  the  end  of  which  a  unit  will  purposefully  move  to  confuse  the 
sensors.  This  table  was  also  based  on  data  used  in  the  TAS  II  study.  This 
movement  should  not  be  confused  with  a  "move"  mission  where  a  unit  is 
required  to  travel  to  another  point  on  the  battlefield.  The  avoidance 
movement  is  merely  a  changing  of  positions  while  maintaining  the  same 
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mission  and  staying  in  the  same  tactical  area.  The  program  uses  the 
following  set  of  automated  rules  to  represent  tracking  of  detected  units. 

1_.  Units  that  are  detected  remain  detected  until  they  move. 

2.  Units  that  move  to  avoid  detection  must  be  redetected 
following  their  movement. 

3.  Units  that  are  executing  a  move  mission  must  be  redetected 
every  three  hours. 

4.  Previously  detected  units  that  are  not  redetected  during  a 
move  are  placed  in  a  "lost"  status  for  three  hours.  If  not  redetected 
during  the  next  three  hours,  they  are  moved  to  an  "undetected"  status  and 
are  removed  from  the  intelligence  list. 

5.  Detection  thresholds  are  lowered  to  75  percent  of  their 
normal  values  for  redetecting  moving  units  or  units  in  a  "lost"  status. 

(b)  The  program  represents  three  states  of  unit  detection. 

1_.  Detected  -  a  unit  has  been  found  and  its  type  has  been 
identified.  Its  mission,  exact  location,  and  strength  are  unknown. 

4 

2.  Verified  -  The  type  and  exact  location  of  a  unit  are  known. 
A  reasonable  estimate  has  been  made  of  unit  mission  and  strength. 

3_.  Lost  -  A  previously  detected  or  verified  unit  has  been  lost 
during  a  move.  Within  three  hours,  the  position  and  unit  type  are  either 
known  or  moved  to  undetected  status. 

The  program  moves  units  from  a  "detected"  to  "verified"  status  if  detection 
is  maintained  for  four  hours. 


B.  The  previous  paragraphs  have  described  the  principal  methodology  used 
in  building  the  DIME  target  intelligence  maps.  This  methodology  is  applied 
to  both  Blue  and  Red  unit  files  during  each  three-hour  period  of  the  game. 
The  program  has  three  other  features  representing  special  intelligence 
situations  which  also  impact  the  target  hits. 

(1)  Begin  game  for  Red/Blue.  This  featuie  initializes  the  target 
detection  list  and  represents  accumulated  intelligence  knowledge  at  the 
beginning  of  the  game.  The  methodology  is  a  simplified  version  of  the  one 
described  above.  Sensor  groups  and  intelligence  thresholds  are  ignored  and 
replaced  with  tabular  probabilities  representing  unit  detections  as  a 
function  of  unit  range  from  the  forward  line  of  own  troops  (FLOT).  The  unit 
detection  probabilities  were  taken  from  the  results  of  TAS  II.  This  feature 
is  required  preceding  the  start  of  a  game. 

(2)  Update  intelligence  for  Blue/Red  units  in  contact.  The  previous 
paragraphs  have  described  a  methodology  for  the  detection  of  units  which  are 


at  ranges  beyond  the  visual  capabilities  of  localized  battalion  personnel. 
However,  when  battalions  are  within  10km  of  enemy  units  they  are  considered 
to  be  in  contact  by  the  DIME  intelligence  program.  This  is  represented  in 
the  program  by  a  special  data  base  representing  detection  probabilities  of 
long-  range  reconnaissance  patrols  against  elements  of  enemy  units.  The 
methodology  for  calculating  detection  of  enemy  units  is  the  same  as  that 
listed  in  paragraph  5a  above. 

(3)  Red  commander's  verification  of  Blue  units.  One  of  the  critical 
aspects  of  the  deep  strike  game  is  Red's  ability  to  identify  Blue  units 
operating  in  his  rear  area.  It  was  believed  that  Red  players  would  require 
a  special  representation  of  the  sensor  elements  directly  under  the  control 
of  the  Red  commander.  Specifically,  air  reconnaissance  assets  would 
probably  be  used  by  the  Red  commander  to  "verify"  the  presence  of  Blue  units 
having  a  "detected"  status  operating  in  his  rear  area.  In  order  to  simulate 
this,  the  program  uses  probabilities  of  element  detection  representing 
airborne  photo  assets  flying  over  a  detected  Blue  unit.  Any  Blue  unit 
redetected  by  the  airborne  units  is  immediately  posted  as  "verified"  on  the 
Red  commander's  intelligence  map.  The  methodology  for  unit  identification 
is  identical  to  that  described  in  paragraph  5a  above. 


6.  "UNITFILE"  IMPACT. 

The  "UNITFILE"  inputs  and  outputs  are  essential  to  the  detection  program. 

A.  Inputs.  The  detection  program  uses  the  unit  information  stored  in 
elements  75,  89,  78,  90,  91,  92  and  82  to  produce  an  intelligence  map  for 
both  the  Blue  and  Red  commanders.  (See  the  discussion  under  paragraphs  3, 
4,  and  5  of  this  chapter.) 

B.  Outputs.  In  addition  to  providing  the  intelligence  map,  the 
detection  program  updates  the  "UNITFILE"  for  the  following  words: 

(1)  Detection  status  (91).  The  detection  status  is  represented  by  two 
numbers  (X,Y),  where  the  first  number  represents  the  hours  left  until  the 
unit  can  be  redetected  and  the  second  number  represents  the  unit  status  as 
not  detected  (0),  detected  (1),  verified  (2),  or  lost  (3). 

(2)  Total  hours  target  has  been  tracked  this  detection  (92).  This 
value  is  an  integer  value  identifying  the  total  detection  time,  where 
maximum  detection  time  is  three  hours. 


7.  CODE. 

The  detection  code  consists  of  a  driver  routine  and  seven  subroutines: 
Load_pota,  Decompos,  Print_det_unit ,  Bid  sen  grp.  Blue_in_contact , 
Prob_of_detect,  and  Normal_approx. 
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A.  The  driver  routine  controls  the  detection  program  through  a  menu- 
subroutine  format.  Figure  3-3  shows  the  menu  with  the  accompanying 
subroutines. 

B.  Upon  selection  of  the  appropriate  option,  the  driver  routine  calls 
one  of  three  major  subroutines:  Load_pota,  Blue_in_contact  and  BLd_sen__grp . 

(1)  Load_pota  subroutine  reads  in  the  appropriate  data  files  from  both 
the  auxiliary  stored  files  and  the  "UNITFILE".  This  data,  in  turn,  is 
passed  to  the  Prob_of_detect  routine. 

(a)  The  Prob_of_detect  routine  applies  a  normal  approximation 
methodology  to  determine  a  list  of  units  which  have  been  detected,  verified, 
or  lost. 

(b)  Once  a  unit  has  been  classified  as  detected,  verified,  or 
lost,  this  information  is  passed  to  the  Decompose  routine  and  the  Print  det 
unit  routine.  The  Decompose  routine  updates  the  "UNITFILE"  for  elements  91 
and  92.  The  Print_det_unit  routine  prints  out  a  list  of  the  units  and  their 
intelligence  status  as  either  detected,  verified,  or  lost. 

(2)  Blue_in_contact.  The  Blue_in_contact  routine  reads  in  the 
appropriate  data  files  for  battalions  that  are  within  10  km  of  enemy  units. 
This  data,  along  with  the  unit  information  stored  on  the  "UNITFILE"  is 
passed  to  the  Decompose  routine  and  the  Print_det_unit  routine.  Again  the 
commander  is  provided  a  list  of  the  unit's  intelligence  status  and  the 
"UNITFILE"  is  updated  accordingly.  Contrary  to  its  name,  this  routine  is 
used  for  both  Red  and  Blue. 

(3)  Bid  sen  group.  The  Bid  sen  group  subroutine  allows  the  gamer  to 
create,  change,  or  list  Red  and  Blue  sensor  groups.  The  gamer  specifies  the 
number  of  sensors,  per  type,  he  wishes  to  assign  to  each  sensor  group.  The 
sensor  groups  consist  of  six  types  for  both  Blue  and  Red. 

(a)  The  Blue  sensor  group  is  composed  of  the  following  six  types  of 

sensors: 


1 .  Ground  radar 
2 ■  Artillery  radar 
3j_  LRRP 
4^  SLAR 

5.  Air  Force/Infrared  (AF/IR) 

6.  F0. 
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(b)  The  Red  sensor  group  is  composed  of  the  following  six  types  of 
sensors: 

1 .  Ground  radar 

2.  Artillery  radar 
3^  LRRP 

RPV 
5_j_  SLAR 
6^  FO. 

These  sensor  groups  are  placed  into  the  Bsenpro  and  Rsenpro  files  which  are 
used  within  the  Load_pota  routine  to  determine  the  commander's  intelligence 
list. 

C.  The  subroutines  and  their  primary  variables  are  contained  in  Table 
3-6.  A  listing  of  the  original  P7  code  appears  in  Table  3-7. 
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G3(I,J)  Array  containing  the  number  of 

sensors  of  sensor  type  J  (1-6) 
of  group  I  (1-3). 
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Table  3-7 


Detection  code 


10  ! ! '  -  "P7"  IS  THE  ACQUISITION  PROGRAM  FOR  DIME.  CODED  BY  MR.  TOM  BUTHER 

SAD,  CAORA,  AV  552-0481.  DATED  22  OCT  83 

20  1  EXPANDED  VERSION  —  JUNE  9.  1986  —  BY  OAO  CORP. 

30  OPTION  BASE  1 

40  DIM  PI < 10,5) , N ( 150) , F ( 10) . P7 < lO) . HI  (5, 9)  , H2  <5. 9) , H3 (5. 9) , H4 (5, 9)  . H5 (5, 9) 
6(5, 9),  F8  (5,  10),  G3  ( 400 , 6 )  ,  P9  (5)  ,  T2  <5>  ,  E  1  (5, 4)  ,  MSC  161 ,  TmS>  [  7  I ,  Temp  (  150) 

50  Disk*=": 9134, 704,0" 

60  Disk2*=" : 9134, 704,0" 

70  '  -  SET  RANDOM  NUMBER  SEED 

80  PRINT  USING  "©" 

90  PRINT  "THIS  IS  THE  DIME  ACQUISITION  PROGRAM" 

100  INPUT  "INPUT  THE  RANDOM  NUMBER  SEED  FOR  DETECTIONS  ;  RANGE  1-10000". R5 

110  INPUT  "WHAT  IS  THE  GAME  TIME?" ,Tm* 

120  RANDOMIZE  R5 

130  FOR  1=1  TO  10 

1 40  R5=RND 

150  NEXT  I 

160  PRINT  USING  "<?" 

170  PRINT  "SELECT  ONE  OF  THE  FOLLOWING  OPTIONS" 

180  PRINT  "BEGIN  GAME  FOR  BLUE-1" 

190  PRINT  "BEGIN  GAME  FOR  RED-2" 

200  PRINT  "UPDATE  CURRENT  LIST  AT  BEGINNING  OF  Cl  BLUE-3" 

210  PRINT  "UPDATE  CURRENT  LIST  AT  BEGINNING  OF  Cl  RED-4" 

220  PRINT  "UPDATE  BLUE  INTEL  FOR  BLUE  IN  CONTACT-5" 

230  PRINT  "UPDATE  RED  INTEL  FOR  RED  IN  CONTACT-6" 

240  PRINT  "UPDATE  RED  INTEL  FOR  RED  COMMANDER  VERIFICATION-7" 

250  PRINT  "BUILD  SENSOR  GROUPS-8" 

260  PRINT  "STOP  RUN-9" 

270  INPUT  "INPUT  OPTION", 01 

280  IF  01=9  THEN  5270 

290  ON  Ox  GQSUB  Lo»d_pata,  Laad_pota,  Load_pota.  Load_pota,  Blue_m_contact .  BUie 
n_contact , B1 ue_i n_con tact , Bl d_sen_grp 
300  GOTO  160 


3 1 0 

Load_pota: 

l 

320 

ON  01  GOTO  1280,1420,340,810 

330 

'  -  BLUE 

:  CI  UPDATE 

340 

ASSIGN  ©Path  1  TO  " BS 1  T06"?-Di  sk2* 

350 

FOR  1=1 

TO  5 

360 

ENTER 

©Path  1 ,  I;Hl<I,l)sHl(I,2)?Hl(I,3)?Hl(I,4>;Hl(I,5) 

370 

NEXT  I 

330 

J  =6 

390 

FOR  1=1 

TO  5 

400 

ENTER 

©Pathl , J:H2  < I . 1 ) : H2 (1,2) : H2 (1,3); H2 (1,4); H2 (1,5) 

410 

J=J-M 

420 

NEXT  I 

430 

FOR  1=1 

TO  5 

440 

ENTER 

©Path  1 , J ; H3 ( I , 1 > : H3 (1,2); H3 (1,3) ; H3 ( I ,4) t  H3 ( 1 . 5 1 

450 

J=J  +  1 

460 

NEXT  I 

470 

FOR  1=1 

TO  5 

480 

ENTER 

©Path  1 . J;H4 ( 1 ,  1 > ;H4 ( I , 2) : H4 ( I , 3) : H4 ( I , 4) : H4 ( I , 5) 

490 

J=J  +  1 
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500 

NEXT  I 

510 

FOR  1=1 

TO  5 

520 

ENTER 

©Pathl,  J;H5<  1 ,  1 )  ;  H5  (1,2)  ;  H5  (1,3);  H5  (1.4);  H5  (1,5) 

530 

J-J  +  l 

540 

NEXT  I 

550 

FOR  1=1 

TQ  5 

560 

ENTER 

©Pathl, J;H6 <  1 ,  1  >  ; H6 (1,2) ; H6  <  1 , 3  > : H6 (1,4); H6 (1,5) 

570 

J-J  +  l 

580 

NEXT  I 

590 

ASSIGN 

©Path  1  TO  * 

600 

ASSIGN 

©Path2  TO  ,,REl"S<Disk2* 

610 

FOR  1=1 

TO  4 

620 

ENTER 

©Path2;El  <  1 ,  I  >  j  El  <2,  I  >  ;  El  (3,  1 )  j  El  <4,  I )  ;  El  <5,  I ) 

630 

NEXT  I 

640 

ASSIGN 

©Path2  TO  * 

650 

ASSIGN 

©Path3  TO  “8TH0LD"&Di sk2* 

660 

FOR  J=1 

TO  10 

670 

ENTER 

©Path3;  F8  <  1 ,  J  >  ;  F8  <2,  J  >  j  F8  ( 3.  J  >  ;  F8  ( 4 ,  J  )  ;  F8  <5,  J  > 

680 

NEXT  J 

690 

ASSIGN 

©Path3  TO  * 

700 

ASSIGN 

©Path4  TO  "UNITFILE" &Di sk2* 

710 

FOR  1=1 

TO  191 

720 

ENTER 

@Path4, I ; Temp  <  *> 

730 

FOR  J 

=95  TO  100 

740 

K=J 

-94 

750 

G3 ( I , K ) =T emp  <  J ) 

760 

NEXT 

J 

770 

NEXT  I 

780 

ASSIGN 

©Path4  TO  * 

790 

GOTO  12 

80 

800 

!  -  RED 

Cl  UPDATE 

810 

ASSIGN 

©PathS  TO  "RS1T06 ”S<Di  sk2* 

820 

FOR  1=1 

TO  5 

830 

ENTER 

©PathS,  I?  HI  <1, 1)  jHl  (1,2)  ;'H1  (I  ,3)  ;H1  (  I  ,  4)  ;H1  (I  ,5) 

840 

NEXT  I 

850 

J  =6 

860 

FOR  1=1 

TO  5 

870 

ENTER 

©Path5, J ; H2  < 1 , 1 ) ; H2 (1,2) ; H2  < 1 , 3 ) : H2 (1,4); H2 (1,5) 

880 

J-J  +  l 

890 

NEXT  I 

900 

FOR  1=1 

TO  5 

910 

ENTER 

©PathS, JjH3<I, 1) ;H3(I,2) ;H3<I,3>  sH3<I , 4) ;H3(I,5) 

920 

J-J  +  l 

930 

NEXT  I 

940 

FOR  1=1 

TO  5 

950 

ENTER 

©Path5, J;H4  <1, 1 ) ; H4 (1,2) ; H4 (1,3) ; H4 ( 1 , 4 ) ; H4 ( I ,5) 

960 

J-J  +  l 

970 

NEXT  I 

980 

FOR  1=1 

TO  5 

990 

ENTER 

©PathS, J;H5< 1 , 1 ) j  H5 (1,2) :H5(I,3> ; H5 ( 1 , 4  > ; H5 (1,5) 

1000 

J-J  +  l 

1010 

NEXT  I 
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1020  FOR  1=1  TO  5 

1030  ENTER  ©Paths. J ; H6 ( 1 , 1 ) ; H6 ( 1 , 2) : H6 < 1 , 3) : H6 i 1 , 4 ) ; H6 < 1 , 5) 
1040  J-J  +  l 
1050  NEXT  I 

1060  ASSIGN  ©Path5  TO  * 

1070  ASSIGN  ©Path6  TO  "BE1  "S<Di  sk2S 
1080  FOR  1=1  TO  4 

1090  ENTER  ©Path6; El  <1 ,  I>  ;E1  (2,  I)  ;  El  (3,  I)  ;E1  <4,  I)  ;E1  (5.  I) 
1100  NEXT  I 

1110  ASSIGN  ©Path6  TO  * 

1120  ASSIGN  ©Path7  TO  ,,RTHOLD,,S<Di  sk2* 

1130  FOR  J=1  TO  10 

1140  ENTER  ©Path7;F8 < 1 , J> ;F8<2, J> ;F8 (3, J> ;FB<4, J> ;F8<5. J) 
1150  NEXT  J 

1160  ASSIGN  ©Path7  TO  * 

1170  ASSIGN  ©Path8  TO  “UN  I TFlLE"&Di  sk2* 

1180  FOR  1=192  TO  400 

1190  ENTER  @Path8,  I ;  Temp  <*> 

1200  FOR  0=95  TO  100 

1210  K=J-94 

1220  G3 < I ,  tO  =Temp (J) 

1230  NEXT  J 

1240  NEXT  I 

1250  ASSIGN  S'PathS  TO  * 

1 260  GOTO  1 420 

1270  !  -  BEGIN  GAME  FOR  BLUE,  LOAD  RED  POTA 

1280  ASSIGN  ©Path9  TO  "REDPOTA"&Di  sk2* 

1290  FOR  1=1  TO  10 

1300  ENTER  t?Path9: P1<I,1);P1 <I,2>;P1 (1,3) ;P1 (1.4) ;P1 (1,5) 

1310  NEXT  I 

1320  ASSIGN  <?Path9  TO  * 

1330  ASSIGN  6*Path  1 0  TO  "RFLEE"&Di  sk2* 

1340  ENTER  ©Path 10; F  <  * ) 

1350  ASSIGN  ©Path  10  TO  * 

1360  !  -  SET  FLAG  FOR  RED 

1370  Sl=l 

1380  L6=192 

1390  L7=400 

1400  GOTO  1550 

1410  !  -  BEGIN  GAME  FOR  RED,  LOAD  BLUE  POTA 

1420  ASSIGN  ©Path  1 1  TO  "BLUPOTT'&Di sk2* 

1430  FOR  1=1  TO  10 

1440  ENTER  ©Path 1 1 ; PI ( I , 1 ) ; PI ( I , 2) ; PI ( I , 3 ) ; P 1 < I . 4> ; PI ( I , 5) 
1450  NEXT  I 

1460  ASSIGN  ©Path  11  TO  * 

1470  ASSIGN  @Pathl2  TO  "BFLEE"&Di sk2* 

1480  ENTER  ©Pathl2;F<*) 

1490  ASSIGN  ©Pathl2  TO  * 

1500  *  -  SET  FLAG  FOR  BLUE 

1510  SI =2 
1520  L6-1 

1530  L7-191 


3-29 


Table  3-7 
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1540 
1550 
1560 
1570 
1580 
1590 
1 600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1  780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 


!  -  OPEN  DINE  UNITFILE 

ASSIGN  li'Path  1 3  TO  "UNI TF I LE  "?<Di  si  * 

INPUT  "INPUT  NUMBER  OF  HOURS  OF  INTEL  NEEDED  (MUST  BE  MULTIPLE  OF  3) 

Nl=Nl/3 

N1=INT (N1 ) 

J=0 

REPEAT 

INPUT  "INPUT  FRACTION  OF  SENSOR  MESSAGES  JAMMED”, J1 
UNTIL  J1>=0  AND  J1<=1 
•  -  SET  TIME  LOOP  FOR  DETECTIONS 
FOR  T=1  TO  N1 
!  -  SET  UNIT  RECORD  LOOP 
FOR  J  =L6  TO  L7 
Dl  =  l 

!  -  RETRIEVE  RECORD  FOR  UNIT  TO  BE  DETECTED 
ENTER  i?Path  13 ,  J  ;  N  <  * ) 

IF  S1=INT (N (78) )  OR  N(82)=0  THEN  2830 
!  -  CHECK  FOR  LOST  TARGET 

IF  N0;iX.29  OR  N  ( 9 1  )  >.31  THEN  1750 
N (91 ) =0 

1  -  CHECK  FOR  TARGET  COVERAGE  BY  SOME  SENSOR  GROUP 
D=N (89) 

GOSUB  Decompose 

S5=Q2 

Z5=Q  1 

IF  S5O0  THEN  1890 
!  -  TARGET  NOT  COVERED  BY  SENSOR 
D=N (91 ) 

GOSUB  Decompose 

IF  Q2=l  OR  Q2=2  THEN  2420 

!  -  TARGET  NOT  PREVIOUSLY  DETECTED  OR  IN  LOST  STATUS 
N (91 ) =0 
N (92) =0 
GOTO  2820 

!  -  TARGET  UNDER  SENSOR  COVERAGE,  DECOMPOSE  TIME 
D=N (91 ) 

GOSUB  Decompose 
!  -  CHECK.  FOR  DETECTION  STATUS 
IF  Q2>0  THEN  2460 

!  -  SYSTEM  NOT  PREVIOUSLY  DETECTED,  DECOMPOSE  LOCATION,  PERFORM 
!  -  DETECTION  FUNCTION,  AND  SET  UP  POINTERS  FOR  PROPER  POTA  TABLE 
D=N (89) 

GOSUB  Decompose 

!  -  SAVE  ZONE  IN  Z5  AND  SAVE  SENSOR  GROUP  IN  S5 
Z5=Q  1 
S5=Q2 

1  -  SELECT  UNIT  TYPE 
D=N (78) 

GOSUB  Decompose 
02=02+1 
Q1  =  Z5 

'  -  SELECT  PROPER  PROBABILITY.  RETRIEVE  SENSOR 


"  ,  N 1 
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Detection  code 


2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140  ! 

2150 
2160  ! 
2170 
2180 
2190 
2200  ! 
2210 
2220 
2230  ! 

2240  ! 

2250 
2260 
2270 
2280 
2290 
2300  ! 

2310 
2320 
2330 
2340 
2350 
2360  ! 

2370 
2380 
2390 
2400  1 

2410 
2420 
2430 
2440 
2450  ! 

2460 
2470  ! 

2480 
2490 
2500  ! 

2510 
2520  ! 

2530  ! 

2540 
2550 
2560  ! 

2570  ' 


IF  S5< : 0  THEN  2090 

PRINT  "ERROR  AT  1 1 10" : S5; 01 ; N <89> s N <78> 

STOP 

IF  S5 >8 . 5  AND  S5<=9.5  THEN  2160 
GOSUB  Prob_of _detect 
D=N  <  78 ) 

GOSUB  Decompose 
IF  D2=0  THEN  2390 
UNIT  DETECTED 
GOTO  2250 

COVERED  BV  GENERAL  GROUP 
P5=P1 (02. Q1 ) 

R5=RND 

IF  R5 >P5  THEN  2390 

CHECK  FOR  EW  INTERFERENCE 

R5=RND 

IF  R5 > 1 - J 1  THEN  2390 

SYSTEM  HAS  BEEN  DETECTED,  UPDATE  FLEE  TIME  DETECTION  STATUS 
AND  MOVE  TO  NEW  RECORD 
D=N  ( 78 ) 

GOSUB  Decompose 
Q1=F  <02+1 ) 

02=1 

IF  D 1= 1  THEN  2350 

TARGET  PREVIOUSLY  DETECTED  AND  BEING  TRACKED.  TAKE  OLD  STATUS 
S=Q  1 
D=N (91) 

GOSUB  Decompose 
Q1=S 

N ( 9 1 ) =0 1 +02 / 1 O 
UPDATE  TIME  WATCHED 
N (92) =N (92) +3 
GOTO  2720 
N  <  9 1 >  =0 

CHECK  FOR  LOST  UNIT 
IF  D1 < 2  THEN  2430 
N  <  9 1 )  = .  3 
N (92) =0 
GOTO  2820 

SYSTEM  PREVIOUSLY  DETECTED 
IF  N (75) <  >3  THEN  2510 

SYSTEM  IS  STATIONARY,  UPDATE  TIME  WATCHED 
N (92) =N (92) +3 
GOTO  2720 

CHECK  FOR  SYSTEM  MOVING 
IF  N (75) < >4  THEN  2580 

SYSTEM  IS  MOVING,  SET  STATIONARY  TIME  TO  ZERO,  TAKE  OFF 
DETECTED  LIST,  AND  TRY  TO  DETECT 
D 1  =2 

GOTO  1950 

SYSTEM  IS  EITHER  IN  ATTACK  OR  DEFEND  AND  DETECTED.  UPDATE  FLEE 
TIME  AND  DETECT  TIME 
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Detection  code 


2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 


N  <92) =N (92) +3 
D=N (91 > 

GOSUB  Decompose 
Q1=Q1 -3 

IF  Q1<=0  THEN  2670 
N  <9 1 >  =Q1+Q2/ 10 
GOTO  2720 

'  -  SYSTEM  HAS  MOVED,  TIME  TO  REDETECT  SYSTEM.  FLEE  TIME  HAS 
!  -  EXPIRED,  SET  DETECTION  TO  ZERO  AND  GO  TO  NEW  RECORD 
N  <  92 )  =N  <  92 )  —3 
!  -  SUBTRACT  FLEE  TIME 
Dl=2 

GOTO  1950 

!  -  CHECK  ON  VERIFICATION  OF  UNIT 
DCN (92) 

GOSUB  Decompose 
S3»N(92> 

!  “  COMPARE  TIME  OF  DETECT  WITH  FLEE  TIME.  RETRIEVE  FLEE  TIME 
D=N (78) 

GOSUB  Decompose 
Q2“Q2+1 

IF  S3<4  THEN  2820 

'■  ~  SYSTEM  IS  VERIFIED,  UPDATE  UNITFILE 
N  <  9 1 )  =  I NT  <  N ( 9 1 ) >+.2 
OUTPUT  (?Pathl3,  J;N<*> 

NEXT  J 
NEXT  T 

ASSIGN  (?Pathl3  TO  * 

GOSUB  Print  det_unit 
RETURN 

i 

Bld_sen_grp:  ( 

CALL  Build  sen_group 
RETURN 


Print_det_unit: ! 

ASSIGN  (?Pathl3  TO  "UNI TFILE"S<Di  sk* 

ASSIGN  <?Pathl4  TO  " NAMEF I LE " S<Di  s k * 

INPUT  "TARGET  LIST  TO  SCREEN  OR  PRINTER?  (S/P>",S_p_* 
IF  S_p_*«"P"  THEN  PRINTER  IS  702 
PRINT  USING  "<?,#" 

IF  SI  =2  THEN  3030 

PRINT  "BLUE  COMMANDER  TARGET  LIST  AS  OF  " ; Tm* 

GOTO  3040 

PRINT  "RED  COMMANDER  TARGET  LIST  AS  OF  ";Tmt 
PRINT  "UNIT  DETECTION  STATUS" 

FOR  I =L6  TO  L7 

ENTER  <?Patbl3,  I ;  N  ( * ) 

ENTER  f?Path  14, I ; M* 

IF  S1=INT (N (78) )  OR  N(82>«0  THEN  3160 
D=N (91 ) 
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3100  GOSUB  Decompose 

3110  IF  Q2=0  THEN  3160 

3120  IF  Q2=2  THEN  3150 

3130  PRINT  USING  " 1  OX , 3D. 5X . 16A. 5X . 1 OA" : I DETECTED" , 

3140  GOTO  3160 

3150  PRINT  USING  “ 1  OX . 3D , 5X . 1 6A. 5X .  1 OA" ;  I , MS ,  " _ 

3160  NEXT  I 
3170  PRINTER  IS  . 

3180  PRINT  USING  ///////" 

3190  PRINT  "PRESS  CONT  TQ  PROCEED" 

3200  PAUSE 

3210  ASSIGN  ©Path  1 3  TO  * 

3220  ASSIGN  ©Path  14  TO  * 

3230  RETURN 
3240  1 

3250  Blue_in_contact: 'UPDATE  BLUE  UNIT  COMMANDER'S  INTELLIGENCE  MAP  FOR  BLUE  If- 

CONTACT 

3260  Sl=l 

3270  L6= 192 

3280  L7=400 

3290  IF  01 <6  THEN  3340 

3300  SI =2 

3310  L6= 1 

3320  L7= 1 9 1 

3330  IF  01=6  THEN  3340 

3340  ON  01-4  GOTO  3360,3440.3520 

3350  !  -  BLUE  INTEL  UNIT,  LOAD  BLUE  DETECTION  PROBABILITIES 

3360  ASSIGN  ©Path  14  TO  "BLBDG"J'Di  sk2S 
3370  ENTER  ©Path  1 4; P7 ( * ) 

3380  ASSIGN  ©Path  1 4  TO  * 

3390  ASSIGN  ©Path  10  TO  "RFLEE"S<Di  sk2* 

3400  ENTER  ©Path  10; F ( * ) 

3410  ASSIGN  ©Path  10  TO  * 

3420  GOTO  3580 

3430  (  -  RED  INTEL  UNIT,  LOAD  RED  BDE  DETECTION  PROBABILITIES 

3440  ASSIGN  ©Pathl5  TO  "RDBDE"SfDi  sk2* 

3450  ENTER  ©Path  1 5 ; P7 ( * ) 

3460  ASSIGN  ©PathlS  TO  * 

3470  ASSIGN  ©Path  12  TO  " BFLEE"fcDi sk2* 

3480  ENTER  ©Path  1 2; F < * ) 

3490  ASSIGN  ©Pathl2  TO  * 

3500  GOTO  3580 

3510  !  -  RED  COMMANDER'S  INTELLIGENCE 

3520  ASSIGN  ©Fathl6  TO  "RDCOR"S<Di sk2* 

3530  ENTER  ©Path  1 6 ; P7 ( * ) 

3540  ASSIGN  ©Pathl6  TO  * 

3550  ASSIGN  ©Path  12  TO  ”BFLEE"&Di sk2* 

3560  ENTER  ©Pathl2;F<*> 

3570  ASSIGN  ©Path  12  TO  * 

3580  ASSIGN  ©Pathl3  TO  "UNI  TFILE"S<Di  sk  * 

3590  PRINT  USING  "©" 

3600  IF  SI =2  THEN  3630 
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3610  INPUT  "INPUT  NUMBER  QF  RED  UNITS  CONTACTED"  ,  N 1 
3620  GOTO  3640 

3630  INPUT  "INPUT  NUMBER  OF  BLUE  UNITS  CONTACTED" . N1 
3640  FOR  1=1  TO  N1 

3650  INPUT  "INPUT  UNIT  NUMBER" , J 
3660  ENTER  l?Path  13,  J ;  N  ( *  ) 

3670  IF  Sl<  >INT  <N  <78)  )  AND  N  (82)00  THEN  3730 

3680  !  -  UNIT  IS  SAME  SIDE  AS  SEARCHER 

3690  IF  N  <82>  =0  THEN  PRINT  “UNIT  ";J;"  IS  INACTIVE,  INPUT  CORRECT  UNIT" 

3700  IF  S1  =  INT  IN (78) )  THEN  PRINT  "UNIT  "  ;  J  ;  “  IS  ON  SAME  FORCE  AS  INTEL  MAP 

NPUT  CORRECT  UNIT" 

3710  GOTO  3650 

3720  !  -  CHECK  ON  UNIT  DETECTION 

3730  D=N ( 78) 

3740  GOSUB  Decompose 

3750  R5=RND 

3760  V2=Q2+1 

3770  IF  R5>P7(V2)  THEN  3860 

3780  !  -  UNIT  IS  ACQUIRED,  SET  ACQUISITION  AND  FLEE  TIME 

3790  D=N (91) 

3800  GOSUB  Decompose 

3810  1  -  CHECK  FLEE  TIME 

3820  IF  Q1>F<V2)  THEN  3840 

3830  Q1=F(V2> 

3840  N (91 ) =Q1+. 2 

3850  OUTPUT  6'Path  13,  J  5  N  (  *  ) 

3860  NEXT  I 

3870  GOSUB  Print  det  unit 
3880  ASSIGN  PPathl3  TO  * 

3890  RETURN 
3900  ‘ 

3910  Decomposes ' 

3920  D8=ABS(D) 

3930  Q1  =  INT  <  D8 ) 

3940  Q2= INT ( <  D8-Q1 ) *10+. 1 ) 

3950  RETURN 
3960  ! 

3970  Prob_o-f _detect :  !SUM  ELEMENTS  IN  UNIT  ADJUSTED  BY  PERCENT  COVERED 
3980  IF  J< 192  THEN 
3990  Tot_sml _arms=0 

4000  FOR  1=36  TO  47 

4010  Tot_sml _ar ms=Tot_sml _arms+N ( I ) 

4020  NEXT  I 

4030  T2  ( 1 )  =  (Tot_sml  _ar ms+N  (7)  -t-N  (8)  +N  (53)  +N  (54)  )  *N  (90) 

4040  Tot_veh=0 

4050  FOR~ I =55  TO  70 

4060  Tot_veh=Tot  veh-t-N(I) 

4070  NEXT  l 

4080  FOR  1=16  TO  20 

4090  Tut  veh=Tot_veh+N < I ) 

4100  NEXT  T 

4110  T2 (2) = <N< 10) +N (2) +N (4) +Tot  veh)*N(90) 
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4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 


T2  (3)  =  (N  (  1 )  +N  (3)  )  *N  (90) 

Tot_i f =0 
FOR- I =21  TO  35 

Tat_i  -f  =Tat_i  -f  +N  ( I ) 

NEXT  I 

T2<4)  =  <Tot_l-f+N(5>  )  *N<90) 

Tot_ada=0 
F0R~I=48  TO  52 

Tot_ada=Tot_ada+N ( I ) 

NEXT  I 

T2(5)=Tot_ada*N<90) 

ELSE 

Tot_sml _arms=0 
FOR  1=36  TO  47 

Tot_sml _arms=Tot_sml _arms+N ( I > 

NEXT  I 

T2  <  1  >  =  (N  <7 ) +N  < 8 ) +Tot _sml .arms+N <53>  +N (54) ) *N (90) 

Tot_trks=0 
FOR  1=55  TO  61 

Tot_trks=Tot_trks+N ( 1 > 

NEXT  I 

T2  <2)  =  <N< 10) +Tot_trks) *N(90> 

Tot_df _car=0 
FOR  1=16  TO  20 

Tot_d-f_car=Tot_d-f_car+N(  I) 

NEXT  I 

Tat_sp_veh=0 
FOR  1=62  TO  70 

i  Tot_sp_veh=Tot_sp_veh+N < I > 

NEXT  I 

T2<3)  =  <N<l)-*-N(3)+N(5)+N(6)+N(48)+Tot_df_car+Tot_sp_veh>  *N(90) 

Tot_i-f=0 

FOR  1=21  TO  35 

Tot _ i f =Tot _ i f +N (I > 

NEXT  I 

T2 (4) = (N (9) +Tot_i f ) *N<90) 

T2  (5)  =  (N  (49)  +N  (50)  +N  (51 )  +N  (52)  >*N(90> 

END  IF 

!  -  OBTAIN  PROPER  ZONE  FOR  UNIT 
D=N  <89 ) 

GOSUB  Decompose 
!  -  SELECT  UNIT  MISSION 
M=N (75) 

!  -  CALCULATE  PROBABILITY  OF  DETECTION  OF  THIS  TARGET  TYPE 
FOR  K8= 1  TO  5 
P9(K8)=1 

IF  I NT (T2 (K8) ) <=0  THEN  4770 
!  -  CHECK  ALL  ELEMENTS  BY  THIS  GROUP 
T4=INT (T2(K8) ) 

FOR  K9= 1  TO  6 

IF  G3(J.K9)=0  THEN  4760 

ON  K9  GOTO  4640,4660,4680,4700.4720.4740 
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4640  M9=H1<K8.Q1) 

4650  GOTO  4750 

4660  M9=H2(K8.01) 

4670  GOTO  4750 

4680  M9«=H3(K8,Q1) 

4690  GOTO  4750 

4700  M9»H4(K8,Q1) 

4710  GOTO  4750 

4720  M9=H5<K8,Q1> 

4730  GOTO  4750 

4740  M9=H6(K8,Q1) 

4750  P9IK8) =P9 <K8>  *  <  1  -  <  1 -J 1 ) *M9)  'G3 <J,K9> 

4760  NEXT  K9 

4770  P9(K8)=1-P9(K8) 

4780  NEXT  K8 

4790  !  -  INDIVIDUAL  PROBABILITIES  ARE  NOW  IN  P9,  ATTEMPT  TO  DETECT 

4800  T5=0 

4810  T6=0 

4820  !  -  SET  UP  UNIT  TYPE 

4830  D=N<78> 

4840  GOSUB  Decompose 

4850  U4=Q2+1 

4860  FOR  18=1  TO  5 

4870  IF  T2 (18) <=0  THEN  5050 

4880  T5=T5+1 

4890  !  -  CALCULATE  NUMBER  OF  ELEMENTS  WHICH  MUST  BE  DETECTED 

4900  IF  P9  < 18) < . 01  THEN  5050 
4910  IF  P9 (18) >. 99  THEN  5040 

4920  !  -  ZB  IS  INTELLIGENCE  FACTOR.  IF  TARGET  HAS  BEEN  DELETED  THEN  Z8  =  r-U 

HRESHOLD,  IF  TRACKING  THEN  Z8  =  . 75 
4930  Z8= 1 

4940  IF  Dl=2  THEN  Z8=.75 

4950  D8=T2< 18) *F8  < 18, U4) *E1 ( I8.M) »Z8 

4960  !  -  SET  MEAN  AND  STANDARD  DEVIATION  FOR  NORMAL 

4970  X1=T2(I8) *P9  <I8)*E1(I8,M> 

4980  S8=T2 (18) *P9 ( 18) *  < 1 -P9  < 18 ) >*E1 (I8.M) 

4990  X= (D8-X 1 ) /SQR  <S8 ) 

5000  GOSUB  Normal  _appro>: 

5010  R5=RND 

5020  IF  R5< D2  THEN  5050 

5030  !  -  UNIT  ELEMENTS  DETECTED 

5040  T6=T6+1 

5050  NEXT  18 

5060  !  -  IF  ONE-HALF  IS  DETECTED  THEN  UNIT  IS  DETECTED 

5070  D2«0 

5080  IF  T6-0  AND  T5=0  THEN  5110 
5090  IF  T 6< T5/2  THEN  5110 
5100  D2= 1 

5110  RETURN 
5120  ' 

5130  Normal  _appro>; :  1 

5140  IF  ABS  <  X ) >20  THEN  5220 
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5150  T8=l / < 1 +  . 231 6419*ABS<X) ) 

5160  D2=T8» ( . 31938153+TB* <-. 356563782+1 . 781477937*18) ) 

5170  D2=D2+T8''4*  (-1 . 821255978+1 . 330274429*18) 

5180  D2=SQR ( 1 / (2*PI ) >  *EXP < -X  *  X /2>  *D2 
5190  T8=10  ’s  <5+ 1  NT  (-LGT  (D2)  )  ) 

5200  D2=INT<T8*D2+.5>/T8 

5210  GOTO  5230 
5220  D2=0 

5230  IP  X<0  THEN  5250 
5240  D2= 1 -D2 

5250  RETURN 
5260  ! 

5270  PRINT  USING  "i?" 

5280  PRINT  "THE  RANDOM  SEED  FOR  NEXT  RUN  IS" 

5290  PRINT  USING  5300; R5* 10000 
5300  IMAGE  7D.3D 
5310  PRINT  USING  "//////" 

5320  PRINT  "PRESS  CONT  TO  PROCEED" 

5330  PAUSE 

5340  LOAD  "DIME"8<Di  st:t 
5350  END 

5360  SUB  Bui  1 d_sen_gr oup 

5370  !  (GROUPBLD)  BUILDS  9  SENSOR  GROUPS  FOR  BLUE  AND  9  FOR  RED 

5380  DIM  S ( 1 : 6 ) 

5390  D i  sk 2*= " : 9 1 34 ,  704 , 0 

5400  PRINT  "THIS  IS  THE  DIME  SENSOR  GROUP  BUILDER" 

5410  PRINT  "SELECT  ONE  OF  THE  FOLLOWING  OPTIONS" 

5420  PRINT  "BUILD  BLUE  SENSOR  GROUPS  -  1" 

5430  PRINT  "BUILD  RED  SENSOR  GROUPS  -  2" 

5440  PRINT  "DUMPFILES/STOP  -  3" 

5450  INPUT  01 

5460  ON  01  GOTO  5470,5560,5650 

5470  PRINT  "BUILDING  BLUE  GROUPS" 

5480  ASSIGN  @Pathl3  TO  "BSENPRO“S<Di  sk2* 

5490  FOR  1=1  TO  9 

5500  PRINT  "INPUT  NUMBER  OF  SENSORS  OF  EACH  TYPE  FOR  GROUP  "  ; I : "GDRADAR. AR 

RADAR , LRRP , SL AR , AF / I R , FO " 

5510  INPUT  S(l) ,S<2) ,S<3> ,S<4> ,S<5>  ,S<6> 

5520  OUTPUT  ©Path  13;  S  <  *  > 

5530  NEXT  I 

5540  ASSIGN  <?Pathl3  TO  * 

5550  GOTO  5410 

5560  PRINT  "BUILDING  RED  SENSOR  GROUPS" 

5570  ASSIGN  i?Pathl4  TO  "RSENPRO".VDi  sk2* 

5580  FOR  0=1  TO  9 

5590  PRINT  "INPUT  NUMBER  OF  SENSORS  OF  EACH  TYPE  FOR  GROUP  J ;  "GDRADAR. AR 

RADAR, LRRP, RPV, SLAR, FO" 

5600  INPUT  S (1 ) ,S(2) ,S<3> ,S (4) , S (5)  ,S(6) 

5610  OUTPUT  RPath 1 4; S ( * ) 

5620  NEXT  J 

5630  ASSIGN  E-Path  14  TO  * 

5640  GOTO  5410 
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5650 
5660 
5670 
568o 
5690 
5700 
57 1 0 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 


Table  3-7.  Detection  code. 


PRINT  "DUMPING  SENSOR  PILES" 

ASSIGN  ■••Path  13  TO  "BSENPRO"?-Di  sk2* 

PRINT  "BLUE" 

PRINT  "GDRADAR, ARTRADAR, LRRP. SLAR. AF/ IR. FO" 

FOR  K=1  TO  9 

ENTER  ©Pathl3;S<*> 

PRINT  “GROUP  “ s  K, S( 1 ) ;S(2> ;S(3> ;S(4) ;S(5>  ;S(6) 
NEXT  K 

ASSIGN  ©Path  13  TO  * 

PRINT  “RED” 

ASSIGN  ©Pathl4  TO  "RSENPR0".!<Disk2* 

PRINT  "GDRADAR. ARTRADAR. LRRP. RPV, SLAR. FO” 

FOR  L=1  TO  9 

ENTER  ©Path  14; S  <  *  > 

PRINT  "GROUP  " ; L , S ( 1 > ;S<2) ;  S  ( 3 )  ;S(4> :S(5> ;  S  ( 6  > 
NEXT  L 

ASSIGN  ©Path  1 4  TO  * 

I 

SUBEND 
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CHAPTER  4 


LOGISTICS 


1.  PURPOSE. 

The  purpose  of  the  DIME  logistics  program  (P2)  is  to  establish  initial 
levels  of  ammunition  and  fuel  available  for  combat  operations  during  the 
ground  combat  (P4)  and  air  defense  (P3)  programs. 

2.  GENERAL. 

The  logistics  program  calculates  the  total  ammunition  and  fuel  (POL) 
available  for  the  DIME  model  by: 

A.  Calculating  the  total  combat  and  noncombat  ammunition/fuel  available 
as  a  function  of: 

(1)  Basic  load  and/or  fuel  capacity  for  each  of  the  70  elements  on  a 
unit's  weapons  list. 

(2)  Resupplied  ammunition/fuel. 

(3)  Excess  ammunition/fuel  returned  from  ground  combat  and  air  defense 
programs . 

B.  Subtracting  the  ammunition  allocated  for  noncombat  consumption  from 
the  total  allocation  and  placing  the  total  remaining  combat  allocation  into 
elements  131-133  of  the  unit  status  file  ("UNITFILE").  This  combat 
allocation  is  depleted  during  the  execution  of  the  ground  combat  and  air 
defense  programs. 

C.  And,  finally,  distributing  the  remaining  ammunition/fuel  quantities 
available  onto  the  trucks  alive  at  the  start  of  the  game  turn.  Any  excess 
ammunition  or  fuel  is  stored  on  the  ground. 


3.  DATA  FLOW. 

A.  The  DIME  logistics  program  contains  two  types  of  data  inputs: 
auxiliary  storage  and  online  data  statements.  See  Figure  4-1  for  the  data 
flow  of  this  program. 

(1)  Auxiliary  storage. 

(a)  "UNITFILE".  Table  4-1  contains  a  list  of  "UNITFILE"  elements 
required  as  inputs  by  the  logistics  program.  Each  element's  location  within 
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Figure  4-1.  Logistics  data  flow. 


Table  4-1.  Logistics  "UNITFILE"  inputs. 


"UNITFILE"  Locations 
101 

102 

103 

104 

105 

106 
110 
111 
112 
113 

119  -  121 

122 

123 

124 

125 

126 


Element  Description 

Fuel  status  of  unit  vehicles;  value  ranges 
from  0  to  1.0. 

Fuel  status  of  unit  helicopters;  value  ranges 
from  0  to  1.0. 

Fuel  on  tankers  (gallons). 

JP4  on  tankers  (gallons). 

Fuel  on  ground  (gallons). 

JP4  on  ground  (gallons). 

Fuel  resupplied  (gallons). 

JP4  resupplied  (gallons). 

Fuel  dispensed  to  other  units  (gallons). 

JP4  dispensed  to  other  units  (gallons). 

DF,  IF,  and  AD  vehicle  ammunition  status; 
values  range  from  0  to  1.0. 

Helicopter  ammunition  status. 

Ammunition  on  cargo  vehicles  (short  tons). 

Distribution  of  cargo  by  type  (XXX. YYY).* 

Ammunition  on  ground  (short  tons). 

Distribution  of  ground  ammunition  by  type 
(XXX. YYY).* 


*  (XXX. YYY)  represents:  XXX  -  DF  ammo  percent  (XXX  =  XX. XX) 

YYY  *  IF  ammo  percent  (YYY  =  YY.Y%) 

AD  ammo  percent  is  the  amount  remaining  (100  -  XX. X  -  YY.Y). 


Table  4-1.  Logistics  "UNITFILE"  inputs  (continued). 

"UNITFILE"  Locations  Element  Description 

131  -  133  DF,  IF,  and  AD  ammunition  available  for 

consumption  (short  tons). 

134  Helicopter  ammunition  availible  for 
consumption. 

135  Ammunition  resupplied  (short  tons). 

136  Ammunition  resupply  profile  (XXX. YYY).* 

137  Ammunition  dispensed  to  other  units  (short 
tons) . 

138  Dispensed  ammunition  profile  (XXX. YYY).* 

139  -  141  DF,  IF,  and  AD  ammunition  consumed  to  date 

(short  tons). 

142  Helicopter  ammunition  consumed  to  date  (short 
tons) . 

143  Fuel  consumed  to  date  (gallons). 

144  JP4  consumed  to  date  (gallons). 

Refer  to  Chapter  1  for  a  complete  description  of  the  entire  "UNITFILE". 

*  (XXX. YYY)  represents:  XXX  =  DF  ammo  percent  (XXX  =  XX. XX) 

YYY  =  IF  ammo  percent  (YYY  «  YY.Y%) 

AD  ammo  percent  is  the  amount  remaining  (100  -  XX. X  -  YY.Y). 


the  "UNITFILE"  and  a  short  description  are  furnished.  The  elements  are 
listed  in  ascending  order  according  to  their  locations  within  the 
"UNITFILE". 

(b)  "NAMEFILE".  The  "NAMEFILE"  contains  the  names  for  the  units 
stored  in  the  "UNITFILE". 

(2)  Online  data.  The  logistics  program  uses  six  online  data  arrays. 

(a)  The  fuel  array  contains  fuel  consumption  values. 

(b)  The  ammo  array  contains  ammunition  consumption  values. 

(c)  The  truck  capacity  array  contains  the  carrying  capacity  of  each 

truck. 


(d)  The  ammo  capacity  array  contains  the  package  weight  for  each 
weapon  in  tons. 

(e)  The  fuel  capacity  array  contains  the  fuel  required  by  each 
weapon  element  in  gallons.  If  an  element  does  not  require  fuel,  a  zero  is 
assigned  to  the  array. 

(f)  The  weapon  type  array  indicates  the  type  of  ammunition  being 
fired  (AD,  IF,  DF). 


B.  The  logistics  program  combines  the  inputs  listed  in  Table  4-1  with 
the  methodology  discussed  in  paragraph  5  to  provide  an  updated  "UNITFILE" 
for  the  current  critical  incident  (Cl) . 


4.  FILE  STRUCTURE. 

The  execution  of  the  logistics  program  requires  the  "UNITFILE",  two 
auxiliary  files,  and  six  online  data  arrays. 

A.  Auxiliary  storage. 

(1)  The  "UNITFILE"  is  created  by  the  interactive  running  of  the  game 
initialization  program  (PI).  It  consists  of  400  records,  each  containing 
150  elements.  The  assignment  of  records  is  as  follows:  records  1-191  Blue 
units,  and  records  192-400  Red  units.  The  logistics  program  requires  the 
use  of  32  elements  on  the  "UNITFILE"  as  inputs  and/or  outputs.  Refer  to 
Tables  4-1  and  4-2  for  these  inputs  and  outputs. 

(2)  The  "NAMEFILE"  is  the  only  other  auxiliary  file  required  by  the 
logistics  program  except  for  the  "UNITFILE".  This  file  consists  of  a  record 
containing  the  names  of  all  units.  It  is  created  new  for  each  game  by  the 
interactive  running  of  the  game  initialization  program  (PI)  and  contains 
character  strings  that  identify  the  units  assigned  to  the  game. 
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B.  Online  data. 
Ammo(*),  Truck_cap(*), 


Online  data  consists  of  six  data  arrays: 
Ammo_cap(*),  Fuel_cap(*),  Wpn_type(*) . 


Fuel(*) , 


(1)  Fuel(I,J).  Fuel(I,J)  is  a  10  x  70  array  containing  the 
consumption  of  fuel,  in  gallons,  per  six  hours  for  70  elements  under  10 
missions: 


Missions: 

0  =  Meeting  engagement 

1  *  Indirect  fire 

2  =  Movement 

3  =  Frontal  attack 

4  =  Envelopmental  attack 

5  =  Delay 

6  «  Hasty  defense 

7  =*  Prepared  defense 

8  =  Reserve/rear  area 

9  =  Ambush 


(2)  Ammo(I,J).  Ammo(I,J)  is  a  10  x  70  array  containing  the  noncombat 
consumption  of  ammunition  in  tons  per  six  hours  for  70  elements  operating 
under  10  missions  (see  above).  These  values  represent  leakage  within  the 
system. 

(3)  Truck_cap(J).  Truck_cap(J)  is  a  two-dimensioned  array  containing 
the  fuel-carrying  capacity  in  gallons  for  a  single  truck  and  the  cargo¬ 
carrying  capacity  in  tons  for  a  single  truck. 

(4)  Ammo_cap(J).  Ammo_cap(J)  is  a  70-dimensioned  array  containing  the 
packaged  weight,  in  tons,  for  each  of  the  70  DIME  elements.  The  packaged 
weight  is  constrained  by  the  basic  load  for  a  weapon  or  the  rate  of  fire  of 
a  weapon.  If  an  element  does  not  fire,  then  a  zero  value  is  assigned. 

(5)  Fuel_cap(J).  Fuel_cap(J)  is  a  70-dimensioned  array  containing  the 
capacity,  in  gallons,  for  those  DIME  elements  carrying  fuel.  If  an  element 
does  not  carry  fuel,  then  a  zero  value  is  assigned. 

(6)  Wpn_type(J).  Wpn_type(J)  is  a  70-dimensioned  array  containing  a 
pointer  describing  the  type  of  ammunition  being  fired  by  the  70  elements  on 
the  DIME  unit  structure  file.  The  entries  are  either:  Indirect  fire  (DF), 
2*indirect  fire  (IF),  or  3»air  defense  (AD).  If  a  DIME  element  does  not 
fire  ammunition,  then  a  value  of  3  is  assigned. 


5.  ALGORITHMS. 

A.  Figure  4-2  presents  a  generalized  logic  flow  of  the  logistics 
program.  The  program  first  determines  the  total  vehicle  (weapon)  capacity 
for  both  fuel  and  ammunition  of  an  active  unit.  It  then  calculates  combat 
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and  noncombat  fuel  consumption  as  well  as  noncombat  ammunition  consumption. 
Totals  of  the  supplies  on  hand  are  computed  and  then  checked  to  see  that  the 
quantities  of  ammunition/fuel  used  do  not  exceed  the  amounts  on  hand. 
Consumption  values  within  the  "UNITFILE"  are  updated.  Other  figures 
calculated  by  the  logistics  program  include  ammunition/fuel  status, 
quantities  remaining,  and  truck/ground  storage  sums.  The  "UNITFILE"  is 
updated  as  required.  These  calculations  are  performed  for  each  active  unit. 

B.  The  following  paragraphs  provide  a  detailed  description  of  the 
algorithms  used  in  the  calculation  of  fuel  and  ammunition  values  necessary 
for  the  running  of  the  air  defense  and  ground  combat  programs. 

(1)  Fuel  calculations. 

(a)  Calculate  the  total  fuel  capacity  of  all  weapons  in  gallons. 

70 

Ft  =  T  Nei  *  FCi  (Eq.  4-1) 

i^l 


where: 


Ft  =  total  fuel  capacity. 

Nej[  =  number  of  elements  of  each  weapon  type  i  where  i  represents 
the  70  DIME  weapons. 

Fci  =  fuel  capacity  of  each  weapon  type  i. 


(b)  Calculate  both  combat  and  noncombat  fuel  consumption  in 

gallons. 

70 

Fcon  -  jT  Net  *  EfA  (Eq.  4-2) 

where : 

Econ  =  total  fuel  consumed. 

Ne^  *  number  of  elements  of  each  weapon  type  i. 

Ef^  *  fuel  expended  for  combat  and  noncombat  missions  for 
each  weapon  type  i. 

(c)  Calculate  amount  of  fuel,  in  gallons,  available  for  use  at  the 
beginning  of  the  game  turn. 


4-8 


70 

Wf-  ^  Nei  *  FCi  *  Fs  (Eq.  4-3a) 


Fava  -  Wf  +  Tf  +  Gf  +  Rf 


(Eq.  4-3b) 


where : 

Wf  *  amount  of  fuel  on  the  70  DIME  weapons. 

Ne^  *  number  of  elements  of  each  weapon  type  i. 

Fc^  ■  fuel  capacity  of  each  weapon  type  i. 

Fs  *  fuel  status  of  unit  weapons;  value  ranges  from  0  to  1.0. 
Fava  =  fuel  available  for  use. 

Tf  ■  amount  of  fuel  on  trucks. 

Gf  =  amount  of  fuel  on  ground. 

Rf  =  amount  of  fuel  resupplied. 


(d)  Calculate  the  quantity  of  fuel,  in  gallons,  remaining  after 
consumption  and  dispensation  values  are  considered. 

Frem  -  Fava  -  (Fcon  +  Df)  (Eq.  4-4) 

where : 

Frem  «*  fuel  remaining. 

Fava  =  fuel  available  for  use;  see  (Eq.  4-3b)  above. 

Fcon  **  fuel  consumed;  see  (Eq.  4-2)  above. 

Df  ■  fuel  dispensed  to  other  units. 

(2)  Ammunition  calculations. 

(a)  Calculate  the  ammunition  capacity  in  tons  of  all  weapons 

combined . 

70 

At j  "  &  Ne^j  *  Acij  (Eq.  4-5) 

where : 

Atj  -  total  ammunition  capacity  for  weapon  type  i,  ammunition 
category  j  where: 
j  =  1  direct  fire 

■  2  indirect  fire 

■  3  air  defense. 
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Neij  * 
Acij  - 


number  of  elements  of  each  weapon  type  i,  ammunition  category 

j* 

ammunition  capacity  of  each  weapon  type  i,  ammunition  category 

j. 


(b)  Calculate  noncombat  ammunition  consumption,  in  tons,  for  each 
category  of  direct  fire  (DF),  indirect  fire  (IF)  and  air  defense  (AD). 

70 

Nacj  =  jjT  ^eij  *  ^®ij  (Eq.  4-6) 

where: 


Nee*  «* 
Neij  - 


noncombat  DF,  IF,  or  AD  ammunition  consumed. 

number  of  elements  of  each  weapon  type  i,  ammunition  category 
j. 

ammunition  expended  for  noncombat  missions  for  each  weapon 
type  i,  ammunition  category  j. 


(c)  Calculate  the  quantity  of  DF,  IF,  and  AD  ammunition  available 
for  use  at  the  beginning  of  each  game  turn. 


1_.  Calculate  the  amount  of  DF,  IF,  and  AD  ammunition  loaded 
onto  the  70  DIME  elements. 


Waj 


Neij  *  Ac^  *  Asj 


(Eq.  4-7a) 


where: 


Vaj- 
Neij  " 

Acij  - 
Asj  - 


the  total  amount  of  ammunition  loaded  onto  all  weapon  elements 
in  ammo  category  j. 

number  of  elements  of  each  weapon  type  i,  ammunition  category 

j. 

ammunition  capacity  of  each  weapon  type  i,  ammunition  category 

j* 

ammunition  status  of  each  DF,  IF  or  AD  weapon.  Value  ranges 
from  0  to  1.0. 


2.  Calculate  the  amount  of  DF,  IF,  and  AD  ammunition  loaded 
onto  the  cargo  trucks. 

Taj  =  FI j  *  At  (Eq.  4— 7b) 


where : 
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Taj  =  the  total  amount  of  ammunition  loaded  onto  all  cargo  trucks  in 
ammo  category  j. 

Flj  =  Z  of  DF,  IF,  or  AD  ammunition  on  cargo  vehicles. 

At  =  quantity  of  ammunition  on  cargo  vehicles. 


ground . 


where : 
Gaj 

F?J 

Ag 


3.  Calculate  the  amount  of  DF,  IF,  and  AD  ammunition  on  the 


Ga-j  =  F2,-  *  Ag 


(Eq.  4- 7c) 


the  total  amount  of  ammunition  on  the  ground  in  ammo  category 

j- 

%  of  DF,  IF,  or  AD  ammunition  on  the  ground, 
quantity  of  ammunition  on  the  ground. 


(Raj  ). 


4.  Calculate  the  amount  of  DF,  IF,  and  AD  ammunition  resupplied 


Raj  =■>  F3j  *  Ar  (Eq.  4-7d) 

where : 

F3j  =  Z  of  DF,  IF  or  AD  ammunition  resupplied 
Ar  =■  quantity  of  ammunition  resupplied. 
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5_.  Calculate  DF,  IF,  and  AD  ammunition  available  at  game 
turn  initialization. 

Aavaj  =  Waj  +  Taj  +  Gaj  +  Raj  +  Paj  (Eq.  4-7e) 

where : 

Paj  =  amount  of  DF,  IF,  or  AD  ammunition  left  from  previous  turn. 


(d)  Calculate  DF,  IF,  and  AD  ammunition  remaining  after  consumption 
and  dispensation  values  are  considered. 

Daj  *»  F4j  *  Ad  (Eq.  4-8a) 

Aremj  =  Aavaj  -  (Nacj  +  Daj  )  (Eq.  4-8b) 

where : 

Daj  -  quantity  of  DF,  IF,  or  AD  ammunition  dispensed  to  other  units. 

F4j  «*  %  of  DF,  IF,  or  AD  ammunition  dispensed  to  other  units. 

Ad  »  total  ammunition  dispensed  to  other  units. 

Aremj  *  ammunition  remaining. 

Aavj  «  DF,  IF,  or  AD  ammunition  available  for  use.  See  (Eq.  4-7e) 
above. 

Nac  **  noncombat  DF,  IF,  or  AD  ammunition  consumed.  See(  Eq.  4-6) 
above. 


6.  "UNITFILE"  IMPACT. 

In  order  to  fully  understand  the  function  of  the  logistics  program  within 
the  DIME  framework,  it  is  necessary  to  have  an  understanding  of  the 
relationships  existing  between  it,  the  air  defense  program  (P3),  the  ground 
combat  program  (P4),  and  the  unit  status  report  program  (P8).  The  following 
paragraphs  describe  these  relationships. 

A.  The  logistics  program  (P2)  is  executed  once  at  the  beginning  of  each 
turn.  It  calculates  the  available  quantities  of  all  ammunition  and  fuel  and 
the  net  amounts  resulting  from  leakage,  dispensation,  and  resupply.  It 
should  be  noted  that  fuel  consumption  values  include  combat  as  well  as 
noncombat  expenditures.  This  means  that  P2  is  the  only  program  in  DIME  to 
calculate  fuel  consumption  values.  From  the  net  ammunition  amount,  P2 
calculates  the  percent  of  direct  fire,  indirect  fire,  and  air  defense 
ammunition  'loaded'  onto  the  weapons  and  trucks.  The  remainder  is  placed  on 
the  ground.  The  net  DF,  IF,  and  AD  amounts  are  placed  in  positions  131-  133 
of  the  ''UNITFILE''  to  be  consumed  and/or  destroyed  during  the  execution  of 
the  air  defense  (P3)  and  ground  combat  (P4)  programs. 
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B.  The  air  defense  (P3)  and  ground  combat  (P4)  programs  may  be  executed 
zero  to  N  times,  N  being  constrained  only  by  ammunition  availability.  When 
each  battle  is  over,  both  P3  and  P4  place  the  unused  fuel  and  ammunition 
back  in  positions  131-133  of  the  "UNITFILE." 

C.  The  unit  status  report  (P8)  is  executed  once  at  the  end  of  each  game 
turn.  It  compares  the  remaining  quantities  of  DF,  IF,  and  AD  ammunition 
placed  in  the  "UNITFILE"  by  P3  and  P4  with  the  combat  and  noncombat 
ammunition  quantities  available  at  the  beginning  of  the  turn,  positions  116 
-  118  of  the  "UNITFILE",  in  order  to  determine  consumption  values.  It  then 
redistributes  the  ammunition  to  the  weapons,  trucks,  and  onto  the  ground  in 
a  similar  manner  to  that  of  P2.  P8  then  makes  this  information  available  to 
the  gamer  in  the  form  of  a  unit  history.  The  unit  history  also  includes  the 
number  of  systems  remaining,  unit  mission,  and  detection  status. 

D.  Because  P2  calculates  the  noncombat  consumption,  resupply,  and 
dispensation  values  of  DF,  IF,  and  AD  ammunition,  it  must  reevaluate  the 
quantities  P8  distributes  among  the  weapons,  trucks,  and  ground  storage  in 
the  preceding  game  turn.  It  then  allocates  appropriate  levels  of  ammunition 
for  the  execution  of  P3  and  P4  in  the  current  game  turn. 

E.  Table  4-2  contains  a  list  of  all  "UNITFILE"  elements  updated  by 
the  logistics  program.  Each  element's  location  within  the  "UNITFILE"  and  a 
short  description  are  furnished.  The  elements  are  listed  in  ascending  order 
according  to  their  locations  within  the  "UNITFILE". 


7.  CODE. 


A.  The  logistics  code  is  written  as  one  program  without  major 
subroutines.  The  code  initiates  the  algorithms  discussed  in  paragraph  5  of 
this  chapter.  After  the  appropriate  Blue/Red  data  is  read,  the  following 
will  occur  with  each  unit  processed: 

(1)  Position  82  of  the  "UNITFILE"  is  tested  for  zero.  If  it  is  zero,  the 
unit  is  inactive  and  logistics  processing  is  not  done  for  the  unit. 

(2)  Calculations  occur  for  active  units  which  determine  fuel  supplies  on 
hand,  fuel  supplies  consumed  (non-combat),  and  the  current  vehicle  fuel 
capacity.  Similar  calculations  occur  for  ammunition. 

(3)  Ammunition  quantities  remaining  after  non-combat  consumption  and 
dispensation  to  other  units  are  tested.  If  the  amounts  consumed  and 
dispensed  exceed  that  which  was  on  hand,  a  message  is  printed  to  make  the 
controllers/gamers  aware  of  this  occurrence.  The  amount  remaining  is  then 
set  to  zero. 
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Table  4-2.  Logistics  "UNITFILE"  updates. 


"UNITFILE"  locations 

84 

85 
66 

101 

102 

103 

104 

105 

106 
108 

109 

115 

116  -  118 

119  -  121 

122 

123 


Element  description 

Cargo  trucks  alive  at  start  of  turn. 

Fuel  trucks  alive  at  start  of  turn. 

JP4  trucks  alive  at  start  of  turn. 

Fuel  status  of  unit  vehicles;  value  ranges 
from  0  to  1.0. 

JP4  status  of  unit  vehicles;  value  ranges  from 
0  to  1.0. 

Fuel  on  tankers  (gallons). 

JP4  on  tankers  (gallons). 

Fuel  on  ground  (gallons). 

JP4  on  ground  (gallons). 

Fuel  consumed  during  the  current  game  turn 
(gallons). 

JP4  consumed  during  the  current  game  turn 

Helicopter  ammunition  at  start  of  turn  (short 
tons) . 

DF,  IF  and  AD  ammunition  at  start  of  turn 
(short  tons). 

DF,  IF  and  AD  vehicle  ammunition  status; 
values  range  from  0  to  1.0. 

Helicopter  ammunition  status;  values  range 
from  0  to  1.0. 

Ammunition  on  cargo  vehicles  (short  tons). 
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Table  4-2.  Logistics  "UNITFILE"  updates  (concluded). 


"UNITFILE"  locations 


Element  description 


124 

Distribution  of  cargo  by  type  (XXX. YYY).* 

125 

Ammunition  on  ground  (short  tons). 

126 

Distribution  of  ground  ammunition  by  type 
(XXX. YYY).* 

131  -  133 

DF,  IF  and  AD  ammunition  available  for 
consumption  (short  tons). 

134 

Helicopter  ammunition  available  for 
consumption  (short  tons). 

139  -  141 

Cumulative  DF,  IF,  and  AD  ammunition  consumed 
to  date  (short  tons). 

142 

Cumulative  helicopter  ammunition  consumed  to 
date  (short  tons). 

143 

Cumulative  fuel  consumed  to  date  (gallons). 

144 

Cumulative  JP4  consumed  to  date  (gallons). 

147 

Fuel  left  after  consumption  and  dispensation 
values  are  figured. 

148 

JP4  left  after  consumption  and  dispensation 
values  are  figured. 

*  Refer  to  Table  4-1  of  this  chapter  for  a  detailed  description. 
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(4)  The  status  for  ammunition  and  fuel  are  calculated.  The  status 
amounts  are  calculated  by  dividing  the  remaining  amounts  (after  non-combat 
consumption  and  dispensation)  by  the  total  vehicle  capacity.  Excess  fuel 
and  ammunition  are  calculated  and  stored  on  the  ground  for  use  during 
combat.  Thi3  excess  is  determined  by  any  fuel  and  ammunition  which  was  not 
consumed,  dispensed,  or  placed  on  vehicles. 

B.  Table  4-3  provides  a  summary  of  the  logistics  program's  primary 
variables  and  their  description.  A  listing  of  P2  code  appears  in  Table  4-4. 
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Fuel_cap(*)  Bust  correspond 
with  the  arrays  F(1,J)  and 
F(2,J)  contained  within  the 
Operations  Module,  PI. 


Table  4-3.  Logistics  Subroutine  Table. 
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Ammo_lef t(*)  Contains  the  DF,  IF  and  AD 

ammo  quantities  remaining  after 
non-combat  consumption  and 
dispensation  values  are 
subtracted. 


Table  4-3.  Logistics  Subroutine  Table. 
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Table  4-4.  Logistics  code 


10  REM  "P2"  IS  THE  LOGISTICS  PROGRAM  FOR  DIME 

20  '  DATA  CHANGED  21  FEB  85.  ROB  BELFLOWER  PLAYS  400  UNITS 

30  EXPANDED  VERSION  —  JUNE  9.  1986  —  BY  OAO  CDRP. 

31  !  DECLASSIFIED  —  AUG  7.  1986  —  BY  OAO  CORP.  **  DC  ** 

40  OPTION  BASE  1 

50  ! 

60  Disk*=": 9134, 704,0" 

64  Dcdisk*=": 9134, 704.0“  '  **  DC  ** 

70  PRINTER  IS  1 

QO  DIM  N  < 150) , Fuel  (10,70), Ammo (10,70) , Fuel _cap (70)  ,  Ammo_cap ( 70 ) . Frac (3) 

90  DIM  Wpn_type (70) , Ammo_used (3) , Ammo_on_hand (3) , Tot_veh_ammo ( 3) . True ) _  c ap  <  7 

100  DIM  Ammo_l ef t (3) 

101  DIM  Datal ine (70) , Dummyrec (70)  !  **  DC  ** 

102  INTEGER  Element . Recnum  !  **  DC  ** 

110  INTEGER  I , J , K 

120  PRINTER  IS  1 

130  PRINT  USING  "(?.#" 

140  PRINT  TABXY (30, 19) ; "LOGISTICS  MODULE" 

150  INPUT  "DO  YOU  WANT  TO  DO  POST-GAMETURN  RESUPPLY  <R>  OR  DO  YOU  WANT  TO  RUf> 
P2  <P>?" , Ans* 

160  IF  Ans$="R"  THEN 

170  PRINT  "LOADING  DATA  OPERATIONS  MENU _ PLEASE  BE  PATIENT." 

180  LOAD  "Pis  9134, 704,0" 

190  END  IF 

200  INPUT  "HOW  MANY  HOURS  OF  SUPPLY  DO  YOU  WANT  TO  RUN?". Hour 

210  (IF  Hour <6  THEN  Hour =6 

220  ASSIGN  i?Path  TO  "UN I TFILE"!<Di sk* 

230  ASSIGN  i?Pname  TO  "NAMEFILE"!<Di  sk* 

240  ! 

250  GOSUB  Blue  data  1  READ  BLUE  LOG  DATA 

260  ! 

270  !  BEGIN  UNIT  PROCESSING  LOOP 

280  ( 

290  PRINT  USING  "<?,#" 

300  FOR  1-1  TO  400 

310  ENTER  6‘Pname,  I ;  M* 

320  IF  I«192  THEN  GOSUB  Red_data  !  READ  RED  LOG  DATA 

330  ENTER  GPath , I ; N ( * > 

340  IF  M*="  "  THEN  GOTO  Next  unit 


350 

CTIVE 

IF  N (82 ) “0  OR  N (82) =2  THEN 

!  UNIT  IS  IT 

360 

PRINT  USING  "3D, 2X,8A"; I, "INACTIVE" 

370 

GOTO  Next  unit 

380 

END  IF 

390 

GOSUB  Ini t_uni t_var 

1  ZERO  UNIT  VARIABLES 

400 

PRINT  USING  "3D, 2X, 10A"; I, "PROCESSING" 

410 

1 

420 

Ipt 1“N (83) 

430 

1 

440 

1  COMPUTE  SUPPLIES  ON  HAND.  CONSUMED.  AND  TOTAL 

VEHICLE  CAPACITY 

450 

FOR  J=1  TO  70 

460 

Tot_veh_f  uel  =  Tot_veh_'f  uel  -*-N  (J)  *Fuel  _cap  (J) 

'Table  4-4.  Logistics  code 


470  T  ot_veh_amino ( Wpn_type ( J ) >  =Tot  _veh_ammo (Wpn_type(J> ) +N ( J ) * Ammo_cap ( J ) 

480  '  Fuel  1= (Fuel  ( Iptl  . J) )  'FUEL  USE  BY  3-HOURS  ROB 

490  FOR  X=1  TO  2 

500  Xlst=INT (Iptl) 

510  X2nd=(Iptl-Xlst)*10 

520  IF  X  =  1  THEN  Fuel  1  =  (Fuel  ( X  1  st-t-1 .  J  >  ) 

530  IF  X=2  THEN  Fuel  1 “Fuel  1+ (Fuel ( X2nd  + 1 , J > ) 

540  NEXT  X 

550  Fuel l=(Fuel 1/2) *INT(Hour/6>  ! ROB 

560  Fuel  _used=Fuel  _used+N ( J  >  *Fuel  1 

570  Fuel _on_hand“Fuel _on_hand+N ( J > #Fuel _cap ( J  >  *N ( 101 ) 

580  ! Ammol ■= ( Ammo ( Ipt 1 , J ) )  ROB 

590  Ammo 1 =0 ! ROB 

600  Ammo_used  ( Wpn_type  ( J )  )  “Ammo_used  ( Wpn_type  ( J  )  )  -*-N  ( J  >  *Ammo  1 

610  Ammo_on_hand (Wpn_type  <0 ) >  =Ammo_on_hand (Wpn_type ( J ) >  +N ( J  >  *Ammo_cap ( J > » 

( 1 18+Wpn_type ( J ) ) 

620  NEXT  J 

630  ! 

640  !  COMPUTE  TOTAL  OF  SUPPLIES  ON  HAND 

650  Fuel  _on_h  and  “Fuel  _on_hand+N  ( 103 )  +N  ( 105)  +N  ( 1  1 0)  '  TOTAL  FUEL  IN 

NIT 

660  !  ADD  TRUCK  CARRIED  AMMO 

670  Frac (1)=INT(N( 124) )/ 1000 

680  Frac  (2) =N < 124) -INT (N ( 124) ) 

690  Frac(3)=l-(Frac(l)+Frac<2> ) 

700  IF  Frac  <3)00  THEN  Frac  (3)  =0 

710  FOR  J=1  TO  3 

720  Ammoon  hand (J ) =Ammo_on_hand (J ) +Frac (J ) *N ( 123) 

730  NEXT  J 

740  ! 

750  !  ADD  GROUND  STORED  SUPPLIES 

760  Frac  ( 1 )  «=INT  (N  ( 126)  >  /  1000 

770  Frac (2) =N ( 126) -INT (N ( 126) ) 

780  Frac (3) =1- (Frac ( 1 ) +Frac (2) > 

790  IF  Frac (3)<=0  THEN  Frac (3) =0 

800  FOR  J=1  TO  3 

810  Ammo_on  hand  (J)  cAmmo  on  hand  ( J  ) -*-Fr  ac  ( J  )  *N  ( 1  25) 

820  NEXT  J 

830  ! 

840  1  ADD  RESUPPLY 

850  Frac ( 1>=INT(N( 136) ) /lOOO 

860  Frac (2) =N ( 136) -INT (N ( 1 36) > 

870  Fr ac  (3)  =  1- (Fr ac  ( 1 ) +Fr ac  (2 )  > 

880  IF  Frac (3) <*0  THEN  Frac (3) =0 

890  FOR  J«1  TO  3 

900  Ammo  on  hand(J)=Ammo  on  hand (J ) +Frac (J ) *N ( 135 ) 

910  NEXT  J~ 

920  1 

930  ! ADD  LEFT  FROM  PREVIOUS  BATTLE 

940  FOR  J=1  TO  3 

950  Ammo_on_hand ( J > “Ammo  on_hand ( J ) +N ( 1 30+J ) 

960  NEXT  j’ 
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Table  4-4 


Logistics  code 


970 
980 
990 
1  00O 
1010 
1 020 
1030 
1 040 
1 050 
1 060 
1070 
1080 
1090 
1  100 
1110 
1120 
1  130 
1140 
1 150 
1  160 
1  170 
1  130 
1190 
1 200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1 300 
1310 
1320 
1 330 
1340 
1350 
1360 
1370 
1380 
1390 
1 400 
1410 
1 420 
1430 
1440 
1  450 
1460 
1  470 
1  480 


CHECK  THAT  AMOUNT  FIRED/USED  DOES  NOT  EXCEED  ON-HAND  AMOUNT 
Frac < 1 >  =INT (N  < 138)  ) / lOOO 
Frac  <2>  =N  < 138) -INT  <N  < 138) > 

Frac <3) “ 1  - (Frac ( 1 >  +Frac <2) ) 

IF  Frac  <3>  «■  =0  THEN  Frac<3)=0 
FOR  J=1  TO  3 

Ammo_lef t  <  J  )  =Ammo_on_hand  ( J  )  -  (Ammo_used  ( J  >  +rrac  < J  >  #N  (  137)  ) 

IF  Ammo_l eft  < J ) <0  THEN 
SELECT  J 
CASE  1 

Ammot vpeS=" DF " 

CASE  2 

Ammot ype*=” IF" 

CASE  3 

Ammot vpe*=“ AD" 

END  SELECT 
PRINTER  IS  702 
PRINT 

PRINT  *****  UNIT  '*:  M*  ?•'<";  1  HAS  DISPENSED/USED  "  :  —Amino,  1  ef  t  ( J 

PRINT  "  MORE  Ammotype*: "  TOMS  THAN  AVAILABLE!" 

PRINTER  IS  1 

Ammo  used <  J ) =Ammo_on_hand ( J  > 
flmmo  l  eft  ( J  >  =«'» 

END  IF 
NEXT  J 

Fuel  _1  e-f  t*Fuel  on  hand-<Fuel  used+N  <  1 12)  ) 

IF  Fuel  _1  e-f  t<0  THEN 
PRINTER  IS  702 
PRINT 

PRINT  *****  UNIT  M*  ;’*<**:  I ;")":  "  HAS  DISPENSED /USED  "  :  -Fuel  _  1  ef  t 
PRINT  '*  MORE  GALLONS  OF  FUEL  THAN  AVAILABLE'*' 

PRINTER  IS  1 
Fuel _used=Fuel _on_hand 
Fuel  _1  e-f  t=0 
END  IF 

N  <  147)  “Fuel  _1  e-f  t 

UPDATE  CONSUMPTION  RECORD 
FOR  J=1  TO  3 

N  ( 130+J  >  =Ammo_l  e-f  t  ( J  > 

N  < 1 38+J ) =Ammo_used ( J  >  +N ( 1 38+ J ) 

N ( 1 1 5+J ) =Ammo_on_hand  < J ) 

NEXT  J 

N  < 108) “Fuel _used 
N ( 143) =N ( 143) +Fuel .used 

CALCULATE  FUEL  STATUS  AND  REMAINING  FUEL 
IF  Tot_veh_f uel < 1  THEN  1550 
IF  Tot_veh_f  uel  =Fue)  _1  e-f  t  THEN 
N  (  1 0 1  )  “Fuel  „  1  ef  t.  /  Tot  __  veh  fuel 
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Table  4-4.  Logistics  code 


1490  Fuel  left=0 

1500  ELSE 
1510  N  (  1 0 1  )  =  1 

1520  Fuel  _  1  ef t=Fuel  _  1  ef  t— Tot._veh_f  uel 

1530  END  IF 

1540  ! 

1550  !  CALCULATE  AMMO  STATUS  AND  REMAINING  AMMO 

1560  FOR  J=1  TO  3 

1570  IF  Tot_veh_ammo < J > <=0  THEN 

1580  N  ( 1 1 8+J ) =0 

1590  GOTO  1680 

1600  END  IF 

1610  IF  Tot_veh_ammo < J > >*Ammo_l ef t (J )  THEN 

1620  N  ( 1  18+J )  “Ammo_l  e-f  t  <  J  )  / Tot _veh  .ammo  ( J ) 

1630  Ammo_l  e-f  t  <  J )  =0 

1640  ELSE 

1650  N ( 1 18+J  >  =  1 

1660  Ammo_l  e-f  t  (J  )  “Ammo  lef t < J > -Tot_veh_ammo < J > 

1670  END  IF 

1680  NEXT  J 

1690  ! 

1700  !  CALCULATE  TRUCK/GROUND  FUEL  STORAGE 

1710  IF  Fuel  _1  e-f  t  >0  THEN 

1 720  Load_cap=N (55) *Truck_cap < 1 > 

1730  IF  Load_cap  >Fuel  _1  ef  t  THEN 

1740  N  <  103)  “Fuel  _1  e-f  t 

1750  N  < 105) =0 

1760  ELSE 

1770  N < 103) “Load_cap 

1780  N  ( 105)  “Fuel  _1  e-f  t—Load_cap 

1790  END  IF 

1800  ELSE 

1810  N  < 103) =0 

1820  N  < 105) “0 

1830  END  IF 

1 840  ! 

1850  N  <85) “N (55) 

1860  IF  N  < 146) >0  THEN  N<105)=0  !  DUMPS  FUEL  ON  GROUND  FOR  MOVING  UNIT 

1870  !  CALCULATE  TRUCK/GROUND  AMMO  STORAGE 

1880  Ammo_total=Ammo_lef  t  <  1 )  ■*-Ammo_l  eft  <2>  +Ammo_l ef t  (3) 

1890  IF  Ammo_total >0  THEN 

1900  Sl“Ammo_l ef t  < 1 > /Ammo_ total  *  1 000 

1910  S2*Ammo_l ef t < 2 ) /Ammo_t ot al 

1920  N  < 1 24  > “TnT (SI) +S2 

1930  N( 126)“N< 124) 

1940  Load_cap«N (58) *Truck_cap <4> 

1950  IF  Ammo_total <“Load_cap  THEN 

1960  N < 123) “Ammo_total 

1970  N ( 1 25 ) =0 

1980  N ( 1 26) “O 

1990  ELSE 

2000  N ( 123) “Load _cap 


!  FUEL  ON  TANKERS 
!  FUEL  ON  GROUND 
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2010 

2020 

2030 

20-40 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

232 1 

2322 

2330 

2331 

2332 

2333 

2334 

2335 

2336 
2350 
2360 
2370 

2380 

2381 

2382 

2383 

2384 

2385 
2390 
2400 


N ( 1 25) =Ammo_  total -Load_cap 
END  IF 
ELSE 


N( 123) =0 

1  AMMO 

ON  CGO  VEHICLES 

N ( 124) »0 

!  DIST 

OF  AMMO  ON  CGO  VtH 

N ( 1 25) =0 

!  AMMO 

STORED  ON  GROUND 

N ( 126 ) =0 

!  DIST 

OF  AMMO  ON  GROUND 

END  IF 
N<84) =N<58) 

IF  N  < 1 46  >  >0  THEN  N<125>=0  !  DUMPS  AMMO  ON  GROUND  FOR  MOVING  UNIT 


Write.out:  '  WRITE  OUT  TO  UNIT  FILE 

OUTPUT  ©Path. I ; N ( * ) 

PRINTER  IS  1 

Ne>: t_un it:  !  END  OF  UNIT  PROCESSING 
NEXT  I 


ASSIGN  ©Path  TO  * 

PRINT 
PR  I  NT 

PRINT  "LOGISTICS  PROCESSING  COMPLETED 
LOAD  "DIME"S/Di  sk* 

GOTO  Halt 


********************  end  OF  MAIN  PROGRAM  ****************************** 


B1 ue_data:  !  THIS  SBR  HOLDS  BLUE  LOGISTICS  DATA 

!  **  DC  **  7  AUG  1986 

i 

ASSIGN  ©Pammouse  TO  "BLAMMQ_USE"S<Dcdi  skS 
FOR  Recnum=l  TO  10 

ENTER  ©Pammouse, Recnum: Datal i ne ( *  > 

FOR  Element=l  TO  70 

Ammo (Recnum, El ement ) =Datal i ne (El ement ) 
NEXT  Element 
NEXT  Recnum 
ASSIGN  ©Pammouse  TO  * 

I 

ASSIGN  ©P-f  uel  use  TO  "BLFUEL_USE"S<Dcdi  sk* 

FOR  Recnum=l  TO  10 

ENTER  ©P-f  uel  use,  Recnum;  Datal  i  ne  ( *  ) 

FOR  El ement=l  TO  70 

Fuel  (Recnum,  Element )  *=Datal  Ine  (El  ement ) 
NEXT  Element 
NEXT  Recnum 
ASSIGN  ©P-fueluse  TO  * 
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Logistics  code 


3760  ASSIGN  ©Ptrkcap  TO  “BL_TRK_CAP”?<Dcd  j  sir* 

3770  ENTER  ©Ptr kcap, 1 : Truck_cap ( * ) 

3780  ASSIGN  ©Ptrkcap  TQ  * 

3786  ! 

3790  ASSIGN  ©Pammocap  TO  “  AMMO_CAP"S-Dcdi  st  4 
3800  ENTER  ©Pammocap , 1 ; Ammo_cap (* ) 

3810  ASSIGN  ©Pammocap  TO  * 

3820  * 

3830  ASSIGN  ©Pfuelcap  TO  "FUEL_CAP,,!!<Dcdi sk* 

3840  ENTER  ©PFuel cap , 1 ; Fuel _cap (* ) 

3850  ASSIGN  ©Pfuelcap  TO  * 

3860  ! 

3870  ASSIGN  ©Pwpntyp  TO  MWPN_TYP"S-Dcr1i  skt 
3880  ENTER  ©Pwpntvp , 1 : Wpn_type ( * > 

3890  ASSIGN  ©Pwpntyp  TO  * 

3900  >  **  END  DC  ** 

4070  ! 

4080  RETURN 
4090  ! 

4100  !  ******»^*****************#** **********************  ».*#*****#*##**##*#*** 

4110  ! 

4120  Red_data:  !  THIS  SBR  HOLDS  RED  LOGISTICS  DATA 

4130  ! 

4140  ASSIGN  C-Pammouse  TO  "RDAMMO_USE,'?<Dcdi  sk* 

4150  FOR  Recnum=l  TO  10 

4151  ENTER  gPanwiouse, Recnum; Datal  i ne ( * ) 

4152  FOR  Elemental  TO  70 

4153  Ammo (Recnum, El ement ) =Datal i ne (Element ) 

4154  NEXT  Element 

4155  NEXT  Recnum 

4160  ASSIGN  ©Pammouse  TO  * 

4170! 

4860  ASSIGN  ©Pfueluse  TO  "RDFUEL_USE"S<Dcdi  sk* 

4870  FOR  Recnum=l  TO  10 

4871  ENTER  ©Pfuel  use.  Recnum;  Datal  l  ne  (*  > 

4872  FOR  El ement =1  TO  70 

4873  Fuel  (Recnum, El ement ) =Datal l ne (El  ement ) 

4874  NEXT  Element 

4875  NEXT  Recnum 

4880  ASSIGN  ©Pfuel use  TO  * 

4890  ! 

4900  ASSIGN  ©Ptrkcap  TO  "RD_TRK_CAP"S<Dcdi  sk* 

5590  ENTER  ©Ptrkcap. 1 ; Truck_cap ( * > 

5600  ASSIGN  ©Ptrkcap  TO  * 

5610  ! 

5611  ASSIGN  ©Pammocap  TO  “ AMMO_CAP"?<Dcdi sk* 

5620  ENTER  ©Pammocap , 1 : Dummyr ec ( * > . Ammo_c ap ( * > 

5630  ASSIGN  ©Pammocap  TO  * 

5640  ! 

5700  ASSIGN  ©Pfuelcap  TO  "FUEL_CAF"?-Dcdi  sk* 

5710  ENTER  ©Pfuel cap , 1 ; Dummvrec (*). Fuel _cap (* ) 

5720  ASSIGN  ©Pfuelcap  TO  * 
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5730  ! 

5790  ASSIGN  UPwpnt.vp  TO  "WPN_TYP‘,S-Dcdi  str* 

5S00  ENTER  t?Pwpnt.yp .  1 :  Dumniyrec  ( * )  ,  Wpn_type  (  * ) 

5810  ASSIGN  SPwpnt vp  TO  * 

5811  ! 

5880  !  **  END  DC  ** 

5890  ! 

5900  RETURN 
5910  1 

5920  1  *****Xt*^*******»*****************y*****t  ft:***************************** 

5930  ! 

5940  Ini t.um t_vsr :  1  THIS  SRR  INITIALIZES  UNIT  SUPPLY  VARIABLES 

5950  1 

5960  Tot_veh_-f  uel  =0 
5970  Fuel_used=0 
5980  Fuel _on_hand=0 
5990  Fuel_leTt=0 
6000  Ammo_total=0 
6010  Load_cap=0 
6020  FOR  J=1  TO  3 
6030  Ammo_on_hand < J ) =0 

6040  Fr  ac ( J ) =0 

6050  Tot_veh_ammo ( J ) =0 

6060  Ammo_used ( J ) =0 

6070  Ammo_l  e-f  t  <  J  )  =0 

6080  NEXT  J 
6090  RETURN 
6100  ! 

6110  !  ***f******#**********x****»*******f******* ************************ <•»<»* 

6120  Halt: END 
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CHAPTER  5 


AIR  ATTACI/AIR  DEFENSE 


1.  PURPOSE. 

The  purpose  of  the  DIME  air  defense  program  is  to  realistically  game  air- 
to-ground  and  ground-to-air  interactions  between  ground  forces  and  opposing 
aircraft.  Four  types  of  aircraft  and  70  types  of  ground  elements,  which 
include  four  types  of  air  defense  weapon  systems,  are  played. 

2.  GENERAL. 

A.  Both  Red  and  Blue  forces  are  given  appropriate  capabilities  and 
limitations  in  order  to  realistically  mirror  current  and  future  equipment, 
vehicles,  weapons,  aircraft,  and  munitions. 

B.  Air  operations  are  separated  into  two  phases:  ingress/egress  and  air 
strike. 

(1)  The  ingress/egress  phase  calculates  the  attrition  suffered  by 
aircraft  which  fly  over  previously  undetected  air  defense  units. 

(2)  The  air  strike  phase  calculates  the  attrition  in  both  aircraft  and 
ground  elements  resulting  from  interdiction  at  the  target  area. 

C.  Program  characteristics  include: 

(1)  Four  aircraft  types,  two  fixed  wing  and  two  helicopters,  are 
played  for  each  force  (Red  and  Blue). 

(2)  The  following  four  generic  air  defense  types  are  played: 

(a)  Man-portable,  shoulder-fired  missile  system. 

(b)  Self-propelled,  low-altitude  guided  missile  system. 

(c)  Self-propelled  gun  system. 

(d)  Low  to  medium  altitude  over  watch  missile  system. 

(3)  Aircraft  losses  during  ingress  and  egress  are  calculated  using  the 
methodology  from  the  Air  Defense  Air-to-Ground  Engagement  (ADAGE)  model. 

(A)  Aircraft  and  ground  losses  during  the  strike  phase  are  calculated 
using  methodology  from  the  Joint  Munitions  Effectiveness  Manual  (JMEM)  and 
ADAGE. 
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(5)  Aircraft  have  multiple  munition  loads  including  cluster  munitions, 
guided  missiles,  area  rockets,  and  guns. 

(6)  Aircraft  loads  are  tailored  to  the  expected  target  types. 

(7)  Attrition  to  both  ground  targets  and  aircraft  is  driven  by 
delivery  profiles  for  aircraft  munitions. 

(8)  Air  strikes  are  terminated  by  one  of  the  following: 

(a)  Delivery  of  all  aircraft  munitions. 

(b)  Aircraft  losses  exceed  threshold. 

(c)  Perceived  ground  losses  exceed  threshold. 

(9)  Mounted  infantry  casualties  are  assessed  in  proportion  to  carrier 
vehicle  losses. 


3.  DATA  FLOW. 

The  air  defense  program  is  dependent  upon  inputs  from  the  user.  Blue  or  Red 
aircraft  are  first  chosen.  It  is  then  decided  whether  those  aircraft  will 
fly  ingress,  strike,  or  egress.  Figure  5-1  shows  the  data  flow. 

A.  Ingress/egress  inputs. 

(1)  The  number  of  aircraft  making  the  flight. 

(2)  The  type  of  aircraft: 


Input 

Blue 

Red 

1 

A10 

M28  (Frogfoot) 

2 

F16 

M27  (Flogger) 

3 

UH60 

Halo 

4 

AH64 

Hind 

(3)  Altitude,  in  feet,  which  the  aircraft  is  flying. 

(4)  Number  of  ground  units  overflown  by  ail  craft. 

(5)  CAS/BAI.  The  two  types  of  aircraft  flights  possible  are  close  air 
support  and  battlefield  air  interdiction. 

(6)  High/low  density.  This  input  represents  the  density  of  the  air 
defense  systems  as  either  high  or  low. 

(7)  Unit  identification.  The  unit  number(s),  up  to  a  maximum  of  five, 
of  the  enemy  unit(s)  overflown. 
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Figure  5-1.  Air  defense  information  flow. 


RESULTS 

-  AIRCRAFT 
LOSSES 

-  TARGET 
*  LOSSES 

-  MUNITIONS 
EXPENDED 

-  DETECTION 
LIST  UPDATED 
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(8)  Terrain.  Corresponding  terrain  occupied  by  each  unit  overflown. 


1 

2 

3 

4 


Open 

Rolling 

Hilly 

Mountainous 


B.  Strike  inputs. 

(1)  The  number  of  aircraft  making  the  strike. 

(2)  Aircraft  type. 

(3)  Aircraft  mission. 

1  »  Bridge 

2  *  Antiarmor 

3  *  Antipersonnel 

4  »  Strike  POL  point 

5  =  Strike  AMMO  point 

(4)  Aircraft  break  point.  The  maximum  percentage  of  attrition  the 
aircraft  will  incur  before  breaking  the  attack. 

(5)  The  percent  of  the  target  unit  in  the  open  (having  limited 
overhead  protective  cover). 

(6)  CAS/BAI . 

(7)  High/low  density. 

(8)  Target  length.  The  length  dimension  of  the  area  occupied  by  the 
target  unit(s)  in  meters. 

(9)  Target  width.  The  width  of  the  target  in  meters. 

(10)  Target  posture.  The  strategic  (major)  mission  of  the  target. 

1  -  Attack 

2  «  Defend 

3  ■  Reserve 

4  -  Move 

(11)  Target  type.  The  unit  type  of  the  target. 

0  -  Combat  unit 

1  ■  Artillery  unit 

2  -  Air  defense  unit 

3  ■  Attack  helicopter  ground/ forward  rearming  and  refueling 

point  (FARP) 
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4  =  Command  post/headquarters  (CP/HQ) 

5  =  Engineer  unit 

6  =  POL/AMMO  supply  point 

7  =  Maintenance  point 

8  *  Bridge 

9  ■  Communications/radar/electronic  warfare  (EW)  sites. 

(12)  Number  of  targeted  units. 

(13)  Unit  identification.  The  unit  number(s),  up  to  a  maximum  of  five, 
of  the  enemy  unit(s)  targeted. 

(14)  Terrain. 

(15)  Percent  targeted.  The  percentage  of  each  unit  targeted  depending 
on  air  intelligence,  target  location,  camouflage  of  target,  operational 
mission,  and  terrain. 


C.  Additional  options  beside  ingress,  egress,  and  strike,  include: 

(1)  Status  report.  This  report  may  be  used  to  print  information  or 
help  debug  any  changes  to  the  program.  Options  available  are  as  follows: 

(a)  List  current  results. 

(b)  List  Blue  air  cumulative  results. 

(c)  List  Red  air  cumulative  results. 

(d)  List  debug  unit  information. 

(e)  List  debug  flight  information. 

(f)  List  debug  strike  information. 

(2)  Update  results.  This  option  allows  the  choice  of  storing  the 
information  from  the  current  ingress,  egress,  or  strike  flight  or  purging 
its  information  to  enable  rerunning. 

(3)  Exit  module.  If  return  to  the  DIME  driver  is  desired,  the  exit 
option  is  chosen.  A  prompt  then  appears  to  ensure  updates  to  files. 
"Reminder  to  save  final  results  (Y/N)"  is  answered  N  if  an  update  had  been 
accomplished  and  will  continue  exiting  from  the  program. 


4.  FILE  STRUCTURE. 

DIME  air  defense  data  files  are  used  by  the  program  to  describe  aircraft 
performance,  weapons  and  munitions  capabilities,  and  target  characteristics. 
The  data  are  stored  on  random  access  files  as  shown  in  Figure  5-2. 
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Figure  5-2.  Air  defense  data  bases. 
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A.  Aircraft  profile  files. 


(1)  The  aircraft  profile  files  contain  data  describing  air  defense 
weapon  characteristics  against  a  specific  type  aircraft.  Two  files  exist 
for  each  aircraft  played,  one  for  ingress  and  one  for  egress. 

(2)  The  structure  of  the  random  access  file  is  as  follows.  Air 
defense  (ADA)  weapons  represent  positions  48  -  54  of  the  "UNITFILE". 


Array  Name:  Flt_profile(*) .  File  Name:  The  file  name  is  based  on  the 
aircraft  type  and  whether  the  aircraft  is  ingressing  or  egressing  (example: 


A10_ING). 

File 

Positions 

Description 

1  through  7 

Minimum  altitude  (meters)  that  the  7  ADA  weapons 
can  engage  the  aircraft. 

8  through  14 

Maximum  altitude  (meters)  that  the  7  ADA  weapons 
can  engage  the  aircraft. 

15  through  21 

Radius  of  effects  for  range  of  the  7  ADA  weapons 
to  engage  the  aircraft  in  meters. 

22  through  28 

Probability  of  participation  of  7  ADA  weapons 
against  the  aircraft. 

29  through  35 

Number  of  rounds/basic  load  for  each  of  the  7  ADA 
weapons . 

36  through  42 

Weight  (pounds)  of  one  round  for  the  7  ADA  weapons. 

43  through  49 

Number  of  rounds  fired/engagement  for  the  7  ADA 
weapons  against  the  aircraft. 

50  through  56 

Probability  of  five-minute  survivability  for 
aircraft  against  ADA  weapons. 
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B.  Air  strike  files. 

(1)  The  air  strike  files  contain  data  describing  aircraft  performance 
against  each  of  the  70  target  element  types.  Also  included  is  data 
describing  air  defense  weapon  characteristics  against  the  aircraft  with  its 
particular  flight  profile  driven  by  the  type  of  munition  it  is  carrying. 
Multiple  files  exist  for  each  aircraft  type,  one  for  each  type  of  aircraft- 
delivered  munition  used. 


(2)  The  structure  of  the  random  access  files  is  as  follows.  ADA 
weapons  represent  positions  48  -  54  on  the  "UNITFILE". 

Array  Name:  Stk_profile  (*) 

File  Name:  Aircraft  type-munitions  load:  (example:  A10  MK20) 


File 

Position 

1 

2 

3 

4 

5 

6-9 

10  -  13 


14  -  83 

84 

85 


Description 

Code  1  =  Bomb 

2  =  Missile 

3  =  Gun 

Effective  lethal  area  of  principal  target  for  above 
munition  type  (meters  squared;  m2  ). 

Minimum  number  of  passes  to  deliver  the  above 
munition;  for  a  gun,  the  maximum  number  of  passes. 

Rounds  delivered  per  engagement.  This  consists  of 
one  for  a  guided  missile  ordnance  load  and  guns 
dropped  from  bombs,  given  a  target  is  engaged. 

Number  of  rounds/basic  load  for  this  ammunition 
type  carried  by  aircraft. 

Probability  of  detecting  the  principal  target  per 
pass  given  the  target  is  exposed  for  attack, 
defend,  move,  and  reserve. 

Probability  that  aircraft  has  line  of  site  (LOS) 
with  principal  target  in  the  woods  for  attack, 
defend,  move,  and  reserve. 

Probability  that  the  target  element  in  the  lethal 
area  will  be  destroyed  by  munition  type.  For  point 
fire,  single-shot  PK  are  used. 

Probability  that  bridge  is  destroyed. 

Probability  of  ammunition  (AMMO)  point  destruction. 
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File 

Position 

86 

87  -  156 

157 

158 

159 

160 

161 

162  -  168 

169  -  175 


176  -  182 

183  -  189 

190  -  196 

197  -  203 
204  -  210 


Description 

Probability  of  POL  point  destruction. 

Effective  lethal  area  for  each  element  in  DIME 
which  corresponds  to  above  target  element  PKs  for 
munition  (m2). 

Effective  lethal  area  for  a  bridge  (m2). 

Effective  lethal  area  for  an  AMMO  point  (m2) . 

Note:  Use  specific  target  size  of  structured  target 
if  applicable. 

Effective  lethal  area  for  POL  point  (m2).  Note: 

Use  specific  target  size  of  structured  target  if 
applicable. 

Scaling  factor  used  for  targets  in  the  woods. 

Note:  When  AMMO  PK  is  given  for  a  specific  target 
density,  enter  AMMO  density  here. 

Scaling  factor  used  for  personnel  in  foxholes. 

Note:  When  POL  PK  is  given  for  a  specific  target 
density,  enter  POL  density  here. 

Minimum  altitude  that  7  ADA  weapons  can  engage  the 
aircraft  for  this  delivery  profile.  Over  target 
area  assume  0  for  all  7  ADA  weapons  (meters). 

Maximum  altitude  that  the  7  ADA  weapons  can  engage 
the  aircraft  for  this  delivery  profile.  Over 
target  area,  assume  100,000  for  all  7  ADA  weapons 
(meters) . 

Radius  of  effects  for  range  of  the  7  ADA  weapons 
against  the  aircraft  for  this  delivery  profile 
(meters) . 

Probability  of  participation  for  ADA  weapons 
against  the  aircraft  for  this  delivery  profile. 

Number  of  rounds/basic  lead  for  each  of  the  7  ADA 
weapons  (pounds). 

Weight  of  one  round  for  the  7  ADA  weapons  (pounds). 

Number  of  rounds  fired/engagement  for  the  ADA 
weapons  against  the  aircraft  for  this  delivery. 
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File 

Position 
211  -  217 

218  -  224 


Description 

Probability  of  five-minute  survivability  for 
aircraft  under  this  delivery  profile  against  ADA 
weapon. 

Probability  of  30-second  survivability  for  aircraft 
under  this  delivery  profile  against  ADA  weapon. 


C.  Munitions  load  profile  files. 

(1)  The  munitions  load  profile  files  contain  data  describing  the 
ammunition  carried  by  a  particular  aircraft  type.  Multiple  files  exist  for 
each  aircraft  type,  one  for  each  type  mission  flown. 

(2)  These  files  are  used  to  access  the  strike  profile  files. 

File  Name:  Aircraft  Type-Missions  (example:  A10ARM,  for  anti-armor  mission) 
File 

Position  Description 

1  Number  of  munition  types  carried  by  the  aircraft. 

This  number  reflects  the  following  number  of 
records  to  be  read. •  The  order  of  the  records 
reflects  the  sequential  order  of  munitions  dropped 
over  the  target  area. 

2  File  name  of  the  first  munition  type  of  ADA  profile 

for  the  aircraft. 


N 


File  name  of  the  Nth  munition  type  and  ADA  profile 
for  the  aircraft. 


D.  Unit  area  files. 


(1)  The  unit  area  files  contain  data  describing  the  size  in  square 
meters  of  10  unit  types.  Two  files  exist,  one  for  Red  units  and  one  Blue 
units.  Each  file  lists  10  unit  types  and  contains  four  unit  postures  for 
each  type. 

(2)  The  array  is  Unit  type  area  (I,J)  where  I  represents  the  unit 
types  and  J  represents  unit  posture. 
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I:  1  =  Combat  unit 

2  =  Artillery  unit 

3  =  Air  defense  (ADA)  unit 

4  ■  Attack  helicopter  ground/forward  arming  and 

refueling  point  (FARP) 

5  -  Command  post/headquarters  (CP/HQ) 

6  **  Engineer  unit 

7  -  POL/ AMMO  supply  point 

8  *■  Maintenance  point 

9  <=  Surface-to-air  missile  (SAM)  site 

10  ■=  Communications/radar /electronic  warfare  (EW)  site. 

J:  1  =  Attack 

2  =  Defend 

3  “  Reserve 

4  =  Move. 


E.  Weighted  target  fractions. 

(1)  The  weighted  target  fractions  files  contain  data  describing  the 
aircrafts'  preference  for  the  70  elements  plus  POL  dumps  and  ammunition 
dumps.  Two  files  exist,  one  for  Red  elements  and  one  for  Blue  elements. 
Each  file  lists  an  integer  value  between  zero  and  10  as  a  function  of  the 
five  air  combat  missions.  The  higher  the  value,  the  greater  the  preference 
for  firing  at  that  target. 

(2)  The  array  is  Ac__ms_tg t_vt s  (I,J)  where: 

I:  Target  elements 

1-70  plus  POL  and  AMMO 

J:  Aircraft  mission 

1  *  Bridge 

2  *  Armor 

3  »  Personnel 

4  -  POL 

5  -  AMMO 


5.  ALGORITHMS. 


A.  Figure  5-3  presents  a  generalized  logic  flow  of  the  processes 
occurring  in  the  DIME  air  defense  program.  The  purpose  of  this  diagram  is 
to  provide  a  framework  for  consideration  of  the  various  algorithms  used  in 
the  program.  The  DIME  air  defense  program  is  a  deterministic  model  using 
expected  value  techniques  for  calculating  losses  on  both  aircraft  and  ground 
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Figure  5-3.  Air  defense  logic  flow. 
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elements.  The  'model  first  determines  the  appropriate  parameters  for 
aircraft  and  target  elements.  Next,  specific  characteristics  are  determined 
for  the  targeted  units.  Then  aircraft  attrition  is  figured  by  determining 
the  number  of  air  defense  elements  available  in  the  battle  area,  calculating 
the  number  of  subpasses  in  the  flight,  calculating  the  air  defense  artillery 
suppression  factor,  calculating  the  amount  of  air  defense  munitions 
expended,  and,  finally,  calculating  the  number  of  aircraft  killed. 
Attrition  to  ground  elements  is  figured  by  calculating  equipment  losses  due 
to  area  munitions,  equipment  losses  due  to  point  munitions,  and  mounted 
infantry  losses  as  vehicles  are  destroyed.  The  "UNITFILE"  is  updated  to 
reflect  elements  lost  and  amount  of  ammunition  expended. 

B.  The  following  paragraphs  provide  a  detailed  description  of  the 
algorithms  used  for  the  calculation  of  subpasses,  passes,  air  defense 
suppression,  air  defense  munition  expenditures,  aircraft  kills,  area  losses, 
point  losses,  and  mounted  infantry  losses.  When  MINQ  appears  in  the 
following  algorithms,  it  represents  a  minimum  function  where  the  minimum  of 
the  items  within  the  parentheses  are  used  in  the  calculations. 

C.  The  following  pass  and  subpass  calculations  are  performed  for  each 
group  of  aircraft  sent  on  an  ingress,  strike  or  egress  mission. 

(1)  Calculate  subpasses.  The  number  of  tactical  groupings  the  flight  is 
divided  into,  based  on  the  mission  (close  air  support  or  basic  air 
interdiction)  and  on  tactical  considerations.  The  number  of  subpasses  that 
a  flight  is  divided  into  is  calculated  as  follows: 

Nsp  m  Nac  /  (2  *  Nmax)  (Eq.  5-1) 


where : 


Nsp  ■  the  number  of  subpasses. 

Nac  *  the  number  of  aircraft  in  the  flight. 

Nmax  -  the  maximum  number  of  aircraft  that  would  be  flown  on 
that  specific  type  of  mission  due  to  tactical 
considerations . 

Note:  Nmax  is  multiplied  by  two  in  order  to  simulate  air  defense 
saturation  achieved  by  tactical  spacing  between  subpasses. 

(2)  Calculate  passes.  The  number  of  times  an  aircraft  must  fly  over 
the  target  area  to  deliver  its  ordnance  is  calculated  as  follows: 

Np  *  Mp/Pd  (Eq.  5-2) 


where : 


Np  ■  the  number  of  passes. 

Mp  m  the  minimum  number  of  passes  required  to  deliver  the 
load  of  munitions. 

Pd  ■*  the  probability  of  detecting  the  principal  target  per 
pass. 
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D.  All  of  the  following  equations  are  calculated  for  each  subpass. 

(1)  Calculate  air  defense  suppression.  Air  defense  suppression  is 
based  on  the  unit's  mission/activities  at  the  time  of  the  strike. 


follows: 


(a)  Vehicular  mounted  air  defense  weapons  are  suppressed  as 


i 

Nwat  .  Tf  [Nwi  *  (1  -  Sft)] 


(Eq.  5-3) 


where: 

Nwa^  »  the  number  of  air  defense  weapons  available  of  type  i 
after  suppression. 

Nw£  =«  the  number  of  air  defense  weapons  available  of  type  i. 
Sf^  =  the  suppression  factor  for  type  i  air  defense  weapons. 

(b)  Hand-held  air  defense  weapons  are  suppressed  as  follows: 
i 

Nwai  *  T T  tNwi  *  (1  -  Sfi)j  *  Dft  (Eq.  5-4) 


where: 

Dfi  *  the  fraction  of  hand-held  air  defense  weapons 
dismounted  at  the  time  of  attack. 


(2)  Calculations  of  air  defense  ammunition  expenditures  are  as 
follows: 

(a)  Target  area: 

Ta  =  T1  *  Tw  (Eq.  5-5) 

where : 

Ta  -  target  area. 

T1  *  target  length. 

Tw  ■  target  width. 


(b)  Unit  area: 

Ua  -  MIN(U.Ta)  (Eq.  5-6) 

where : 
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Ua  =  the  unit  area. 

U  =  the  area  required  by  the  units  given  the  current  posture. 


(c)  Air  defense  area  factor: 

Aft  -  PI  *  [(Ri  )  t  2]/Ua 


(Eq.  5-7) 


where: 

Af^  *  the  target  area  factor  for  air  defense  system  type  i. 
PI  «*  the  symbol  designating  the  ratio  of  the  circumference 
of  a  circle  to  its  diameter;  approximately  3.1415927. 
*  the  range  of  air  defense  system  type  i. 


(d)  Number  of  weapons  engaging  aircraft: 

Nwe^  3  Afi  *  Nwa^  *  Ppi  (Eq.  5-8) 

where: 

Nwe^  =  the  number  of  air  defense  weapons  of  type  i  engaging 
the  aircraft. 

Ppi  »  the  percentage  of  air  defense  system  type  i  that  will 
participate. 


(e)  Basic  load  for  air  defense  weapons: 


Bli  ■  Nr^  *  Rwi 

T1  *  £  Bli 
i 

where: 

Blj_  »  the  basic  load  weight  for  air  defense  weapon  type  i. 

Nr^  -  the  number  of  rounds  of  ammunition  in  the  basic  load 
for  air  defense  weapon  system  type  i. 

Rvi  -  the  weight  of  one  round  of  ammunition  for  air  defense 
weapon  system  type  i. 

T1  -  the  total  basic  load  weight  for  all  air  defense  weapon 
types  in  the  battle  area. 


(Eq.  5-9) 
(Eq.  5-10) 
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(f)  Number  of  rounds  available: 


Rai  =  Blt  *  Ta  *  2000/T1 

where: 


(Eq.  5-11) 


available  of 


types 


Ra^  =  the  number  of  rounds  of  air  defense  ammunition 
type  i. 

Bl^  =  the  basic  load  weight  for  air  defense  weapon  type  i. 

Ta  =  the  total  tons  of  air  defense  ammunition  available. 

T1  =  the  total  basic  load  weight  for  all  air  defense  weapon 

in  the  battle. 


(g)  Number  of  loads  fired: 

Rfi  =  MIN(Rai  ,  Rft  )  *  Nwei  (Eq.  5-12) 

Lft  =  Rfi  /Rfei  (Eq.  5-13) 

where : 

Rfi  *  the  number  of  air  defense  rounds  fired  per  type  i. 

Rfei  =  the  number  of  rounds  fired  per  engagement  by  air 
defense  weapon  type  i. 

Lfi  *  the  number  of  air  defense  ammunition  loads  fired  per 
type  i. 


(3)  Number  of  aircraft  kills.  The  number  of  aircraft  kills  is 
calculated  as  follows: 

(a)  Probability  of  kill: 


Pski  =  (1  -  Pki)/Npa 

(Eq.  5-14) 

Psai  =  (1  -  Pai)/Npa 

(Eq.  5-15) 

i 

Pskp  =  y|"  [(1  -  Pski) 

t  Lfi] 

(Eq.  5-16) 

i 

Psap  =  TT  [  (1  ~  psai) 

t  Lfi] 

(Eq.  5-17) 

where: 
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Pski  =  the  probability  of  one  aircraft  in  the  pass  being 

killed  in  30  seconds  by  air  defense  weapons  type  i. 

Pk-L  =  the  probability  of  one  aircraft  surviving  for  30 

seconds  against  air  defense  weapons  type  i. 

Npa  =  the  number  of  aircraft  in  a  subpass 

Psa^  *  the  probability  of  one  aircraft  in  the  subpass  being 

killed  in  five  minutes  against  air  defense  weapon  type 

i. 

Pa^  =»  the  probability  of  one  aircraft  surviving  for  five 

minutes  against  air  defense  weapon  type  i. 

Pskp  =  the  probability  of  killing  an  aircraft  out  of  the 

subpass,  in  30  seconds  based  on  the  number  of  loads 
fired. 

Psap  ■  the  probability  of  killing  an  aircraft  out  of  the 

subpass,  in  five  minutes  based  on  the  number  of  loads 
fired. 


(b)  Number  of  aircraft  lost: 

Npsk  =  (1  -  Pskp)  *  Npa  *  Ee 
Nspa  *  (l  -  Paap)  *  Npa  *  Ee 
Nsac  =  Npa  -  Npsk 
Nacl  =  £  Npsa 


(Eq.  5-18) 
(Eq.  5-19) 
(Eq.  5-20) 
(Eq.  5-21) 


where: 


Npsk  * 

Ee  - 

Npsa  = 

Nsac  « 
Nacl  « 


the  number  of  aircraft  lost  within  30  seconds  of 
engagement. 

the  effective  engagement  factor,  based  on  the 

perceived  density  of  enemy  air  defense. 

the  number  of  aircraft  lost  within  five  minutes  of 

engagement. 

the  number  of  aircraft  available  for  the  strike, 
the  number  of  aircraft  lost  on  the  flight. 


(4)  Number  of  ground  elements  lost  to  area  munitions  during  a 
strike.  The  number  of  elements  lost  is  calculated  in  the  following  manner. 

(a)  Kill  equations  are  dependent  on  whether  one  plane  can  cover 
the  target  area  or  if  more  are  necessary.  In  order  to  determine  this,  the 
following  calculation  are  performed. 


Ua  =  MIN(Uatp,  L  *  W) 

(Eq.  5-22) 

Ta  «  MIN(L  *  W,  3  *  Ua) 

(Eq.  5-22a) 

Pc  *»  Ata/Ta 

(Eq.  5-22b) 
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where : 


Uatp  =  area  (in  meters  squared)  required  by  elements  in  the 
units,  given  the  current  posture  of  the  unit. 

L  «  target  length  (in  meters) 

-  target  width  (in  meters) 

Ua  =  unit  area  (in  square  meters) 

Ta  •=  size  of  target  area  (in  square  meters) 

Ata  *  effective  lethal  area  for  the  aircraft  (in  square 
meters) 

Pc  ■  the  number  of  planes  to  cover  the  target  area 


(b)  The  probability  of  kill  for  an  element  targeted  by  aircraft 
must  be  adjusted  according  to  the  terrain  as  follows: 

PKj  =  Pacj  *  [Tfo  +  (Tfw  *  Sfw)]  (Eq.  5-23) 

where : 

PKj  =  the  probability  that  target  element  type  j  is  killed 

subject  to  terrain  considerations. 

Pacj  =  the  probability  of  kill  of  target  element  type  j  by  the 
aircraft-delivered  area  munition. 

Tfo  ■  the  fraction  of  the  target  in  the  open. 

Tfw  *  the  fraction  of  the  target  in  the  woods. 

Sfw  *  the  scaling  factor  used  for  targets  in  the  woods. 

(c)  If  the  target  area  is  small  enough  to  be  covered  by  one 
plane  (Pc  <_ 1),  the  number  of  ground  elements  lost  is: 

Neij  -  [1  -  (1  -  PKj  )  t  (Nsac  *  Ef)]  *  Nej  ]  (Eq.  5-24) 

where : 

Neij  m  the  number  of  type  j  elements  lost  to  the  flight  of 

aircraft. 

Nsac  -  the  number  of  aircraft  performing  the  strike. 

Ef  ■  the  effectiveness  factor  for  aircraft  munitions  based  on 

the  perceived  density  of  air  defense  weapons. 

Nej  ■■  the  number  of  elements  of  type  j  in  the  target  area. 

(b)  If  the  target  area  is  larger  and  Pc  >  1,  the  coverage  attained 
by  a  group  of  aircraft  is  calculated  as: 


Cj  -  Cacj  *  Ef  *  Nsac/Ta  (Eq.  5-25) 

where : 
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Cj  =  the  coverage  ratio  of  the  target  area  to  the  munitions 
coverage  area. 

Cacj  «»  the  munitions  area  coverage  of  one  aircraft  with 

respect  to  target  elements  type  j. 

Ta  =  the  size  of  the  target  area 

(c)  If  the  target  area  is  greater  than  the  area  which  can  be 

covered  by  all  aircraft  (Cj  <  1),  then  the  ground  element  losses  are: 

Nelj  =  Cj  *  PKj  *  Nej  (Eq.  5-26) 

where : 

Nelj  *  the  number  of  type  j  elements  lost  to  the  flight  of 

aircraft. 


(d)  If  the  aircraft  can  cover  the  entire  area  (Cj  >_  1),  then 
ground  element  losses  (Nelj)  are: 

Nelj  -  [1  -  (1  -  PKj  )  t  Cj]  *  Nej  (Eq.  5-27) 

(5)  The  amount  of  POL  and/or  ammunition  lost  to  munitions  during  a 
strike  is  calculated  in  the  following  manner: 

(a)  Loss  equations  are  dependent  on  whether  one  plane  can  cover 
the  target  area  or  if  more  are  necessary.  In  order  to  determine  this,  the 
following  calculations  are  performed. 


Ua.-  MIN(Uatp,  L  *  W) 

(Eq.  5-28) 

Ta  -  MIN(L  *  W,  3  *  Ua) 

(Eq.  5-28a) 

Pc  «  Ata/Ta 

(Eq.  5~28b) 

(b)  If  the  target  area  is  small  enough 
plane  (Pc  <_  1),  the  POL  and  ammunition  lost  is: 

to  be  covered  by 

Nm_elmt_lost  -  [1  -  (1  -  PK)  j  (Nm_stk_ac  *  Eff_shots)]  * 

Num_elmt_left  (Eq.  5-29) 

where: 

Nm_elmt_lost  «*  the  number  of  elements  lost  to  a  flight  of  aircraft. 
PK  =  the  probability  that  the  element  is  killed 
Nm_stk  ac  -  the  number  of  strike  aircraft 
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Eff_shots  = 
Nm  elmt  left  « 


the  effectiveness  factor  for  aircraft  munitions,  based 
on  the  perceived  density  of  air  defense  weapons 
the  number  of  elements  in  the  target  area 


(c)  If  it  is  necessary  for  more  than  one  plane  to  cover  the 
target  area  (Pc  >  1),  the  ammunition  and  POL  dumps  must  be  translated  into 
equivalent  targets: 

Equiv_area  =■  Nm_jelmt_tgt/Dens  (Eq.  5-30) 
Equiv_tgt  -  Equiv_area/PK_area  (Eq.  5-31) 


where: 

Equivjarea  =  the  perceived  target  area  due  to  the  target  elements 
and  target  density 

Nm_elmt_tgt  =  the  amount  of  POL  or  ammunition  in  the  target  area. 

Dens  =  the  density  of  the  target  area  for  either  POL  or 
ammunition. 

Equiv_tgt  =  the  number  of  equivalent  Pk  targets  in  the  target  area. 

PK_area  =*  the  effective  lethal  area  for  ei ther  an  ammo  point  or  a 
POL  point;  this  is  found  in  the  strike  files,  position 
158  or  159. 


(d)  If  the  targeted  area  is  larger  and  Pc  >  1,  the  coverage 
capability  of  the  entire  strike  group  is  calculated: 

C  *  (Eff_shots  *  Nm_stk_ac)  /  Equiv_tgt  (Eq.  5-32) 


where : 

C  -  the  coverage  ratio  of  the  target  area  to  the  munitions  coverage  area. 


If  the  aircraft  can  cover  the  entire  area  or  more  (C  >.1),  POL  and 
ammunition  losses  are  calculated: 

Nm_elmt_lost  *  [1  -  (1  -  PK)  f  C]  *  Nm_elmt_left  (Eq.  5-32a) 

where: 

Nmjelmt  lost  -  the  amount  of  POL  or  ammunition  lost  to  the  strike  aircraft. 
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If  the  target  area  is  greater  than  that  which  can  be  covered  by  all  aircraft 
(C  <_1),  then  the  POL  and  ammunition  losses  are  calculated  as: 


Nm_elmt_lost  =  PK  *  C  *  Nm_elmt_left  (Eq.  5-32b) 

(6)  The  number  of  ground  elements  lost  to  point  munitions  during  a 
strike  is  calculated  in  the  following  manner: 

(a)  The  total  ammunition  used  by  the  aircraft  strike  force  is: 


Rac  =  Np  *  Nrfe 


(Eq.  5-33) 


Nb  «  B1  *  Nsac/Rac 


(Eq.  5-34) 


where: 

Rac  =  the  number  of  rounds  an  aircraft  could  deliver  per 
strike. 

Np  =  the  number  of  passes  required  by  an  aircraft  to  deliver 
its  ordnance. 

Nrfe  =  the  number  of  rounds  fired  per  engagement  by  an 
aircraft. 

Nb  »  the  effective  number  of  aircraft  in  the  strike  based  on 
ammunition  availability. 

B1  »  the  number  of  rounds  of  ammunition  in  the  basic  load  for 
an  aircraft. 

Nsac  =■  the  number  of  aircraft  performing  the  strike. 


(b)  Calculate  target  element  preference  factor.  The  preference 
factor  associated  with  target  elements  is  calculated  as  follows: 


Pfj  -  Mtwj  *  Nej  *  Pkj 

Spfj  «  £  Pfj 

j 


(Eq.  5-35) 
(Eq.  5-36) 


where : 

Pfj  ■  the  preference  factor  for  target  element  j. 

Mtwj  ■  the  mission  related  target  weight  for  element  j. 

Nej  -  the  number  of  elements  of  type  j  in  the  target  area. 

Pkj  ■  the  aircraft's  probability  of  killing  target  element 
type  j. 

Spf  =  the  sum  of  all  preference  factors  for  all  elements  of  the 
target,  for  one  aircraft. 
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(c)  Calculate  target  element  preference  ratio  factor.  The 
preference  ratio  factor  is  calculated  as  follows: 


Pfrj  -  Pfj  /Spf  (Eq.  5-37) 

Tpfj  -  Pfrj  *  Nb  (Eq.  5-38) 


where : 

Pfrj  -  the  preference  ratio  factor  for  target  element  j. 

Tpfj  «  the  total  preference  factor  for  all  aircraft  in  the  flight 
against  target  element  type  j. 

Nb  -  the  effective  number  of  aircraft  in  the  strike. 

(d)  Calculate  number  of  target  elements  lost.  The 
losses  represent  the  target  selection  process  as  being  dependent;  all 
aircraft  fire  at  different  targets.  The  number  of  elements  lost  is 
calculated  as  follows: 


Nelj  =  Pkj  *  Tpfj  *  Ef 


(Eq.  5-39) 


where : 

Nelj  =  the  number  of  type  j  elements  lost  to  the  flight  of 

aircraft. 

Pkj  -  the  aircraft's  probability  of  killing  target  element 

type  j. 

Ef  ■  the  effectiveness  factor  for  aircraft  munitions  based  on 
the  perceived  density  of  air  defense  weapons. 


(7)  The  number  of  mounted  infantry  losses  during  a  strike.  The 
number  of  mounted  infantry  lost  when  vehicles  are  destroyed  is  calculated  as 
follows: 


(a)  Mount  ratio;  the  number  of  infantry  mounted  on  vehicles  is 
calculated  as  follows: 


Mr  -  MIN  (NI/Nv,  8)  (Eq.  5-40) 


where: 


Mr  *  the  mount  ratio;  the  number  of  infantry  mounted  on  a  troop¬ 
carrying  vehicle. 

NI  *  the  number  of  infantry  troops  in  the  battle  area. 

Nv  -  the  number  troop-carrying  vehicles  in  the  battle  area. 
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(b)  Vehicles  lost.  The  number  of  infantry-carrying  vehicles 
lost  is  calculated  as  follows: 

Fe  ■  Nv  *  Pe/Nvu  (Eq.  5-41) 

VL  -  Fe  *  Nvl  (Eq.  5-42) 

where : 

Fe  =  the  fraction  of  troop-carrying  vehicles  exposed. 

Pe  *  the  percent  of  the  targeted  unit  in  the  battle  area. 

Nvu  =  the  number  of  vehicles  in  the  targeted  unit. 

VL  =■  the  number  of  troop-carrying  vehicles  lost  in  the  battle. 

Nvl  =  the  number  of  vehicles  lost  in  the  battle. 


(c)  Mount  losses.  The  number  of  infantry  lost  in  vehicles  is 
calculated  as  follows: 

Per  -  VI,  *  Mr  (Eq.  5-43) 

where : 

Per  »  the  number  of  personnel  lost  in  vehicles. 

VL  -  the  number  of  troop  carrying  vehicles  lost  in  the  battle. 

Mr  =  the  number  of  troops  mounted  in  vehicles. 


6.  "UNITFTLE"  IMPACT. 

Table  5-1  provides  a  summary  of  the  principal  variables  in  "UNITFILE"  by  the 
air  defense  program. 

7.  CODE. 

A.  Introduction.  This  section  contains  information  on  the  DIME  air 
defense  The  second  paragraph  describes  the  functional  areas  of  the  program 
and  a  system  flowchart.  The  third  paragraph  contains  figures  and  tables 
that  briefly  explain  the  subroutines  called  from  each  functional  area  and 
the  primary  variables  influenced  by  each  subroutine. 

B.  Functional  areas.  This  section  contains  a  brief  overview  of  the 
functional  areas  in  the  DIME  air  defense  program.  As  shown  in  Figure  5-4 
(functional  flow  diagram),  the  air  defense  program  actually  contains  two 
distinct  sections,  one  modeling  ingress/egress  operations  and  one  modeling 
strike  operations.  The  two  operations  share  many  of  the  same  subroutines  in 
the  program. 
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Table  5-1.  "UNITFILE"  variables  affected  by  air  defense. 


Element 

number 

Name 

Description 

1-70 

Weapons  list 

The  70  weapon  type  quantities  present 
within  the  unit. 

75 

Major  mission 

1  =*  Attack 

2  ■*  Defend 

3  *=  Reserve/Idle 

4  =»  Move 

78 

Unit  Type 

X  »  Player  identification  (X.Y) 

(X.Y) 

1  -  Blue 

2  -  Red 
Y  *  Unit  type 

0  s  Combat  unit 

1  *  Artillery  unit 

2  =  Air  defense  (ADA)  unit 

3  =  Attack  helicopter  ground/ 

forward  arming  and 
refueling  point 

4  =  Command  post/headquarters  (CP/HQ) 

5  *  Engineer  unit 

6  *  Fuel/ammunition  (POL/ AMMO) 

supply  unit 

7  *  Maintenance  point 

8  -  Surface-to-air  missile  (SAM) 

site 

9  =  Communication/radar/electronic 

warfare  (EW)  site 

80  Percent  ADA  XX  -  Vehicle  ADA  systems  suppressed 

suppressed  YY  ■  Handheld  systems  suppressed 

(XX. YY) 

91  Detection  status  X  *  Hours  left  until  redetected 

(X.Y)  Y  ■  Unit  status  with  respect  to 

detection  by  the  opposite  commander 
0  -  Not  detected 

1  =»  Detected  but  not  verified 

2  -  Acquired/verified 

3  =  Lost 

92  Intelligence  Total  hours  this  target  has  been 

Status  status  tracked  this  detection  period 

133  AD  ammo  The  amount  of  AD  ammunition  available  to 

be  consumed 
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Figure  5-4.  Air  defense  functional  flow 
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(1)  As  shown  in  Figure  5-4,  both  operations  are  triggered  by  the  input 
of  low-resolution  data.  Low-resolution  data  include  the  force  (Red  or 
Blue),  the  operation  (ingress/egress  or  strike),  aircraft  information 
(number,  type,  and  altitude  of  aircraft),  and  target  information  (width, 
length,  and  identification  of  units).  An  air  defense  input  sheet  is  used  to 
facilitate  loading  of  this  input  data. 

(2)  After  a  gamer  selects  the  force,  aircraft,  and  target  information, 
the  DIME  air  defense  program  selects  the  appropriate  high-  resolution  data 
corresponding  to  the  operation  (ingress/egress  or  strike)  selected. 

(3)  For  ingress/egress  operations,  the  following  procedures  are  used: 

(a)  High-resolution  data  include  air  defense  weapon  characteristics 
such  as  maximum  and  minimum  altitude,  range,  basic  load,  rates  of  fire,  and 
air  defense  probabilities  of  kill  for  each  defense  weapon  played.  Target 
information  is  also  included,  such  as  the  number  and  type  of  elements  in  the 
target  area  and  the  amount  of  ammunition  available  to  the  ground  elements. 
This  information  is  contained  in  data  files  which  are  accessed  by  the  type 
of  aircraft  and  mission.  Currently,  four  types  of  aircraft  for  each  force 
are  played,  two  fixed  wing  and  two  rotary  wing.  Ground  units  are  made  up  of 
elements  selected  from  the  data  base  developed  for  DIME.  DIME  allows  for  70 
different  elements  per  side  plus  two  special  elements. 

(b)  The  next  major  functional  area  calculates  aircraft  losses. 
This  major  functional  area  is  composed  of  the  following  four  subareas: 

1_.  First,  calculating  the  number  of  subpasses  is  required  in 
order  to  partition  the  flight  of  aircraft  into  increments  of  a  size 
corresponding  to  the  actual  number  of  aircraft  that  would  pass  over  a  unit 
at  any  one  time.  Aircraft  losses  are  calculated  for  each  subpass  increment, 
then  are  added  together  to  determine  total  aircraft  losses. 

2_.  Next,  air  defense  suppression  calculates  the 
readiness/reaction  time  of  the  air  defense  systems.  These  computations  are 
based  on  the  unit's  mission  at  the  time  of  the  overflight. 

3.  The  third  subarea  calculates  the  amount  of  air  defense 
ammunition  available  and  the  amount  fired  during  the  engagement. 

4.  The  last  subarea  calculates  the  number  of  aircraft  lost  and 
updates  the  number  of  aircraft  available  for  follow-on  missions. 

(4)  For  strike  operations,  the  following  procedures  are  used: 

(a)  High-resolution  strike  data  are  similar  to  ingress/egress  data 
with  the  addition  of  aircraft  capabilities  against  ground  elements.  This 
information  includes  munition  capabilities  against  each  target  element, 
flight  profiles  for  each  type  munition  carried,  and  tactical  considerations 
based  on  mission  requirements. 
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(b)  The  next  major  functional  area  calculates  results  of  the  strike 
operation.  Aircraft  kills  and  kills  of  ground  elements  are  calculated  on  an 
interactive  basis.  This  major  functional  area  is  composed  of  the  following 
areas : 


1_.  First,  the  number  of  passes  required  by  each  aircraft  in 
order  to  deliver  the  load  of  munitions  carried  must  be  calculated. 

2.  Then,  four  subareas  are  used  to  calculate  the  number  of 
aircraft  lost.  These  subareas  are  the  same  four  used  in  ingress/egress 
operations  to  calculate  aircraft  losses. 

3.  Next,  losses  to  ground  elements  as  a  result  of  area-type 
munitions  are  calculated. 

4_.  Losses  to  ground  elements  as  a  result  of  point-type 
munitions  are  then  calculated. 

5.  The  last  of  these  functional  areas  calculates  the  number  of 
mounted  infantry  lost  when  their  vehicles  are  destroyed. 


(5)  The  next  major  functional  area  of  the  DIME  air  defense  program 
deals  with  the  results  of  both  ingress/egress  and  strike  operations. 
Actions  in  this  area  include  updating  files  with  the  number  of  remaining 
operational  elements,  listing  results  of  surface-to-air  and  air-to-surface 
action,  and  to  ready  files  for  the  next  iteration  of  the  battle.  This 
functional  area  is  composed  of  three  subareas. 

(a)  The  first  of  these  subareas  is  used  to  output  the  results  of 
the  operation.  Results  include  the  number  and  type  of  aircraft  killed  and 
the  number  of  each  ground  element  destroyed. 

(b)  The  next  subarea  is  used  to  either  update  or  purge  the  files 
with  the  results  of  the  last  battle  increment. 

(c)  The  last  of  these  subareas  is  used  to  ready  the  program  for  the 
next  increment. 


(6)  Finally,  the  last  procedure  allows  for  entry  of  new  low- 
resolution  data  for  a  new  battle  or  for  exit  from  the  DIME  air  defense 
program. 
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C.  Subroutine  summary.  Table  5-2  provides  a  summary  of  the  DIME  air 
defense  program  subroutines  and  their  primary  variables.  Subroutines  called 
by  each  functional  area  are  shown  and  the  function  of  each  subroutine  is 
described.  The  primary  variables  for  each  subroutine  are  listed  and 
described. 


D.  Code  listing.  A  listing  of  the  P3  program  code  appears  in  Table  5-3. 
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Table  5-2.  DIME  Air  Defense  Subroutines 
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Table  5-2.  DIME  Air  Defense  Subroutines  (continued) 
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Table  5-2.  DIME  Air  Defense  Subroutines  (continued) 
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Table  5-2.  DIME  Air  Defense  Subroutines  (continued) 
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Table  5-2.  DIME  Air  Defense  Subroutines  (continued) 
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Table  5-2.  DIME  Air  Defense  Subroutines  (continued) 
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Table  5-2.  DIME  A_lr  Defense  Subroutines  (continued) 
Functional  area:  Load  high  resolution  strike  data  (continued) 
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Table  5-2.  DIME  Air  Defense  Subroutines  (continued) 
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Table  5-2.  DIME  Air  Defense  Subroutines  (continued) 
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Table  5-3 


Air  attack/Air  defense  code 
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22  OCT  1983. 

DATA  LAST  CHANGED  BY  ROB  BELFLOWER,  21  MARCH  1985.  BDM 
EXPANDED  VERSION  —  JUNE  9.  1986  —  BY  OAO  CORE. 

DECLASSIFIED  —  AUG  7,  1986  —  BY  OAO  CORP.  **  DC  ** 

OPTION  BASE  1 

DIM  Ac_burst_wt  (72)  ,  Ac_burst_wt_-f  re  (72) 

DIM  Ac_pdtc_prn_tgt (4) , Ac_pl os_prn_tgt (4) 

DIM  Ac_tgt_area (72) , Ae_tgt_pk (72) 

DIM  Ac_ms_tgt_wta (72, 5) , Ada_area_(ctr (7) 

DIM  Ada_bs_l d_wt (7) , Ada_lds~frd (7) 

DIM  Ada_mob ility_tp(7) , Ada_pr teptn ( 7 > 

DIM  Ada_psa_ac (7) , Ada_psk_ac (7) 

DIM  Ad a_r an ge (7) , Ada_rnd_bs_l d ( 7 ) 

DIM  Ada_rnd_+rd (7) , Ada_rnd_f rd_eng (7) 

DIM  Ada_rnd_wt ( 7 ) , B_tar get_namet C 3503 
DIM  Fct _hnd_ada_dmt  (4,2)  ,  FI  t_pr o-f  i  1  e  ( 56 ) 

DIM  Max _ada_al t (7) , Ml n_ada_al t (7) 

DIM  Nm_ac_avl _egr (4) , Nm_ac_avl _st  k ( 4 ) 

DIM  Nm_ac_P lt_ing (4) , Nm_ac_+ 1 t _egr (4 ) 

DIM  Nm_ac_-f  1 t_st k  (4)  ,  Nm_ac_l ost_ada ( 4 ) 

DIM  Nm_ac_l ost _i ng (4 ) , Nm_ac_l ost_egr ( 4 ) 

DIM  Nm_ac_l ost_stk (4) , Nm_ada_wpn (7 ) 

DIM  Nm_ada_wpn_avl (7) , Nm_ada_wpn_eng (7) 

DIM  Nm_elmt_le-ft  (72)  ,  Nm_el mt_l ost _ac  (72) 

DIM  Nm~el mt  ~1 ost_F 1 (72) 7Nm_elmt_tgt (72) 

DIM  0 (72) , R_target_nameSC3503 
DIM  Stk_pro-f  i  1  e  (224)  ,  Suprsn_f  rc  (2) 

DIM  T*C3503 , T_pl os (4) , Terr (5) 

DIM  Tgt_expsr_pct (5) , Tgt_expsr r c (5) 

DIM  T1 _ac_+ lt_ing(4),Tl _ac_f 1 t_egr (4) 

DIM  Tl_ac_flt_stk(4),Tl _ac_l ost _ada ( 4 ) 

DIM  T1 _ac_lost_egr (4) , T1 _ac_l ost_i ng (4) 

DIM  T1 _ac_lost_stk ( 4) , T1 _el mt _ac ( 72 > 

DIM  Unit ( 150) , Un 1 t_i d ( 5 > 7uni t_i d_20_150(20) 

DIM  Unit_inPo( 150) , Uni t_store_5_ 15(5. 150) 

DIM  Un i tstore_20_15 ( 20 , 150) , Uni t_type_area ( 10.4) 

DIM  Wpn_l d_templ ate* (3) C 143 , Tm*C7 3 , Frac_i  n+ (5) 


Nm_uni ts_pl ayed=0 

I 

Di sk*= " : HP9134, 701 " 

Dcdisk*=":HP9134, 701,0”  !  **  DC  ** 

Main_program: ! 

’LOAD  TERRAIN  PLOS  DATA 

I 

'  **  DC  «* 


(P3>  . 
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Table  5-3 


Air  attack/Air  defense  code 


480  ASSIGN  6‘Ptp  1  oss  TO  "TUT_PLOSS“!<r>cdi  sl:t 
490  ENTER  6'Ptpl  oss .  1 ;  T_pl  os  <  »  ) 

500  ASSIGN  UPtploss  TO  * 

510  'LOAD  FRACTION  DISMOUNTED 

520  ASSIGN  ePfrcdsm  TO  "FRAC_D  I  SM"S<Dcdi  sir* 

530  ENTER  ©Pf  rcdsm,  1 ;  Fct_hnd_ada_dmt.  <  *  > 

540  ASSIGN  ©Pfrcdsm  TO  t~ 

580  !  **  END  DC  ** 

590  New_color:  ! 

600  PRINTER  IS  1 

610  GOSUB  Choose_color 

620  Menu*=“ REPEAT" 

630  WHILE  Menu*=" REPEAT" 

640  GOSUB  Menu_sele>ctian 

650  SELECT  Option* 

660  CASE  "INGRESS", "EGRESS- 

670  GOSUB  Flight_input 

680  GOSUB  FI i ght_output 

690  GOSUB  Change_answer 

700  IF  Answer*="N"  THEN 

710  GOSUB  FI i ght_data 

720  GOSUB  FI i ght_atr i t i on 

730  GOSUB  FI i ght_resul ts 

740  END  IF 

750  CASE  "STRIKE" 

760  GOSUB  Stri ke_i nput 

770  GOSUB  Str  i  ke_outpi.it 

780  GOSUB  Change^answer 

790  IF  Answer*="N"  THEN 

800  GOSUB  Str l ke_data 

810  GOSUB  Stri  l:e_atri  tion 

820  GOSUB  FI i ght_resul ts 

830  END  IF 

840  CASE  "STATUS" 

850  GOSUB  Status_report 

860  CASE  "UPDATE" 

870  GOSUB  Update_resul ts 

880  CASE  "EXIT" 

890  GOSUB  Exit_module 

900  CASE  ELSE 

910  BEEP 

920  END  SELECT 

930  END  WHILE 

940  ! 

950  STOP 
960  ! 

970  !**************************************  ***************************  ********* 
* 

980  !  ' 

990  Add_results:  1 

1 000  1 

1010  SELECT  Flight* 


5-40 
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1020  CASE  “INGRESS" 

1  030  Nm_ac  _f  1  t  _  i  no  ( Ac  _  type)  =Nm_ac_-f  1  t_i  ng  (Ac_type)  +Nm_ac_ l  nput 

104i.»  Nm__ac_lost  ing(Ac  type)  =Nm_ac_l  ost_i  ng  ( Ac_t  vpe )  -*-Nm_ac_l  ost  _t  1 1 
1050  CASE  "EGRESS" 

1060  Nm_ac_-f  1 1  _egr  ( Ac_type)  =Nm_ac_t  lt_egr  ( Ac _ type)  +Nm_ac_i  nput 

1070  Nm_ac_l ost_egr (Ac_type> =Nm  ac_lost  egr ( Ac_type) +Nin_ac_l ost_t 1 t 

10S0  CASE  "STRIKE" 

1 090  Nm_ac_-f  1 1  _st  k  <  Ac  _  type)  =Nm_ac_-f  lt_atk  <Ac_tvpe)  +Nm_ac_i  nput 

1 100  Nm_ac_l  ost_stk  (Ac_type)  =Nm_ac_l  ost_stk  ( Ac_tvpe)  +Nm_ac_l  ost_-f  1 1 
1110  FOR  1=1  TO  72 

1120  Nm_elmt_lost_ac ( I ) =Nm  el  mt_l  ost_ac  ( I  > +Nm_el  mt_l  ost_-f  1  ( I  > 

1130  NEXT  I 

1140  END  SELECT 
1150 

1  160  Nm_ac_last_ada  ( Ac_type)  =Nm_ac_l  ost_ada  ( Ac_type>  +Nm_ac_l  ost_-f  1 1 

1170  Nm_ac_avl  _stk  ( Ac _ type)  =Nm_ac_F  1  t_l  ng  ( Ac_type>  -Nm_ac_l  ost_i  ng  ( Ar._type)  -Nm_ 

c_t 1 t_st k  <  Ac_type) 

1 180  Nm_ac_avl  egr < Ac_type) =Nm_ac_f lt_ing (Ac_tvpe) -Nm_ac_l ost _i ng (Ac_tvpe)-Nm_ 
c_l ost_stk (Ac_type) -Nm_ac_t 1 t_egr (Ac  type ) 

1190  ! 

1200  RETURN 
1210* 

1220 ! ft**************************************** **********  ********  *********  ****** 
* 

1  230  ! 

1240  Calc_ac_losses: 1 
1250  T1  _ada_tans_t  rd*=0 
1260  Psk_product=l 
1270  Psa_praduct=l 
1280  FOR  1=1  TO  7 

1290  IF  fll  t  i  tude_meters<  =Ma>:  _ada_al  t  ( I )  AND  A1 1 i  tude_meter  s >=Mi  n  ada_ al  t  <  I  > 
ND  Ada_lds_-frd  ( I  )  >0  THEN 

1  300  F'sk_term=  ( 1  — Ada_psk_ac  <  I )  >  /FNMax  (Pass_ac-f  t .  1  > 

1310  Psa_term=  <  1-Ada_psa_ac  <  I  )> /FNMax  (Pass  ac-ft.l) 

1320  T 

1330  F'sk_praduct=Psk_product*  ( 1  -Psk_term>  -^Ada_l  ds_-f  rd  ( I ) 

1340  F'sa_product=Psa_product  *  ( 1  -Psa_term)  ■'Ada_l  ds  -frd(I) 

1350  ! 

1 360  Ada_tons_-f  rd=Ada_rnd_-f  rd  ( I  >  *Ada_rnd_wt  ( I )  /2O00 

1370  Tl_ada  tons  frd=Tl  ada  tons_trd+Ada  tons _frd 

1380  END  IF 
1 390  ! 

1400  NEXT  1 

1410  Nm_psk_ac  _1  ost=  ( 1  -Psk_pr  oduct  >  *Pass_acftlE-f  f  _enaage 
1420  Nm_psa  ac  1  ost=  ( 1 -Psa_product  >  *Pass_ac-f  t  *E+ f  _engaae 
1 430  ! 

1440  Nfn_stk_ac=Pass_ac  +  t-Nm_psk_ac_l  ost 

1450  Nm_ac_lost  f 1 t=Nm_ac_l ost  tlt+Nm_psa  ac  lost 

1460  ! 

1470  ' 

1  480  Ada_tons_avl =Ada_tons_avl -T1 _ada_tons_f rd 
1490  Uni  t  ( 1 33>”“Ada_tons  avl 
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Table  5-3.  Air  attack/Air  defense  code. 


1 500  Uni  t  < 1 4 1 ) =Un it (141) +T 1 _ada_tons_+  r d 
1510  ! 

1520  IF  Qption*=" INGRESS"  OR  Opti on*= "EGRESS"  THEN 

1530  PRINT  USING  Fmt _cal  1 ;  Nm,  psa_ac _  1  ost .  Acpr  i  nt  * .  *'  LOST  TO  AD  ELEMENTS  OF  U' 
IT  “ , Uni t_i d (Thi s_uni t ) . "  DURING  “.Option* 

1540  Fmt_cal 1: IMAGE  3D. D, IX , 4A. 29A. 3D. SA. 7A 

1550  END  IF 

1560  1 

1570  RETURN 

1580! 

^  590  !$$$$$*$*$* *********************************** *%*******%*%****%%%%*.%****  y  *  t 
* 

1 600 ! 

1610  Cal c_ada_rndsj ! 

1 620 ! 

1630  Tgt_a=Tgt_length*Tgt_width 

1640  Uni t_area=FNMi n (Uni  t  type  area  (Uni  t_type,  Uni  t  posture), Tgt  a) 

1650  FOR  1*1  TO  7 

1660  Ada_area_-fctr  ( I )  =PI  *  ( Ada_range  ( I )  ~2>  /FNMa>:  (Uni  t_area.  .  0000001  > 

1670  Ada_area_-f  ctr  ( I  >  =FNMi  n  <  fida_area_-f  ctr  ( I )  .  1  ) 

1680  NEXT  I 
1690  FOR  1=1  TO  7 

1700  Nm_ada_wpn_ena ( I ) =Ada  area_f ctr ( I ) *Nm_ada  wpnavl ( I ) *Ada  prtrptn ( I ) 

1710  NEXT  I 

1720  Nm_ada_wpn_eng (6) =Nm_ada_wpn_ena (6) *P1 os 
1 730  Nm_ada_wpn_ena (7) =Nm_ada_wpn_eng (7) *P1 os 
1740  T1  ada_bs  Id  wt=0 
1750  FOR  1=1  TO  7~ 

1760  Ada_bs_ld_wt ( I ) =Ada_rnd_bs_l d ( I ) *Ada_rnd_wt ( I > *Nm_ada_wpn ( I ) 

1770  TI_ada_bs_ld_wt=Tl_ada  bs_l  d_wt+Adaj_bs_l  d_wt  ( I ) 

1780  NEXT  I 
1790  FOR  1=1  TO  7 

1800  Ada_rnd_avl  =Ada  rnd_bs  1  d  <  I )  *Ada_tons_avl  *2000/FNMa>:  ( T1  ada  bs  Id  wt  ..  .  O- 
00001) 

1810  Ada_rnd_Frd  ( I )  =FNMi  n  (Ada_rnd_avl ,  Ada_rnd_-f  rd  eng  ( I )  )  *Nm_ada_wpn_eno  <  1 ) 
1820  Ada_l ds_T rd ( I ) =Ada  rnd  frd ( I > /FNMax ( Ada  r nd_f rd_eng ( I ) , . 0000001 ) 

1830  NEXT  I 
1840  RETURN 
1850! 

1 860 '.  $$$*$$***$$*********  ********************  tin  ******  ***t*****i;**inmt%  ******* 
* 

1870! 

1880  Calc_ada_suprsn: ! 


1 890  1 
1900 

■SET  TYPE  OF  MOBILITY 

FOR  ADA  WEAPONS 

1910 

Ada_mobi 1 i ty_tp ( 1 ) = 1 

'VEHICLE 

1920 

Ada_mobi 1 ity_tp (2) =1 

! VEHICLE 

1930 

Ada_mobi 1 i ty_tp (3) = 1 

! VEHICLE 

1940 

Ada^mobi lity_tp(4)=l 

! VEHICLE 

1950 

Ada_<nobi  1  i  ty_tp  (5)  =1 

! VEHICLE 

1 960 

Ada_mobi 1 ity_tp (6) =2 

'HAND-HELD 

1 970 

Ada_mobi I ity_tp (7) =2 

‘HAND-HELD 
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Air  attack/Air  defense  code 


1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2 1 00 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 


1  UNPACK  ADA  SUPRESSION  PERCENTAGE  FOR  HAND-HELD/VEHICLE  ADA  WEAPONS 
Suprsn_-frc  (  1  )  =  I  NT  ( Ada_supr  sn_pc t ) 

Suprsn_{rc  ( 2  )  =Ada_supr  sn_pct-Supr  sn  -f  r  c  <  1  )  1  HAND-HELD 

Supr  sn_-f  rc  (  1  )  =Suprsn_-f  rc  ( 1  >  /  100  !  VEHICLE 

i 

FOR  1=1  TO  7 

Nm_ada_wpn_avl  ( I ) =Nm  ada_wpn ( I ) * ( 1 -Supr sn_+ r c  <  Ada_mob i 1 i tv_tp ( I ) ) ) 

NEXT  I 

! CONSIDER  HAND  HELD  WEAPONS  OUT  OF  CARRIER 
Nm_ada_wpn_avl (6) =Nm_ada_wpn_avl (6) *Fct_hnd_ada_dmt (Tat_posture.Ada_side) 
Nm_ada_wpn_avl  ( 7 ) =Nm_ada_wpn_avl  ( 7 >  *Fct _hnd_ada_dmt (Tgt_posturp.Ada_sirie; 

< 

RETURN 

!  *****************  **y*:M******»***t**X«*t**»******«************ **********  tit 
1 

Cal c _ar ea_l oss :  ! 

Tgt_area=Tgt_l ength*Tat_width 
IF  Tgt_area >3*Unx t_area  THEN 
Tgt_area=3»Umt_area 
END  IF 

I 

Tgt _area=FNMa*  <Tat_area.  1  ) 

i 

! IF  Tat  t ype=6  THEN  GOSUB  C*lc_answer 
FOR  1=1  TO  72 

Pk=Ac_tgt_pk  (  I )  *  (Tgt_-f  rc_open+Tgt_-f  rc_woods*Prn_tqt_wds_-f  rc  ) 
Nm_areas=FNMi  p  (Ac_tgt_area  ( I  >  /Tgt_ar'ea.  1 ) 

IF  Nm_areas=l  THEN 

T  ONE  PLANE  CAN  COVER  TARGET 

Nm_el  mt  _1  ost  =  ( 1  -  <  1  -PL  )  ~  <Nm_st  k_ac  *E-f  -f  _shot  s )  )  #Nm_el  mt  _  1  e-f  t  (  I  ) 

ELSE 

!  CALCULATE  COVERAGE  BY  STRIKE  GROUP. 

!  THIS  ASSUMES  DEPENDENCE  FROM  PASS  TO  PASS 
C=  (  <Ac_tgt_area  ( I )  *Ef -f  _shot s*Nm_st  k_ac )  >  /Tgt  area 
IF  0=1  THEN 

! COVERAGE  BY  ALL  AIRCRAFT  IN  PASS  MORE  THAN  ONCE  OVER  THE 
! TARGET  AREA. 

Nm_el  mt  _1  ost=<l-<l-Pk)  '‘C)  *Nm  el  mt  _1  e-f  t  ( I ) 

ELSE 

! COVERAGE  BY  ALL  AIRCRAFT  IN  PASS  LESS  THAN  THE  TARGET  AREA. 
Nm_el  mt_l  ost=C*Pk*Nm_el  mt_l  e-f  t  ( I ) 

END  IF 
END  IF 

Nm_e  lmt_lost_-fl  <I)  =Nm_el  mt_lost_-fl  (I>  +Nm_el  mt  _1  ost 
Nm_el  mt  _1  e'f  t  ( I  )  =Nm_  elmt_lett(I)  -Nm_el  mt_l  ost 
NEXT  I 

i 

FOR  1=1  TO  7 

Nm_ada_wpn ( I ) =Nm_el mt_le+t  < I+47) 
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Air  attack/Air  defense  code 


2500 

NEXT  I 

•S. 

25 1  0 

* 

2520 

RETURN 

2530  : 

2540 !**yyyy*yyy*yyy***yyyyyyyyyyyyyy*y*#yyyyyyy»yyyyyyyyy*y#yyyyyyyyyyyy»****»» 

2550  ' 

2560  Calc  answer:  1 

2570  1 

2580  IF  Ac_mi ssi on=4  THEN 

2590  1=72 

2600  ELSE 

2610  1=71 

2620  END  IF 

2630  Pk_area=Stk  _pr  o-f  l  1  e  (  I  +38) 

2640  Dens=St  T_pro-fi  le(I+40) 

2650  Pk=Ac_tgt_pk  < I ) 

2660  Equi v_ar ea=Nm_el mt _tgt  (  I  > / Dens 
2670  Equiv_tgt=Equi v_area/Pk_area 
2680  Equi v_tqt=FNMi n (Equi v_tqt .  1  ) 

2690  IF  Equiv_tgt‘ 1  THEN  GOTO  2730 
2700  1  CASE  1  ONE  AC  COVERS  TARGET 

2710  Nm_e  1  mt  _1  ost  =  (  I  -  <  1  -Pk  )  <  Nm_st  k  _ac  yE-ft_shots)  >  *Nm_elmt_lett  <  I 

2720  GOTO  2800 

2730  C=  < E-f  +  _shot  s» Nm_st  k  _ac  )  /Equi  v_t  gt. 

2740  IF  C<  1  THEN  GOTO  2780 

2750  1  CASE  2  ALL  AC  TOGETHER  COVER  TARGET 

2760  Nm_el  mt  _  1  ost  =  <  1  -  (  1  -Fk  )  -~C )  yNm_el  mt  _1  e-f  t  (  I  > 

27 70  GOTO  2800 

2730  1  CASE  3  ALL  AC  COVER  LESS  THAN  TARGET 

2790  Nm_el  mt  _  1  ost  =P1  yC.y  Nm_el  mt  _  1  e-f  t  (  I  ) 

2800  Nm_el mt_l ost_t 1 <I)=Nm_elmt  lost_+l ( I ) +Nm_el mt _ 1 ost 
2S  1 0  Nm_elmt_le-ft  (  I  )=Nm_elmt_left  (  I  >  -Nm_el  mt  _  1  ost 

2320  1 


2830  RETURN 
2840  1 


2850 '**»**;****,*.**,*  *******  ************  ************************************  yyyy- 

2860  ' 


2870 

Ca 1 c_poi nt _1 oss :  1 

2880 ' 

2890 

Br gg=0 

2900 

IF  Tgt  _type=8  THEN  GOTO 

2910 

GOTO  3120 

2920 

IF  Destroy=2  THEN  3120 

2930 

Pk=Stt*'__pro-f  i  le(86) 

2940 

R3=Un it_in!oi94) 

2950 

IF  R4=0  THEN  R3=R5 

2960 

R4=  1 

2970 

RANDOMIZE  R3 

2980 

FOR  1=1  TO  10 

299o 

R3=RND 

5000 

NEXT  I 

30  1  0 

F'sur vb=  (  1  -F  t  )  Nmst k_ac 

■yyy  get  seed  ************ 

'***  RANDOMIZE  NUMBER  **** 
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3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3 1 00 

3110 

3120 

3 1  30 

3 1 40 

3 1 50 

3160 

3170 

3 1 80 

3190 

3200 

3210 

3220 

3230 

3240 

7250 

3260 

3270 

3280 

3290 

3300 

33 1 0 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440  1 

3450  1 

3460  ' 

3470 

3480 

3490 

3500 

3510 

3520 

3530 


Table  5-3.  Air  attack/Air  defense  code. 


Seed=R3* 1 00 

Uni t_store_5_15 ( 1 „ 94) =Seed 
Unit_info(94)  =Seed 
PRINTER  IS  1 

IF  Psurvb<R3  THEN  GOTO  3090 

Brag= 1 

GOTO  3230 

Brgg=2 

Destrov=l 

GOTO  3230 

Di  vi  sar=FNMax <Nm_ac_passes*Nm_ac_rnds_ena, 1 ) 

Nm_ac_bur  sts=Nm_ac_rnd_bs_l  d*Nm_st(-._ac/Di  vi  sor 

Constant=Tgt _f r c_open+Tgt _f  r c _woods#Ac_p los_prn_tgt  (Tat_posture) 

Const an t=Ac_pdtc_prn_tgt  (Tgt_posture> IConstant 
T1 _ac_burst_wt=0 

I 

FOR  1=1  TO  72 

Ac  _bur  st_wt  ( I  )  =  Ac  _ms_t  gt  _wt  s  <  I  .  Ac_mi  ssi  on  )  *Nm_el  mt  _1  ef  t  (  I  )  *Ac_tqt_p)-  (  I  ) 
T1  _ac_burst_wt=Tl  _ac_burst_wt-*-Ac_burst_wt  <  I  ) 

NEXT  I 

I 

FOR  1=1  TO  72 

Ac  bur  st_wt_f  rc  <  I  )  =Ac_burst_wt  (  I  )  /FNMax  (T1  _ac_bur  st_wt .  .  0000001  > 
Expnt=Ac_burst_wt_frc < I >  *Nm_ac  burst  s 
Nm_el mt=Nm_el mt_l eft  < I ) IConstant 

I 

!  IT  IS  ASSUMED  THAT  ALL  AIRCRAFT  FIRE  AT  DIFFERENT  TARGETS 
!  (i.e.  THE  TARGET  SELECTION  IS  DEPENDENT) 

!  CONSEQUENTLY.  THE  EXPECTED  KILLS  FROM  A  BINOMIAL  SEEMS  APPROPR I ATF 

i 

Nm_el  mt  _1  ast=Ac_tgt  _pK  ( I  )  *Expnt*ET-f_  shots 
Nm_el mt_l ost=FNMi n (Nm_el mt_lost.Nm_elmt> 

I 

Nm_el  mt_l  ast_+ 1  (  I  )  =Nm_el  mt  _1  ost  _-f  1  (  I  )  +Nm_elmt_l  ost 
Nm_el mt_l ett ( I ) =Nm_el mt_l pf  t ( I > — Nm_el mt_l ost 
NEXT  I 

I 

FOR  1  =  1  TO' 7 

Nm_ada_wpn  ( I )  =Nm_el  mt  _1  ef  t  ( I  -t-47 ) 

NEXT  I 

t 

RETURN 

*********«*g*****************»****»*x**«*****************«*x*s****»* *»***» 

Cal c_sub_pass: ! 

'CALCULATES  #  OF  SUBPASSES  MADE  BY  A  WING  OF  A/C  AS  THEY  STRIKE  THE  TARGET 
'  OR  INGRESS/EGRESS  OVER  THE  TARGET. 

'  THE  AD  ATTRITION  DATA  IS  ON  A  PASS  BASIS  HENCE.  WE  MUST 

'  SUBDIVIDE  THE  WING  TO  SEPERATE  THE  NUMBER  OF  A/C  AS  THEY 

*  ARE  EXPOSED  TO  THE  AIR  DEFENSE  ELEMENTS  OF  THE  TARGET. 
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3540  'CALC  THE  EFECT1VENESS  OF  THE  PLANE  DELIVERY  BASED  ON  PRECEIVED  DENSITY  OF 
3550  '  AIR  DEFENSE. 

3560  ' 

3570  SELECT  High_law 

3580  CASE  1  ! AIR  COMMANDER  BELIEVES  THAT  AD  IS  HIGH  DENSITY.  PLANES  ARE  CLOSE!. 

3590  ! SPACED  :  THEIR  EFFECITVENESS  IS  DECREASED. 

3600  Ef  f  _shots=.  8 

3610  Ef f _engaqe= . 9 

3620  CASE  2  !AIR  COMMANDER  BELIEVES  THAT  AD  IS  LOW  DENSITY.  PLANES  ARE  FURTHER 
3630  f SPACED  :  THEIR  EFFECITVENESS  IS  INCREASED. 

3640  Ef  f _shots=  .  95 

3650  Eff_engage=l 

3660  END  SELECT 
3670  ! 

3680  ICALC  THE  NUMBER  OF  EXPOSED  PLANES  PER  PASS  AND  THE  NUMBER  OF  PASSES 
3690  SELECT  Cas_bai 

3700  CASE  1  ! A I R  COMMANDER  PERFORMING  CLOSE  AIR  SUPPORT. 

3710  Nm_sub_pass=  I  NT  <Nm_ac_l  e-f  1 1  /4  +  .  5> 

3720  IF  Nm_sub_pass=0  THEN 

3730  Nm_sub_pass= 1 

3740  Pass_acft=l 

3750  GOTO  End_sub_pass 

3760  END  IF 

3770  Pass_acf t=Nm_ac_l  e-f  1 1  /Nm_sub_pass 

37B0  CASE  2  'AIR  COMMANDER  PERFORMING  BASIC  AIR  INTERDICTION. 

3790  Nm_sub_pass=INT  <  Nm_ac_I  e-f  1 1  /8-t-.  5 ) 

3800  IF  Nm_sub_pass=0  THEN 

3810  Nm_sub_pass=l 

3820  Pass_acft=l 

3830  GOTO  End_sub_pass 

3840  END  IF 

3850  Pass_acf t=Nm_ac_l ef  1 1 /Nm_sub_pass 

3860  END  SELECT 

3870  End_sub_pass:  ' 

3880  RETURN 
3890  ! 

3900 ! 

39 10'******************************************************  *************  ******* 

3920' 

3930  Change_answer . ! 

3940 ' 

3950  REPEAT 
3960  PR I NT 

3970  PRINT  "DO  YOU  WISH  TO  CHANGE  ANSWERS?  (Y/N)" 

3980  INPUT  Answer* 

3990  UNTIL  Answer*=''Y"  OR  Answer*="N" 

4000  ' 

4010  Nm_un  1 1  s_chosen=Nm_un  i  t  s-*-Nm_un  its_played 
4020  IF  Nm_i.ini  ts_chosen  >20  THEN 
4030  BEEP 

4040  PRINT 

4050  PRINT  "  »*  ERROR: 


Number  of  units  plaved  will  exceed  storage" 
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4060  PRINT  "  capability.  You  must:  update  or  purge  results." 

4070  AnswerS="Y" 

4080  END  IF 
4090  1 

4100  RETURN 
4  110' 

41 20 !***************************************************** ********************* 

* 

4  1 30  ' 

4140  Choose_col or :  I 
4  1 50  1 
4  1 60 
4  170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350  ! 

4360 I************************************************************* *************; 

4370  ! 

4380  Cumul ate_total s:  ! 

4390  1 

4400  ASSIGN  i?Path  TO  Cl r $V_AIR_ INF :  HF'9 1 34 . 70 1  " 

4410  ENTER  ©Path,  1 ;  T1  _ac_-f  1 1  _i  ng  (*>  ,  T1  _ac_f  I  t_egr  (*)  .  T1  _ac_-f  1  t_stk  t*l  .  T1  _ac_lo: 
t_i ng ( * ) , T1 _ac_l ost _egr ( *  > . T1 _ac_l os t  _st  k (  *  )  ,  T1 _ac_l ost _ada  <  * ) . T1 _el mt_ac ( * ) 
4420! 

4430  FOR  1=1  TO  4 

4440  Tl_ac_-flt_ing(I)=Tl_ac_-flt_ing(I>  +Nm_  ac  _+  1 1  _i  ng  <  I  > 

4450  T1  _ac_f  lt_egr(I)=Tl_ac_-fl  t_egr  ( I )  -t-Nm_ac_  +  1  t  _eo  r  (  I  ) 

4460  T1 ~ac~f 1 1 _st  k < I ) =T1 _ac~-f  1  t_stk < I )  +Nm_ac_+ 1 t_stk ( I ) 

4470  Tl_ac_lost_ing(I)=Tl_ac_lost_ing(I) *Nm_ac_ 1 ost_ing (  I  ) 

4480  T1  _ac_l  ost  _egr  ( I  )  =T1  _ac_l  ost_egr  ( I  )  +N<n_ac  _1  ost  _ear  ( I  > 

4490  T1 _ac _1 ost  _st  k ( I >  =T1 _ac_l ost _st k ( I > +Nm_ac_l ost .  _st k  ( I ) 

4500  T1 _ac_lost_ada ( I ) =T1  ac _1 ost _ada ( I >  ^Nmac _1 ost _ada  ( I ) 

4510  NEXT  I 
4520  ' 

4530  FOR  1=1  TO  72 

4540  T1  _el mt _ac ( I ) =T1 _el mt _ac ( I ) +Nm_ el mt _ 1 ost  ac (  I  ) 

455t)  NEXT  I 


PRINT 

PRINT 

PRINT  "AIR  ATTACK  /  AIR  DEFENSE  MODULE 
REPEAT 
PRINT 

PRINT  "SELECT  BLUE  OR  RED  AIR  (B/R) " 
INPUT  Answer* 

UNTIL  Answer*="B"  OR  AnswerS="R" 

IF  Answer S="B"  THEN 
Frc_cl rS=" BLUE” 

ClrS=“BL" 

Ada_si de=2 
ELSE 

Frc_clrS= "RED" 

Cl rS="RD" 

Ada_si de=l 
END  IF 

I 

RETURN 
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45*0  1 

4570  OUTPUT  i;'Path.  1  ;  T )  _ac  _-f  1  t_ino(t)  .  T1  1 t  _ear  (  »  >  .T1  _ac_-f  1  t  st  L  (*)  .  T  ]  _ac_l  r 

st  l  ng  <  *  )  . T1 _ac  _ 1  ost_eqr  (  *  )  ,  T  l  _  ac_  1  ost  t.-  (  *  )  .  T1  ac_  1  ost.  ad  a  (  *  )  ,  T1  elmt  acUl 
4580  ASSIGN  6'Path  TO  * 

4590  ' 

4600  RETURN 
4610  ! 

4620 ! ***********************  it******************************************  *  ***** 

4630! 

4640  E>:  l  t_modul  e:  ! 

4650  1 

4660  REPEAT 
4670  PRINT 

4680  INPUT  "REMINDER  10  SAVE  FINAL  RESULTS  (Y/N) ".Answer* 

4690  UNTIL  Answer*="Y"  OR  Answert="N" 

4700  IF  AnswerS="Y"  THEN 
4710  PRINT 

4720  PRINT  "SELECT  UPDATE  RESULTS  AND  STATUS  REPORT  FROM  MENU" 

4730  WAIT  7 

4740  ELSE 
4750  REPEAT 

4760  INPUT  "CHOOSE  BLUE/RED  OR  EXIT  TO  DIME  MENU  < COLOR /EXIT)". New _ no  1  or t 

4770  UNTIL  New_col orS="COLOR"  OR  Mew_color$="EXIT" 

4780  IF  New_calor*="COLOR"  THEN  LOAD  "NEW_P3 : HP9 1 74 . 70 1 " 

4790  PRINT 

4800  PRINT  "EXIT  FROM  AIR  DEFENSE/ AIR  ATTACH  MODULE" 

4810  Menut=“ F I N I  SHED " 

4820  LOAD  "DIME: HP9 134. 701 “ 

4830  END  IF 
4840  ' 

4850  1 

4860  RETURN 
4870  ' 

4890  ! 


4900 

Fi le_errar_l :  ! 

4910 

BEEP 

4920 

PRINT 

4930 

PRINT  "**ERROR: 

",Fi  le**<Di  sk«:  "  DOES  NOT  EXIST  ON  THE  AA/AD  DATABASE 

4940 

RETURN 

4950 

4960 

File  error  2:  1 

4970 

BEEP 

4980 

PRINT 

4990 

PRINT  "ERROR: 

.Fj le*5Disl*; "  DOES  NOT  EXIST  ON  THE  AA/AD  DATABASE" 

5000 

PRINT  " 

RESUBMIT  A/C  AND  MISSION  BY  CHOOSING  1  HE  FOLLOWING:-" 

50 1 0 

PRINT 

5020 

PRINT  "ENTER  A/C 

TYPE  < 1  — 4  > " 

5030 

INPUT  Ac_tvpe 

5040 

CALL  Check_var(" 

A/C  TYPE" . Ar  tvpe.1.4) 

5050 

IF  FI ight*= "STRIFE"  THEN 

5'  >60 

PRINT 
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5070  PRINT  "ENTER  AIR  COMBAT  MISSION  (1-5)" 

5080  INPUT  Ac_mission 

5090  IIP  Ac_mi ssi on= 1  THEN  INPUT  "WHAT  IS  THE  RANDOM  SEED" . R~ 

5100  CALL  Checi.-_var  ( "  AC  MISSION" , Ac_mi ssi on. 1 , 5) 

5110  END  I F 

5120  GOSUB  Select_prmtrs 
5130  Fi  1  eS=Ai  rcra-f  t*&"_"S<Fl  t* 

5140  RETURN 
5150! 

5 1 60 !********#***  ************************************************************** 

5170! 

5130  FI i ght _atr i t l on : ! 

5190  1 

5200  Break_poi nt=. 5*Nm_ac  le-ft 
5210  ! 

5220  FOR  This_unit=l  TO  Nm_units 
5230  FOR  J=1  TO  150 

5240  Un i  t  <  J  ) =Uni t _st or e_5_ 15<This_unit.J) 

5250  NEXT  J 

5260  GOSUB  Sel  ect_ada_i  n-f  o 

5270  Tgt _postur e=Uni t < 75) 

5280  T_sub_pass=0 

5290  Nm_ac_l  e-f  1 1  =Nm_ac_l  e-f  t 

5300  IF  Nm_ac_left< . 1  THEN  Store_loop 

5310  Tac_lost_pass=0 

5320  GOSUB  Cal c_sub_pass 

5330  REPEAT 

5340  T_sub_pass=T_sub_pass-'-l 

5350  GOSUB  Cal c_ada_supr sn 

5360  !  SET  PLOS  FOR  ADA  HAND  HELD  ROUNDS 

5370  PI os=T_pl os (Terr  <Thi s_uni t > ) 

5380  GOSUB  Cal c_ada_rnds 

5390  GOSUB  Cal c_ac_l osses 

5400  T  ac_last_pass=Tac_lost_pass+N(n_psa_ac_l  ost 

5410  UNTIL  T_sub_pass>=Nm_sub_pass  OR  ( Tac_l  ost_pass+Nm_ac_l  ost  -f  1 1 )  -  =Br  eak _ 

oint  OR  (Nm_ac_l e-f  1 1 -Tac_l  ost_pass )  <  .  1 

5420  Nm_ac_l  eFt=FNMax  (0,  Nm_ac_l  e-f  t-T ac_l  ost  _pass) 

5430  Nm_psa_ac_l ost=Tac_lost_pass 

5440  Store_loop:  ! 

5450  FOR  J=1  TO  150 

5460  Un i t _stor e_5_ 1 5  <  Thi s_unit,J) =Uni t ( J  > 

5470  NEXT  J 

5480  NEXT  This.umt 
5490  • 

5500  RETURN 
55 1 0  ! 

5520 't$$t*t**t***t$****$$t»*ttt****$t***tt*tttt**tt$ttttt** ******************** 

5530 ! 

5540  Flight_data: 1 
5550  ' 

5560  Ac_load=l 

5570  Nm_ ac _ 1 et t =Nm_ac _ i nput 
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5580  Nin_ac_l  ost_-f  1 1=0 

55*90  A1 1  i  tude_meter s=Al  t  i  tudei .  3048 

5600  GOSUB  Select_umts 

5610  GOSUB  Sel ect_prmtr s 

5620  ' 

5630  Fi  le*=Aircraft*?<"_“S<Flt* 

5640  ON  ERROR  GOSUB  File_error_2 
5650  ASSIGN  (PPath  TO  Fi  1  e*J<Di  sk* 

5660  OFF  ERROR 
5670  PRINTER  IS  702 
5680  GOSUB  FI i ght_output 
5690  PRINTER  IS  1 

5700  ENTER  ©Path,  1 ;  FI  t_pro-f  i  1  e  <  *  > 

5710  ASSIGN  6'Path  TO  * 

5720  FOR  1*1  TO  7 

5730  Mi  n_ada_al  t  <  I )  =F)  t  _pro-f  i  1  e  <  I ) 

5740  Max_ada_al  t  ( I  )  *=F1  t_pr  ot  i  I  e  (  I +7) 

5750  Ada_range  <  I )  =F1  t_pr  o+  iled  +  14) 

5760  Ada_prtcptn  <  I )  =F1  t_pro-f  i  le  ( 1+21 ) 

5770  Ad a_r rid _bs_ Id  <  I  >  =F1 t_prot  i  1  e  ( I  +28  > 

5780  Ada_rnd_wt  <  I )  =F1  t_pro-file(I  +35) 

5790  Ada_rnd_+ rd_eng  (I)=Flt_pro-fi  1  e  <  1+42) 

5800  Ada_psa_ac  (I  >  =F1 1  _pro-f  i  let  I  +49  > 

5810  Ada_psk_ac < I ) =1 

5820  NEXT  I 

5830 

5840  Fi  1  eS=Cl  r**t  “_UN_AREA" 

5850  ASSIGN  PPath  TO  File*J<Disk* 

5860  ENTER  <?Fath ,  1 ;  Uni  t_type_area  (  * ) 

5870  ASSIGN  @Path  TO  * 

5880  ! 

5890  RETURN 
5900  1 

5910!t**********S*«************t**tt*x**************************t**** *****»**»'*> 

5920  ! 

5930  FI i ght_i nput : ! 

5940  1 

5950  PRINT 

5960  PRINT  “  INPUT  THE  FOLLOWING  FOR  THE  " : Frc_cl r*: "  AIR  ":Flightt 

5970  IF  FI ight*="EGRESS"  THEN 
5980  PRINT 

5990  PRINT  USING  Fmt-f  i  ;  "TOTAL  A/C  AVAILABLE  FOR  EGRESS:  "  .  Nm_ac_avl  _ear  '  t ' 

6000  END  IF 

6010  IF  FI ight*=" INGRESS"  THEN 
6020  PRINT 

6030  INPUT  "WHAT  IS  THE  GAME  TIME?".Tm* 

6040  END  IF 
6050  PRINT 

6060  PRINT  “ENTER:  #  OF  A/C.  A/C  TYPE.  ALTITUDE.  #  UNITS  OVERFLOWN" 

6070  INPUT  Nm_ac_i nput , Ac_t ype, A] t j tude . Nm_i in i t s 
6080  ' 

6090  CALL  Chec k _ var  (  "  A /C  TYF'E  "  ,  Ac  _t  vpe .  1 . 4  ) 
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6100  ! 

61 10 

6120  PRINT 

6130  PRINT  "ENTER:  TYPE  OF  STRIKE  —  CAS  DR  BA I  (INPUT  1  OR  2)" 

6140  INPUT  Cas_bai 

6150  CALL  Chec k_var ( "TYPE  OF  STRIKE  (CAS  OR  BA  I )  "  .  Ca*_bai  .1.2) 

6160  PRINT 

6170  PRINT  "ENTER:  EXPECTED  DENSITY  OF  AD  —  HIGH  OR  LOW  (INPUT  1  OR  2)" 

6180  INPUT  High_low 

6190  CALL  Check_var ("EXPECTED  DENSITY  OF  AD" , Hi gh_l ow, 1 , 2 ) 

6200  1 
6210  ! 

6220  CALL  Uni t_read (Frc_cl r*, Nm_uni ts . Uni t_i d (*), Terr (*) ) 

6230  Ac_mi ssi on=0 
6240  !  ~ 

6250  ! SET  THE  TARGET  AREA  PARAMETERS  FOR  USE  IN  AREA  FIRE 

6260  Tgt_wi dth=l . OE+B 
6270  Tgt_l ength= 1  - OE+8 
6280  ! 

6290  Fmtfi: IMAGE  31 A, 2X , 4 (3D. D. 2X > 

6300  ! 

6310  RETURN 
6320! 

6330  '*™**1^******:M******************:M***************  *************  *********** 
6340  ' 

6350  FI i ght_output : 1 
6360 ! 

6370  GOSUB  Sel ect_prmtr s 
6380  ! 

6390  PRINT  USING  "///" 

6400  PRINT  "THE  FOLLOWING  INPUTS  WERE  CHOSEN  FOR  THE  ";Frc_clr*:"  AIR  ":Flight 
;  "  j  " 

6410  PRINT 

6420  IF  FI ight*=“ INGRESS"  THEN 
6430  PRINT 

6440  PRINT  "FLIGHT  TIME  IS  ".Tm* 

6450  PRINT 

6460  END  IF 

6470  PRINT  "  #  OF  A/C.  A/C  TYPE.  ALTITUDE.  #  UNITS  OVERFLOWN" 

6480  PRINT  USING  Fmt 1 ; Nro_ac_i nput . Acpr i nt*, A1 t i tude, " * t " , Nm_un i t s 
6490  ! 

6500  ' 

6510  PRINT 

6520  SELECT  Cas_ba: 

6530  CASE  1 

6540  PRINT  "Aircraft  performing  CAS." 

6550  CASE  2 

6560  PRINT  "Aircraft  performing  BAI . " 

6570  END  SELECT 
6580  PRINT 
6590  SELECT  High.low 
6600  CASE  1 
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66  1  O 

PRINT  "In 

a  percei ved 

hiqh-density  AD 

envi ronment .  " 

6620 

CASE  2 

6630 

PRINT  "In 

a  percei ved 

low-density  AD 

envi ronment .  " 

6640 

END  SELECT 

6650 

6660 

6670 

1 

( 

PRINT 

6680 

PRINT  USING 

Fmt2; "UNIT- 

ID'S  OVERFLOWN: 

"  :  Un  i  t  _  i  d  (  *  > 

6690 

6700 

PRINT  USING 

i 

Fmt2; " 

TERRAIN: 

“ : Ter  r ( * ) 

6710  Fmtl: IMAGE  9D.5X,  5A.  8D.2A.19D 
6720  Fmt2: IMAGE  20A, 3X , 5 (3D. 3X > 

6730  ' 

6740  RETURN 
6750 ! 


6760!**************************************************  *************  ************ 

6770! 

6780  FI ight_results:  ( 

6790' 

6800  IF  Nm_ac  _l ost _t  1 1 3  Nm_ac  _l nput  THEN  Nm  ac 1  ost _f  1 1  =Nm_ac_i  nput 
6810  IF  FI ightS="STRIKE"  THEN 
6820  PRINT 

6830  PRINT  USING  Fmtfr2: "RESULTS  OF  THE" , Acpr 1 n t * . FI t * , "STRIKE:  " . Nm_ac _ l npi 

t .  "FLOWN" . Nm_ac _1 ost_f It, " K I LLED" , T1  ac_p asses. "PASSES" 

6840  PRINT 

6850  R_target_nameSC 1 , 1253=“T55  DF  BMP73DF  BRDM3BRDM5AT-75AGS 1 7T 1 2  CMD- 
VDF  DF  DF  DF  DF  6MPATBTR  DF-ICDF— ICDF— ICARTY  ARTY  ARTY  ARTY  ARTY  " 

S860  R_t ar get_nameSC 126, 2501=" ARTY  ARTY  MORTRMORTRMQRTRMORTRMRL  MRL  MRL  MR 

L  INF  INF  INF  INF  INF  SARMSSARMSSARMSSARMSSARMSSARMSSARMSZSU-XSA- 1 3SA -6  " 

6870  R_target_name*C251,3503="ADA  ADA  SA-1 4ADAHHF-TRKJ4TRKWATERCG0-TNA I RKEK 

TRKEWTRKENGR  OBSCEAVLB  PONBRENGEQENGEQMATHEMATHEAATHE" 

6880  B_target_name-*C  1  ,  1253="DF  FAV-TM55 1  FAV40HMV-GDF  DRAGNLAW  DF  CMD- 

VDF  DF  DF  DF  DF  HMV40DF-ICDF- ICDF- ICDF- ICARTY  ARTY  ARTY  ARTY  ARTY  “ 

6890  B_target_name*  C 1 26, 250 3  =  "ARTY  ARTY  MQRTRMORTRMORTRMORTRMLRSTMLRSTMLRSTML 
RSTINF  INF  INF  INF  INF  SARMSSARMSSARMSSARMSSARMSSARMSSARMSVULCNAVNGR I HAWK " 

6900  B_target_name*C251 , 3503="ADA  ADA  STINGADAHHF— TRKJ4TRKWATERCG0-TNATRKEU 

TRKEWTRKENGR  OBSCEAVLB  PONBRENGEQENGEQMATHEMATHEAATHE" 

6910  SELECT  Frc_clr* 

6920  CASE  "BLUE" 

6930  Tar get _vi c t i m4="RED" 

6940  T*=R_target _name* 

6950  CASE  "RED" 

6960  Tar get _vi c t i mt=" BLUE " 

6970  T*=B_taraet_name* 

6980  END  SELECT' 

6990  FOR  Qut*= 1  TO  72 

7000  0 ( Out > =Nm_el mt _ 1 ost _f  1  (Out) 

7010  NEXT  Out 

7020  PRINT  Targetvictim*: "  ELEMENT  LOSSES  INFLICTED:" 

7030  PRINT 

7040  FOR  X=10  TO  70  STEP  10 

7050  PRINT  USING  Fmt * r 1  a: T*C  ( X- 1 0) *5+ 1  :  5 1 .  T* r ( X -9 ) *5+ 1 : 5 1 . TS [  < X -8 > *5+ 1 : 5 3 .  T 

»C  ( X-7) *5+1 ;53 , T*C ( X-6>  *5+1 ;53. T*t ( X-5)  *5+1  ;53.  TM  (  X-4  >  *5+1  :  53  .  T  *t  (  x  -3)  *5+  1  :  53 
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7060  PRINT  USING  Fmt-f  r  lb :  TS C  ( X-2>  *5  + 1 ; 53  ,  TS C  <  X-l  )  *5+1  :  53 

7070  PRINT  USING  Fmtfr 1 : 0 ( X-9 > . 0 ( X-8 > . 0 < X-7 > , O < X-6> . O < X-5) , 0 < X-4 ) , 0 ( X-3 > . 0 

X-2) ,0<X-1) ,0<X) 

7000  NEXT  X 

7090  PRINT  USING  “ 12A, 8D. D.  5X , 1 2A ,  8D. D" : ”  POL (gal )  ";0(71>:"  AMMO ( tons )  ":0 

72) 

7100  PRINT 

7110  IF  Brgg=0  THEN  GOTO  7100 

7120  ! IF  Brgg=l  THEN  GOTO  7150 

7130  ! IF  Brgg=2  THEN  GOTO  7130 

7140  IF  Destroy=0  THEN  7170 

7150  PRINT  "BRIDGE  DESTROYED"  '  THE  SEED  IS“.R3 

7160  GOTO  7180 

7170  PRINT  "BRIDGE  NOT  DESTROYED"  '  THE  SEED  IS  ". R3 

7180  ELSE 

7190  PRINT 

7200  PRINT  USING  Fmt-fr3;  "RESULTS  OF  THE "  .  Acpr  i nt*.  FI  i  ght« ,  "  :  "  .  Nm_ac  _i  nput .  " 

FLOWN"  .  Nm_ac_l  ost_-f  1 1 ,  "KILLED" 

7210  END  IF 

7220  ! 

7230  IF  Answer 4<  >" XY2 "  THEN 
7240  REPEAT 

7250  PRINT 

7260  PRINT  "DO  YOU  WISH  TO  SUBTRACT  THE  ABOVE  LOSSES?  <Y/N>" 

7270  INPUT  Answer* 

7200  UNTIL  Answeri="Y"  OR  Answer*="N" 

7290  END  IF 
7300  1 

7310  IF  Answer*="Y"  THEN 
7320  AnswerS="XYZ" 

7330  PRINTER  IS  702 

7340  GOSUB  FI i ght_resul ts 

7350  GOSUB  Store_resul ts 

7360  GOSUB  Add_results 

7370  PRINTER  IS  1 

7380  END  IF 
7390  ' 

7400  Fmt-frl :  IMAGE  10<2X,3D.D> 

7410  Fmtfr la: IMAGE  #,7<2X,5A> 

7420  Fmtf rib: IMAGE  2<2X,5A) 

7430  Frntfr2:  IMAGE  15A,4A,7A,  10A,3D.D,  1X.6A.3D.D,  1X,7A,3D,  1  X  ,  7A 

7440  Fmtfr3: IMAGE  15A. 5A. 7A. 3A. 3D. D. 1 X , 6A, 3D. D, 1 X . 7A 

7450! 

7460  RETURN 
7470 ' 

7480! ************* ****«« ******  ********************  ***********  ****** :****#******** 

7490' 

7500  Init_totals:  ! 

7510’ 

7520  FOR  1=1  TO  4 

7530  Nm_ac_f 1 t_i ng ( I ) =0 

7540  Nm_ac _♦ 1 t _egr ( I > =0 
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7550  Nm_ac_-f  1  t_st  k  ( I  >  =0 

7560  Nm_ac_l ost _i  ng ( I ) =0 

7570  Nm_ac_l ost_egr ( I ) =0 

7580  Nm_ac_l ost_stk < I > =0 

7590  Nm_ac_l  ost  ada ( I > =0 

7600  ' Nm_ac_avl _stk ( I ) =0 

7610  Nm_ac_avl _egr ( I ) =0 

7620  NEXT  I 

7630  FOR  1=1  TO  20 

7640  FOR  J=1  TO  150 

7650  Uni t st or e_ 20_ 15  < I , J  > =0 

7660  NEXT  J 

7670  Uni  t  _i  d_2'.>_  1 50  (  I  )  =0 

7680  NEXT  I 

7690  FOR  1=1  TO  72 

7700  Nm_el mt_I ost _ac ( I > =0 

7710  NEXT  I 

7720  Nm_uni ts_pl ayed=0 

7730 

7740  RETURN 
7750  ' 

7760 '*#****************#*»*************»******  t** ******  ******* #**#*##***#**.***  * 
7770  ' 

7780  Li  st_debua_-f  1 1 :  ' 

7790  1 

7800  PRINT 

7810  PRINT  Ai  r  cr  af  t*!<Fl  t*S<Di  skS ,  FI  t  profile!*) 

7820  PRINT 

7830  PRINT  "MI N_ADA_ALT " .Mi n_ada  alt(*) 

7840  PRINT 

7850  PRINT  " MAX _ ADA  ALT "  ,  Mai;  _ada_al  t  (  *  1 
7860  PRINT 

7870  PRINT  "ADA_RANGE  " . Ada_r ange ( * ) 

7880  PRINT 

7890  PRINT  "ADA_FRTCPTN" , Ada_prtcptn ( *  > 

7900  PRINT 

7910  PRINT  "ADA_RND_BS_LD'\  Ada_rnd  bs_ld<*> 

7920  PRINT 

7930  PRINT  " ADA_RND_WT  " . Ada_r nd _wt ( * ) 

7940  PRINT 

7950  PRINT  " ADA  RND_FRD_ENG" , Ada_rnd_f rd  eng(*> 

7960  PRINT 

7970  PRINT  " ADA_PSA_AC  " . Ada_psa_ac < * > 

7980  PRINT 

7990  PRINT  "ADA_PSk _AC  " . Ada_psk_ac < * > 

8000  PRINT 

8010  PRINT  " NM_ADA_WPN  " . Nm_ada_wpn ( * > 

8020  PRINT 

8030  FRINT  "NM_ADA_WPN_AVL" . Nm_ada_wpn_avl  ( » > 

8040  PRINT 

8050  PRINT  "UN I T_TYPE  "  ;  Un  j  t  _t ype .  "UN I  T_F'0STURE  " : Uni t _post ure , "UNI T_AREA  "  :  Ur 
t  area 
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8  <"*60  PRINT 

8070  PRINT  ''ADA_AREA  FCTR".Ada  «rea.fctr  («) 

8080  PRINT 

8090  PRINT  ,,NM_ADA_WPN_£NG"  ,  Nm_ada_wpn_eng  <  *  ) 

8100  PRINT 

8110  PRINT  "ADA_BS_LD_WT,‘ ,  Ada_bs_ld  wt  (  *  ) 

8120  PRINT 

8130  PRINT  ,,TL_ADA_BS_LD_WT"  .  T1  _ada_bs  ld_wt 
8140  PRINT 

8150  PRINT  "  ADA_RND_FRD“  ,  Ada  rnd_-frd<*> 

8160  PRINT 

8170  PRINT  "  ADA_LDS_CRD"  ,  Ada_l  ds_-f  r  d  <  *  ) 

8180  PRINT 

8190  PR  INI  "  TL_ADA_TONS_FRD"  ,Tl_ada_tons_-frd,  "  ADA_TONS_AVL"  .  Ada_tons_svl 
8200  ! 

8210  RETURN 
8220  ! 

8230 ! *******************************************  ********************** ♦a******* 

9240  1 

8250  L.i  st_debug_st  k  :  1 

8260 1 

8270  PRINT 

8280  PRINT  Wpn_l  d_templ  ate*  <Ac_laad>  &Di  sk*.  Stk_pro-f  i  1  e  <  *  > 

8290  PRINT 

8300  PRINT  "WPN_LQAD_CQDE“ , Wpn_load_code 
8310  PRINT 

8320  PRINT  " AC_AREA_PRN_TGT" , Ac_area_prn_tgt 
8330  PRINT 

8340  PRINT  "MIN_AC_PASSES  " . Mi n_ac_passes 
8350  PRINT 

8360  PRINT  "NM  AC_RNDS  ENG  " ,  Nm_ac _rnd.s_eng 
8370  PRINT 

8380  PRINT  "NM_AC_RND_BS  L  D" . Nm  ac_rnd_bs_ld 
8390  PRINT 

8400  PRINT  "AC_PDTC_PRN_TGT" , Ac _pdtc_prn_tgt  * > 

8410  PRINT 

8420  PRINT  *,AC_PLOS_PRN_TGT",  Ac_plos_prn_tgt  (*> 

8430  PRINT 

0440  PRINT  "AC_TGT_FK  ” , Ac_tgt_pk ( * ) 

8450  PRINT 

8460  PRINT  " AC_TGT_AREA  Ac _tgt .area (* ) 

8470  PRINT 

848*  PRINT  "PRN_TGT_WDS_FRC" , Prn_tgt_wds_+ rc. 

849>.  PRINT 

8500  PRINT  "PRSNl__FXHL_FRC"  .  Prsn  1  _-f  xhl  _f  rc 
8310  PRINT 

8520  PRINT  "TGT_AREA  " .Tgt_area 
8530  PRINT 

8540  PRINT  "NM_AC_PASSES" . Nm_ac_passes 
8550  PR  I  NT 

8560  PRINT  "NMACBURSTS " . Nm_ac  _bur  st  s 
8570  PRINT 
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8580  PRINT  "CONSTANT", Constant 
8590  PRINT  ' 

8600  PRINT  "AC_BURST_WT". Ac_burst_wt <*) 

8610  PRINT 

8620  PRINT  "TL_AC_BURST_WT",T1  ac_burst_wt 
8630  PRINT 

8640  PRINT  "AC_BURST_WT_FRC",  Ac_burst_wt  i  red) 

8650  PRINT 

8660  PRINT  "NM_ VEHICLES  " : Nm_vehi c 1 es, " VEH ICLES_L0S1  " «  Vehi cles_l ost 
8670  PRINT 

8680  PRINT  "NM_ INFANTRY  "  ;  Nm_i  n-f  antry  .  "M0UNT_RAT  10  "  ;  Mount.rati  o 
8690  PRINT 

8700  PRINT  " MOUNT _LQSSES  Mount _1 osses , "NM_ELMT_LOST_FL ' 1 0)  "  ;  Nm  elmt_lost  fl- 

10) 

8710  ' 

8720  RETURN 
8730  ! 

87 40  I  I:**************)***]*********************************:*******#***** *********** 

8750' 

8760  Li st _debua_uni t ;  ! 

8770  1 

8780  ASSIGN  PPath  TO  "UNITFILE: HP9134, 701 " 

8790  FOR  1=1  TO  Nm_units 

8800  ENTER  tyPath  .  Un  i  t  _i  d  (  I )  ;  Um  t  _i  n-f  o  (  *  ) 

88 1 0  PRINT 

8820  PRINT  "UNITFILE  RECORD" ; Uni t _i d ( I > . Uni t_i nfo < * > 

8830  NEXT  I 

8840  ASSIGN  S'Path  TO  * 

8850  ! 

8860  FOR  1=1  TO  Nm  units 
8870  FOR  J=1  TO  150 

8880  Uni  t_i  n-f  o  (J )  =Uni  t_store  5_15(I.J> 

8890  NEXT  J 

8900  PRINT 

8910  PRINT  "UN  I T_5_ 150  RECORD" s Uni t_i d < I ). Un 1 1 _i  nfo  (*  ) 

8920  NEXT  I 
8930  ' 

8940  FOR  1=1  TO  Nmuni ts_pl ayed 
8950  FOR  J=1  TO  150 

8960  Un  it_in-fo<J)  =Un  i  t  stor e_20_  1 5  <  I .  J  ) 

8970  NEXT  J 

8980  PRINT. 

8990  PRINT  "UN I T_20_  150  RECORD"  ; Uni  t_i d  20_150  ( I ).  Um  t_i  n-f o  <* ) 

9000  NEXT  I 
90 1 0  ' 

9020  RETURN 
9030  1 

9040  1  *********  *  *  *  *  **********  ******  f  *************  *  *  *  *  *  *  *  *  *  *********************  *  * 

9050 ' 

9060  Li st _resul t s :  ! 

9070  ' 

9080  PRINT 
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9090  PRINT 

9100  PRINT  USING  Fmt  lr  1 :  Frc_cl  rJ:  "  AIR  CURRENT  RFSUl  TS" 

9110  PRINT  USING  Fmt 1 r 2 : "TYPE  (1-4)" 

9120  PRINT  USING  Fmt.  1  r  3;  "  TOTAL  AIRCRAFT  INGRESS  FLIGHTS".  Nn,  ar  Gt.ingO) 

9130  PRINT  USING  Fmt  1  r  3 ;  "  TOTAL  AIRCRAFT  EGRESS  FLIGHTS"  ,  Nm  .«c  ...  fl  t  _eqr  <*  > 

9140  PRINT  USING  Fmt  1  r3;  "TOTAL  AIRCRAFT  STRIKES  "  .  Nm_ ar  _  +  3  t  _st <  *  ) 

9150  PRINT  USING  Fmtl  r3;  "TOTAL  AIRCRAFT  INGRESS  LOSSES  "  ,  Nm._  ac  .  1  ost  _i  ng  (  *  ) 

9160  PRINT  USING  Fmtlr 3; “TOTAL  AIRCRAFT  EGRESS  LOSSES  ".Nm_ac, lost.egr(») 

9170  PRINT  USING  Fmt 1 r 3: "TOTAL  AIRCRAFT  STRIKE  LOSSES  "  ,  Nm_ac._l  ost.  stK  <  *  > 

9 1 80  PRINT  USING  Fmt 1 r 3; "TOTAL  AIRCRAFT  LOST  TO  ADA  “ . Nm.ac _ 1 ost _ada ( * ) 

9190  PRINT  USING  Fmt 1 r3; “AIRCRAFT  AVAILABLE  FOR  COMBAT  “ , Nm.ac.avl.stk (*) 

9200  PRINT  USING  Fmt 1 r 3; " AI RCRAFT  AVAILABLE  FOR  EGRESS  ",  Nm.ac  ,_avl  _egr  (*  ) 

9210  PRINT  USING  Fmtlr4;“TYPE  <  1-70,  F'OL,  AMMO)" 

9220  PRINT  USING  Fmtl r5; "TOTAL  TARGET  ELEMENT  LOSSES  " . Nm_el mt _ 1 ost.ac ( * > 
9230  PRINT  USING  Fmtl r2; “UNIT_ID" 

9240  PRINT  USING  Fmt 1 r 6 ; "UN ITS  REMAINING  FOR  UPDATE  " , Un 1 1 _i d_20_ 1 50 < * ) 

9250  ' 

9260  Fmtlr 1 : IMAGE  20X,4A,25A 

9270  Fmtlr2: IMAGE  /,42X,10A,/ 

92S0  Fmtlr3: IMAGE  30A. 4 <2X , 4D . ID) 

9290  Fmtlr 4: IMAGE  /.34X.24A,/ 

9300  Fmtl r 5:  IMAGE  30A, 1 <4  <2X , 6D. ID) . /> , 17<30X,4(2X.6D.  ID) , /) 

9310  Fmtlr6:  IMAGE  30A,  1  ( 4 < 3X , 3D) , / ) , 5 <30X , 4 <3X , 3D)  . / ) 

9320  > 

9330  RETURN 
9740  1 

9350! ************************************************************************** 

9360 ! 

9370  Li st  total s : ' 

9380  ! 

9390  Fi le*=Status_clr*.V’_AIR_INF" 

9400  ASSIGN  GPath  TO  Fi 1 : HP9 1 34, 70 1" 

9410  ENTER  lifath,  1  ;  T1 _ac_f 1 t.i ng  < * )  .  T1  _ac  _f  1  t_<?gr  (  *  >  .  T1  _ac_T  1  t.stF  <*>  .  T1  _ac„  1  o 
t..  ng  <*  >  ,  T1  _ac_l  ost.egr  (*)  ,  T1  .ac.  1  ost  _stt  (*)  .  T1  _ac_l  ost.ada(i)  .  T1  .elrat.ac  <  *> 
9420  ASSIGN  i?Path  TO  * 

9430 ! 

9440  PRINT 
9450  PRINT 

9460  PRINT  USING  Fmt 1 t 1 : St atus.Frc.c 1 r * ; "  AIR  ACCUMULATIVE  RESULTS" 

9470  PRINT  USING  Fmt 1 t 2 ; "TYPE  (1-4)" 

9480  PRINT  USING  Fmt 1 t3 ; "TOTAL  AIRCRAFT  INGRESS  FL I GHTS" . T 1 _ac_T 1 t _i ng < * ) 

9490  PRINT  USING  Fmt 1 t 3 ; “TOTAL  AIRCRAFT  EGRESS  FLIGHTS" . T1 .ac.t 1 t.egr (* > 

9500  PRINT  USING  Fmt  1 13:  " TOTAL  AIRCRAFT  STRIKES  "  .  T1  _ac_-f  1  t.stM  *  ) 

9510  PRINT  USING  Fmt 1 t3; "TOTAL  AIRCRAFT  INGRESS  LOSSES  " . T1 _ac_l ost_i ng ( » > 

9520  PRINT  USING  Fmt 1 t3; "TOTAL  AIRCRAFT  EGRESS  LOSSES  " . T1 _ar.lost.egr (*) 

9530  PRINT  USING  Fmt  1 13;  "TOTAL  AIRCRAFT  STRIKE  LOSSES  "  ,  T 1  .ac.  1  ost _s 1 1;  <  *  ) 

9540  PRINT  USING  Fmtl t3; "TOTAL  AIRCRAFT  LOST  TO  ADA  " . T1  ac. 1 ost.ada < * ) 

9550  PRINT  USING  Fmt 1 t4 ; "TYPE  (  1-70,  AMMO,  POL)" 

9560  PRINT  USING  Fmt 1 t5; "TOTAL  TARGET  ELEMENT  LOSSES  " . T1 _el mt _ac < * ) 

9570  • 

9580  Fmtltl: IMAGE  20X,4A,25A 

9590  Fmtlt2: IMAGE  /,42X,10A./ 
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9600  Fmtlt3: IMAGE  30A. 4 < 2X . 3D. 1 D > 

9610  Fmtlt4: IMAGE  /.34X.24A,/ 

9620  FmtltS: IMAGE  30A. 1  <4  <2X , 3D. ID) . / ) .  17(30X, 4 <2X , 3D. ID) . / ) 

9630  ! 

9640  RETURN 
9650! 

9660! ***********************t ***********************************  *******  ******  * 
9670! 

9680  Menu_sel ection: ! 

9690 ! 

9700  PRINT  USING  "///" 

9710  PRINT  "DIME  AIR  DEFENSE/AIR  ATTACK  MENU:  SELECT  OPTION" 

9720  PRINT  "  <1>  ”;Frc_clr$; "  AIR  INGRESS" 

9730  PRINT  "  (2)  ":Frc_clrt:"  AIR  EGRESS" 

9740  PRINT  "  (3)  ":Frc_clrS;"  AIR  STRIKE" 

9750  PRINT  "  <4)  STATUS  REPORT" 

9760  PRINT  "  (5)  UPDATE  RESULTS" 

9770  PRINT  "  (6)  EXIT  AIR  DEFENSE  MODULE" 

9780  INPUT  Menu_optn 
9790  ! 

9800  SELECT  Menu_optn 
9810  CASE  1 
9820  PRINTER  IS  702 

9830  PRINT  USING  "i?" 

9840  PRINTER  IS  1 

9850  Option*=" INGRESS" 

9860  FI ight*=" INGRESS" 

9870  CASE  2 

9880  PRINTER  IS  702 

9890  PRINT  USING  "t?" 

9900  PRINTER  IS  1 

9910  Opt i on*= " EGRESS " 

9920  Flight*="EGRESS" 

9930  CASE  3 

9940  PRINTER  IS  702 

9950  PRINT  USING  "I?" 

9960  PRINTER  IS  1 

9970  Opt i on*="STR I KE" 

9980  FI i ght*= "STRIKE" 

9990  CASE  4 

lOOOO  Op t i on *=” STATUS" 

10010  CASE  5 

10020  Opt i onS=" UPDATE" 

10030  CASE  6 

10040  Opt i on *= "EX  IT" 

10050  CASE  ELSE 
10060  Option*="ERROR” 

10070  END  SELECT 
1 0080  1 
10090  RETURN 
10100' 

101 10! t**************************************** ********************* ********* 
* 
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10170' 

10130  Sel ect_ada_i nto:  ! 

10140! 

10150  FOR  X= 1  TO  7 
1 0 1 60  Nm_ada_wpn ( X ) =Un l t ( X  +47  > 

10170  NEXT  X 
10180  ! 

10190  T1  _ada_tons_f rd=0 
1 0200  Ada_tons_avl =Un i t (1 33) 

10210  CALL  Check _var  < "UNIT (80) " .Uni  t (80) .0. , 100. 100) 

10220  Ada_suprsn_pct=Uni t (80) 

10230  CALL  Check_var ( "UNIT (75) " . Uni t (75) .1,4) 

10240  Uni t_posture=Uni t (75) 

10250  CALL  Check _var ( "UNIT (78) ",  Uni t (78) . 1 . 0. 2. 9) 

10260  Un i t_c 1 r _type=Un i t ( 78 ) 

10270  ! 

10280  'UNPACK  UNIT  TYPE  AND  COLOR 
10290  Clr=INT(Unit_clr_type> 

1 0300  Unit _t y pe=Un i t _c 1 r _t ype-C  1  r 
10310  Uni t_type=Uni t _t ype* 1 0+ 1 
1 0320  ! 

10330  ! RESET  DETECTION  STATUS 

10340  Unit (91) =3. 2 

10350  IF  Un i t (92) < =3  THEN 

10360  Unit (92) =3 

10370  END  IF 

10380  ! 

10390  RETURN 
10400 ( 

1 04  ****************************  *»***»»* 

* 

10420 ! 

10430  Sel ect_prmtrs: ! 

10440 ! 

10450  IF  Frc_clr*="BLUE"  THEN 
10460  SELECT  Ac_type 
10470  CASE  1 
10480  Acpr i nt*=" A10" 

10490  Ai rcr aft S=" A 10" 

1 0500  CASE  2 

10510  AcprintS="F16M 

10520  Aircraft*="F16" 

1 0530  CASE  3 

10540  Acpr i r t*=" AH- 1 " 

10550  Aircraf tS="AH64” 

1 0560  CASE  4 

10570  Acpr i nt*="0H58" 

10580  Aircraf t*="0H5B" 

10590  END  SELECT 
10600  ELSE 

10610  SELECT  Ac_type 
10620  CASE  1 
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10630  Acpr  1  nt*="SU25" 

10640  Aircraf t*= "M28" 

1 0650  CASE  2 

10660  Acpr l n t*  = "M 1 27" 

10670  Ai  rcr  a-f  t*  =  "M27“ 

10680  CASE  3 

10690  Acpr i nt*= "HIND" 

10700  Aircra'ft*»"HIND“ 

10710  CASE  4 

10720  Acprint*="HIP" 

10730  Aircra*t*="HIP" 

10740  END  SELECT 

10750  END  IF 

10760  ! 

10770  SELECT  Flight* 

10780  CASE  "INGRESS" 

10790  FI t*=" ING" 

10800  CASE  "EGRESS" 

10810  Flt*«"EGR" 

10820  CASE  "STRIKE" 

10830  SELECT  Ac_mis5ian 
10840  CASE  1 
10850  Flt*»"8RG" 

1 0860  CASE  2 

10870  FI t*=" ARMOR" 

10880  CASE  3 

10890  Flt*="PRSNNL" 

10900  CASE  4 
10910  Flt*="POL" 

10920  CASE  5 
10930  FI  t**="  AMMO" 

10940  END  SELECT 
10950  END  SELECT 
10960! 

10970  SELECT  Tgt_pasture 
10980  CASE  1 

10990  Activity***"  ATTACK" 

l 1000  CASE  2 

11010  Activity***"  DEFEND" 

11020  CASE  3 

11030  Acti vity*="RESERVE” 

11040  CASE  4 

11050  Activity**"  MOVE" 

11060  END  SELECT 
1 1070! 

11080  SELECT  Tgt_type 
1 1090  CASE  0 

11100  Tgt  type*”"  COMBAT" 

11110  CASE  T 

11120  Tgt_type*”"  ARTY" 

11130  CASE  2 

11140  Tgt_type«**"  ADA" 
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11150  CASE  3 

11160  Tgt_type$="  FARP" 

11170  CASE  4 

11180  Tgt  type* = "  CP/HQ" 

11190  CASE  5 

11200  Tgt_typeS="  ENGR" 

11210  CASE  6 

11220  Tgt_typeS=" POL /AMMO" 

11230  CASE  7 

11240  Tgt_type*»"  MAINT" 

11250  CASE  8 

11260  Tgt_type*="  BRIDGE" 

11270  CASE  9 

11280  Tgt_type*="COMMO/EW" 

11290  END  SELECT 
1 1300! 

11310  RETURN 
11320! 

1 1330! t$$tt$*t$t*t»$t»$$**t$*»$*t$t»*»***»t**$$**t*$*t*********** ************** 
* 

11340! 

11350  Select_stk_in-fo:  ! 

1 1 360 ! 

11370  Nm_vehicles=0 
11380  Nm_irvf «ntry=0 
11390  FOR  1=1  TO  Nm_un its 
11400  FOR  J  =  1  TO  70 

11410  Nm_elmt  tgt(J)=Nfn  elmt  tgt(J)+Unit  store  5  15  ( I ,  J  >  *Tat_e>:psr  -frc(I) 

11420  NEXT  J 

1 1430  Nm_el  mt_tgt  <7*1 )  =Nm_elmt_tgt  (71 )  -t-Uni  t_store_5_15  ( 1 ,  105)  *Tat_e>:psr  _-f  r  c  (  I  ) 
11440  Nm_el  mt_tgt  (72)  =Nm_el  mt _tgt  ( 72)  -t-Uni  t_stor e_5_  15  (1,1 25)  *Tgt_expsr_(rc  (  I  ' 
11450  T1 _ada_tons*Tl  ada_tons+Un j t_store_5  15 ( I , 133) *Tgt_expsr_+rc ( I ) 

11460  ! 

11470  Supr sn_f rc_ 1 = I NT (Uni t _stor e_5_l 5 ( I , 80) ) 

1 1480  Suprsn_-frc_2=Uni  t _store_5_  15 ( 1 , 80)  -Suprsn_trc_l 

1 1490  Suprsn_-f  rc_l=Suprsn_+  rc_l  /  100 

1 1500  T1 _suprsn_l=Tl _suprsn_l+Suprsn_trc_l 

1 1510  T1 _suprsn_2=Tl _suprsn_2+Suprsn_trc_2 

11520  NEXT  I 

11530  ! 

1 1540  T1 _suprsn_l=Tl _suprsn_l/FNMax (Nm_uni ts, . 0000001 > 

1 1550  T1 _suprsn_2=Tl _supr sn_2/FNMax (Nm_units, . 0000001 ) 

1  1560  Ada_suprsn_pct  =  100*Tl  _suprsn_lt-Tl  _suprsn_2 
11570  ! 

11580  SELECT  Tgt_posture 

11590  CASE  1,4 

11600  FOR  J«36  TO  40 

11610  Nm_i nf  antr y«=Nm_el  mt _t gt  ( J  )  +Nm  in-fantry 

11620  NEXT~J 

11630  FOR  J=16  TO  20 

1 1640  Nm_vehi cl es=Nm_el mt_tgt ( J ) +Nm_vehic 1 es 

11650  NEXT~J 
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11660  FOR  J=1  TO  5 

11670  I  n-f  =J  +35 

llr^Srln<  <J)=Nm_elmt_tgt  (Irvf  >  /FNNax  (Nm  infantrv.l) 

1 1 o^Q  NEXT  J 

1  1700  Mount_rat  i  o=Nm_i  n-f  antry/FNMax  (Nm_vehi c 1 es .  1  > 

11710  Mount_r ati o=FNMi n (Mount  ratio. 8) 

11720  FOR  J=1  TO  5 
11730  Inf =J+35 

11740  Nm_el  mt_tgt  (Inf)  =FNMa>;  <Nm_i  rvf  antr  y-Nm_vehi  c  1  esfMount  _r  at  i  o.OHFrac:  j  n 

1 1750  NEXT  J 
11760  END  SELECT 
1 1 770  ' 

11780  FOR  X=1  TO  7 

11790  Nm_ada_wpn < X ) =Nm_el mt  tgt(X+47) 

11S00  NEXT  X 

1 1 8 1  Ada_tons  avl  =  T1  _ada_tons 
11820  ! 

1 1 830  FOR  1=1  TO  72 

11840  Nmel  mt_le-ft(I)  =Nm  elmt  tot  ( I  > 

11850  NEXT  I  ~ 

1 1860' 

1  1880' 

11890  Sel ec t _un l t s : ‘ 

1  1 900 ' 

1191(.>  FOR  I  =  i  TO  Nm_units 
11920  Uni t_i d_ptr=0 
11930  Cnt=0 
11940  REPEAT 
11950  Cnt=Cnt+l 

11960  IF  Uni t _i d_20_150 (Cnt ) =Uni t_i d ( I >  THEN 

1 1970  Uni t_i d_ptr=Cnt 

11980  FOR  J=l  TO  150 

11990  Umt_store_5  15(  I,  J)  “Unit  store  20  15(Cnt.J> 

1200O  NEXT  0  _  _  . 

12010  END  IF 

12U20  UNTIL  Cnt  >=Nm_uni t  s_p 1 ayed  OR  Uni t_i d  20_150 ( I ) =Uni t  id(I) 

1 2U3U  ?  — 

12040  IF  Uni t_i d_ptr=0  THEN 

12050  ASSIGN  Ppath  TO  "UNITF ILE : HP9134, 701 " 

12060  ENTER  6‘Path,Unit  id(I>;Unit  info(*> 

12070  ASSIGN  i?Path  TO  * 

12080  FOR  0=1  TO  150 

12090  Uni t _stor e_5_  1 5 ( I , J  >  =Uni t  info(J) 

121 oO  NEXT  J 

12110  END  I F 
12120  NEXT  I 
1  2 1 30 

1214(.i  FOR  I  =Nm_un  i  t  s  + 1  TO  5 
12150  FOR  J=i  TO  150 


1 2040 
1 2050 
1  2060 
1  2070 
1 2080 
1  2090 
1  2 1 00 
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12160 
12170 
1  2 1 80 
1  2  1  90 
1  2200 
1 22 1 0 
1  2220 
* 

1  2230 
1  2240 
1 2250 1 
1  2260 
12270 
12280 
12290 
1 2300 
12310 
12320 
1  2330 
12340 
1  2350 
12360 
1  2370 
12380 
1  2390 
124  00 
12410 
12420 
12430 
1  2440 
12450 
12460 
1  2470 
1  2480 
1  2490 
1  2500 
12510 
1  2520 
1  2530 
1 2540 
1  2550 
1 2560 
1  2570 
12580 
1  2590 
1  2600 
1  2610 
1  2620 
1  2630 
12640 
1  2650 
12660 
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Umt._store  5_  15  ( 1  .  J  )  =0 
NEXT  J 
NEXT  I 

I 

RETURN 

********************************************* **************************** 


Statu5_report:  ! 

Nmopt i on=0 
WHILE  Nm_option<>7 
PRINT 
PR  I  NT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
( 

SELECT  Nm_option 
CASE  1,2. 3, 4, 5, 6 
REPEAT 
PRINT 

PRINT  “DISPLAY  RESULTS  ON  PRINTER  OR  SCREEN0  (P/S)" 
INPUT  Answer* 

UNTIL  Answer*="P"  OR  Answer*="S" 

IF  Answer*="P"  THEN 
PRINTER  IS  702 
PRINT  USING  "P" 

END  IF 
END  SELECT 

I 

SELECT  Nm_option 
CASE  1 

GOSUB  Llst_results 
CASE  2 

Status_clr*=" BL" 

Status_Irc_clr*= "BLUE " 

GOSUB  List_totals 
CASE  3 

Status_cl r*="RD" 

Status_f rc_clr *="RED“ 

GOSUB  List_totals 
CASE  4 

GOSUB  Li st_debng_uni t 
CASE  5 

GOSUB  Li st_debug_f 1 t 


"STATUS  REPORT  MENU:  SELECT  OPTION" 

"  (1)  LIST  CURRENT  RESULTS" 

"  <2>  LIST  BLUE  AIR  ACCUMULATIVE  RESULTS" 

"  <3>  LIST  RED  AIR  ACCUMULATIVE  RESULTS" 

"  <4)  LIST  DEBUG  UNIT  INFORMATION" 

"  (5)  LIST  DEBUG  FLIGHT  INFORMATION" 

"  (6)  LIST  DEBUG  STRIKE  INFORMATION" 

"  (7)  EXIT" 

Nm_opt l on 
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12670  CASE  6 

12680  GOSIJB  Li  st  debuq  stl: 

12690  CASE  7 

12700  CASE  ELSE 

12710  BEEP 

12720  END  SELECT 

12730  PRINTER  IS  1 

12740  END  WHILE 
12750  f 
12760  RETURN 
12770' 

1 2790 'tttttttt***************** ****************************************  ******** 

* 

12790! 

12800  Store_resul  ts:  ' 

12810! 

12820  FOR  1=1  TO  Nm  units 
12830 
12840 
12850 
12860 
12870 
1 2880 
12890 
1 2900 
12910 
12920 
1  2970 
12940 
1 2950 
12960 
12970 
1 2980 
12990 
1 3000 
13010 
13020 
13030  NEXT  I 
1 3040  ! 

13050  RETURN 
1 3060 ! 

1 3070  '.*************************************************************************■> 
* 

1 3080 • 

13090  Str i ke_apor t i on : 1 
13100! 

13110  Mount_l oss_tot=0 

13120  ! LOOP  TO  APPORTION  INFANTRY  LOSSES 

13130  FOR  1  =  1  TO  Nm_umts 
13140  Mount_l osses=0 

13150  'TAKE  INFANTRY  ON  GROUND  OUT  FIRST 
13160  FOR  J=1  TO  5 


Uni t_i d_ptr =0 

Cnt=0 

REPEAT 

Cnt=Cnt-*-l 

IF  Uni t_id_20_150 (Cnt > =Uni t_id < I )  THEN 
Uni t_id_ptr=Cnt 
FOR  J=1  TO  150 

Uni  tstore_20  15  ( Cnt  .J>=Unit_store_5_l5<I.J> 

NEXT  J 
END  IF 

UNTIL  Cnt >=Nm_uni ts_pl ayed  OR  Uni t _i d_20_ 1 50 ( Cnt ) =Uni t _i d < I > 

IF  Uni t_i d_ptr=0  AND  Nm_uni ts_pl ayed<20  THEN 
Nm_uni  ts_pl  ayed=Nm_uni  ts_pl  ayed+-l 
Cnt=Nm_uni ts_pl ayed 
FOR  J=1  TO  150 

Uni tstore_20_15 (Cnt . J ) =Uni t_store_5_15 ( I . J ) 

NEXT  J 

Uni t_id_20_150 (Cnt ) =Unit_id ( I ) 

END  IF 
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13)70  I  nf  =J  +35 

1  3180  Frct=Um  t_store_5_15  <  I  .  In-f  )  *Tqt_expsr_f re  (  I  >  /FNMax  '  Nm  veh 1  cl  estMount 

atio*Frac_inf  <  J ) +Nm_el mt_tgt <  Inf ) , . 0000001 >  ! RESTORE  DENOMINATOR  TO  REPRESENT 

13190  !  INFANTRY  BEFORE  MOUNTING 

13200  Uni  t_store_5_15  ( I  .  In-f  )  =Uni t_store_5_l 5  < I ,  In-f  >  -Fret  *Nm_el  mt  1  ost_f  1  (It 

) 

13210  NEXT  J 

13220  ! NOW  REMOVE  PERSONNEL  LOSSES  FROM  VEHICLES 

13230  SELECT  Tgt_posture 

13240  CASE  1,4 

13250  Perrsnl=0 

13260  FOR  J= 1 6  TO  20 

13270  Frct=Unit_store_5_15(I,J)  *Tgt  _expsr  _f  r  c  ( I )  /FNMa>:  (Nm_elmt_tgt  (J)  .  .  no 

000 1 ) 

13280  V_1 ost _uni t=Fr ct *Nm_el mt _1 ost _f 1 (J) 

1  3290  Perrsnl  =V_1  ost_un i  t  *  Mount  _r  at  i  o+Perrsnl 

13300  NEXT  J 

13310  Tot_uni  inP=0 

13320  FOR  J  =36  TO  40 

13330  Tot_uni  _i  n-f  =Tot_uni  i nf +Uni t _store_5_ 1 5 < I , J > 

13340  NEXT  J 

1  3350  Per  r  sn  1  =FNMi  n  ( T ot  _uni  _i  n-f  ,  Perr  sn  1  ) 

1 3360  Mount_l osses=Mount_l osses+Perrsnl 

13370  FOR  J=1  TO  5 

13380  I  n-f  =J  +35 

13390  Uni  t_store_5_  15  ( I .  I  n-f  )  =Uni  t_store  5_  1 5  <  I  .  I  n-f  ) -Per  r  sn  1  *Fr  ac  inf  (J) 

13400  NEXT  J 

13410  END  SELECT 

1 3420  Mount _1 oss_tot=Mount_l oss_tot+Mount_losses 

13430  NEXT  I 

13440  FOR  J=1  TO  5 

13450  Inf=J+35 

13460  Nm_elmt  1 ost_f 1 < Inf > =Nm  el mt_l ost _f 1 ( I nf ) +Mount _1 oss_t ot *Fr ac _ t nf < J ) 
13470  NEXT  J 

13480  FOR  1=1  TO  Nm_units 
13490  FOR  J=1  TO  70 

1 3500  Frct=Uni  t_store_5_15  ( I ,  J)  *Tgt  e>: psr _f  r c  ( I  >  /FNMax  (Nm_el  mt  _tgt  ( J  )  .  .  0000' 

01) 

13510  IF  J >35  AND  J<41  THEN  13530 

13520  Unit  store_5_ 1 5 ( I , J ) =Uni t _stor e_5_ 1 5 < I , J > -Fret *Nm_el mt _ 1 cst _ f 1 (3) 

13530  NEXT  J~ 

1 3540  Fr  ct=Un  i  t  _stor,e_5_  15  <  1 ,  105)  *Tgt_expsr_frc  ( I  )  /FNMax  <  Nm_  elmttat  <71  )  .  .  OO0<‘ 
001) 

1 3550  Uni t _stor e_5_l 5  <1,1 05 ) =Uni t_st or e_5_15  <1,1 05) -Fr ct  *Nm_el mt  lost  fl  (71) 

1 3560  ! 

1  3570  Frct=Uni t_store_5  15<I, 125) *T gt_expsr _f rc ( I ) /FNMax  <Nm_el  mt  tat (72) . . OOOc 
OO 1  ) 

13580  Unit  store_5_15 ( I , 1 25) =Uni t_store_5  1 5 < I , 1 25) -Fr c t *Nm_el mt  lost_fl<72) 

1 3590  1 

1 3600  Fret =Uni t _stor e_5_ 1 5 < 1 , 133) *Tgt_expsr_frc  < I ) /FNMax < T1  ada  t ons.  . 0000001 ' 

13610  Uni  t_store_5_  15  <  1 ,  133)  =Uni  t  _stor  e_5_  15(1.  133)  -Fret  *T1  ada_t.ons_f  rij 

1 3620  1 
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1 3630 
13640 
13650 
1 3660 
1 3670 
1 3680 
1 3690 
1 3700 
13710* 
13720! 
* 

1 3730 ! 
1  3740 
13750! 
13760 
13770 
1 3780 
13790 
13800 
13810 
1 3820 
1 3830 
13840 
1  3850 
1  3860 
13870 
1  3880 
1  3890 
1  3900 
13910 
13920 
1  3930 
1  3940 
1  3950 
1 3960 
1 3970 
1 3980 
1 3990 
1 4000 
14010 
1  4020 
1 4030 
1  4040 
1  4050 
1  4060 
1 4070 
1  4080 
1  4090 
1  4 1  CiO 
14110 
14120 
14130 
left) 


Unit  _st  or  e_5_  15(1.  141)  =Un  i  t  _st  or e_5_  15  0, 141  )-»Frct*T)_ada_tons_-frri 
Uni  t_store_5_15 ( I , 91 ) =3. 2 
IF  Uni  t_store_5_15 < I , 92) <*3  THFN 
Uni  t_st.ore_5_15  <  1,92)  =3 
END  IF 
NEXT  I 

I 

RETURN 

************  ************************* ************************************ 


Str i ke_atr i t i on : ! 

Break  _poi  nt=N<n_ac  _i  nput  *Ac_br  kpt  _-f  r  c 

Ac_l oad=0 

T1 _ac_passes=0 

R4=0 

REPEAT 

Ac_l oad=Ac_l oad  +  1 
Ac  _pass=0 

GOSUB  Str i ke_prof  1 1  e 
GOSUB  Strike_in-fo 
PRINT 
REPEAT 

Ac_pass=Ac_pass+l 

T1 _ac_passes=Tl _ac_passes+l 

T_sub_pass=0 

Nm_ac_l  e-f  t  l=Nm_ac_l  e-f  t 

IF  Nm_ac_le-f  t<  .  1  THEN  Strk_apport  ' 

Tac_l ast_pass=0 

GOSUB  Cal c_sub_pass 

REPEAT 

T_sub_pass=T_sub_pass+l 
GOSUB  Cal c_ada_supr sn 
1  SET  PLOS  FOR  ADA  HAND  HELD  ROUNDS 
Plos=T_plos (Terr ( 1 ) ) 

GOSUB  Cal c_ada_rnds 
GOSUB  Calc  ac  losses 


SELECT  Wpn_load  code 
CASE  1 

GOSUB  Calc_area  loss 
CASE  2,3 

GOSUB  Cal c_poi nt _1 oss 
CASE  ELSE 
BEEP 

PRINT  "**ERROR:  IN  WPN_LOAD_CGDE  FOR  "  5  Fi  1  eS?<Di  sk* 

END  SELECT 

Tac_l ost_pass=Tac _1 ost _pass+Nm_psa_ac  lost 
UNTIL  T_sub_pass>=Nm_sub_pass  OR  Nm_ac _ 1 ost _ f 1 t  ‘ :  =Br eak _poi nt  OR  (Nm_a 
-Tac_)ost_passX.  1 
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14140  Nm_ac_l  e-f  t  =FNMa>:  ( 0 .  Nm _  ac_ 1  e+  t  l-Tac_lost_pass) 

14150  Nm_psa_ac  _1  ost=FNMi  n  (  Nm  ac  1  e-f  t  1  ,  Tac  _1  ost ;  _pass  ) 

14160  I 

14170  PRINT  USING  Fmt_sal ; "DELIVERY  PROFILE:  "•.Filet:"  PASS  ":Ac_paf.s:" 

:Acprint*;M  LOST  11 ;  Nm_psa_ac_l  ost 
14180  PRINTER  IS  702 

14190  ! PRINT 

14200  PRINT  USING  Fmt  _sa  1 ;  "DEL  I  VERY  PROFILE:  ":File*:"  PASS  ";Ac_pas=:'' 

sAcprint*;"  LOST  ” ; Nm_psa_ac_l ost 

14210  IF  Brgg=0  THEN  GOTO  14300 

14220  ! IF  8rgg= 1  THEN  GOTO  14270 

14230  'IF  Brgg=2  THEN  GOTO  14250 

14240  IF  Destroy= 1  THEN 

14250  ! PRINT  "BRIDGE  DESTROYED”1  THE  SEED  IS".R3 

14260  Destr oy=2 

14270  ELSE 

14280  'PRINT  "BRIDGE  NOT  DESTROYED"!  THE  SEED  IS".R3 

14290  END  IF 

14300  PRINTER  IS  1 

14310  UNTIL  Ac_pass >=Nm_ac_passec  OR  Nm  ac  1  ost  _-f  1 1  >=Br  eak  point  OR  Nm_ac_le~ 
C  .  1 

14320  UNTIL  Ac  _1  oad  >=Nm_wpn_l  oads  OR  Nm_ac_l  ost_-f  1 1  >=Break  point  OR  Nm_ac_le+t 
1 

14330  Strk_apport:  1 
14340  GOSUB  Strike  aportion 
1 4350  1 

14360  IF  Nm_ac  lost  -flt-Break  point  AND  Ac  1  oad<  Nm_wpn_l  oads  THEN 
14370  PRINTER  IS  702 
14380  PRINT 

14390  PRINT  Frc_c lrt:  "  ATTACK  DISCONTINUED  DUE  TO  EXCESSIVE  "sficpnntt;”  LOSS 
S  " 

14400  PRINTER  IS  1 
14410  END  IF 
14420  ! 

14430  Fmt_sal : IMAGE  20 A, 9A , 7A , 3D , 10X , 1 A , 5A, 7 A, 5D. D 
14440  RETURN 
1 4450 ' 

1 4460 !*********#*********t**********#***********:M********************»******** 
* 

14470' 

14480  Stri ke  data:  ! 

14490' 

14500  GOSUB  Strike_init 
14510  GOSUB  Sel  ect._prmtr  s 
14520  GOSUB  Select_units 
14530  GOSUB  Select  stk_irrfo 
14540  ' 

14550  Fi  1  e*=Ai rcr a-f t«V _ "&F It* 

14560  ON  ERROR  GOSUB  File_error_2 
14570  ASSIGN  (j'Path  TO  File*!<Disk* 

14580  OFF  ERROR 
14590  PRINTER  IS  702 
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14(bOO  GOSUB  Strike_outpi.it 
14610  PRINTER  IS  1 

14620  ENTER  li'Path .  1 ;  Nm_wpn_l  oads .  Wpn_l  d_templ  atet  (  *  1 
14630  ASSIGN  li'Path  TO  * 

14640  1 

14650  Fi  le*=Clr*S<"_UN_AREA" 

14660  ASSIGN  li'Path  TO_Fi  1  e*!<Di  sk* 

14670  ENTER  li'Path ,  1 ;  Uni  t_type_area  <*  > 

14680  ASSIGN  H>Fath  TO  * 

1 4690  f 

14700  Fi  le*=Clr*?<"_AC_TGWT" 

14710  ASSIGN  li'Path  TO_Fi  1  e*!<Di  sk* 

14720  ENTER  li'Path  .  1 ;  Ac_ms_tgt_wts  (*  ) 

14730  ASSIGN  li'Path  TO  * 
i 4740  ! 

1 4750  RETURN 
14760! 

1 4770  !*******************#****************»*****************************  ******* 

* 

14780 1 

14790  Str  1  ke_i  n-f  o:  1 
14800 ! 

14810  IF  Wpn_l oad_code>=2  THEN 

14820  Di  visor=FNMa>:  ( Ac_pdtc_prn_tgt  ( Tgt _postur e )  .  .<'.'000001' 

14830  Nm_ac_passes=FNMi n  < Mi n_ac_passes/Di vi =or .  1 . 3*Min_ac_passe=) 

14840  Nm_ac_passes=INT (Nm_ac_pas5es+.  5> 

14850  ~ 1 

14860  IF  Tgt_posture<=2  THEN 

1  4870  Ac_tgt_pk  <7>=Ac_tqt_pk  (7)  *Prsnl_-fxhl_'frc 

14880  FOR  X=36  TO  47  • 

1 4890  Ac_t gt  _pk  <X)=Ac_tgt_pk  (X)  tPr.snl  _txhl_-frc 

14900  NEXT  X 

1  4P 1 0  Ac _tgt _p k  (53 )  =  Ac_tgt _pk  <53 >  *F'rsnl_-fxhl_trc 

14920  Ac_tgt_pk  (54)  =Ac_tgt_pk  (54)  tPrsnl  _fxhl  _f rc 

14930  IF  Frc_clr*="BLUE"  THEN 

14940  Ac_tgt_pk <8> =Ac_tgt_pk (8) *Prsnl _f xhl _frc 

14950  FOR  X=28  TO  31 

1 4960  Ac_tgt_pk  (  X )  =Ac_tgt_pk  (X)  *Prsnl_txhl  _  f  r  c 

14970  NEXT  X 

14980  END  IF 

14990  END  IF 

15000  ELSE 

1 5010  Nm_ac_passes=Mln_ac_pai.ces 
15020  END  IF 
1 5030  1 

15040  RETURN 
1 5050 ' 

1 5060 !**************$***«*******»******************************************:>***» 

1 5070 ' 

15080  Str 1 ke_i ni t : 1 
1 5090  • 

151 00  Ac_br kpt _  +  r c=Ac _brkpt_pct/l OO 
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151 10 
15120 
1 5 1 30 
15140 
151 50 
15160 
15170 
15180 
15190 
15200 
15210 
1 5220 
15230 
15240 
15250 
15260 
15270 
15280 
15290 
15300 
1 53 1 0 
15320 

1 5330 !*************  X  **********  x  ********************  x  ******************  x  ********  > 
1 5340 1 

15350  Str i ke_i nput : 1 
15360! 

15370  Destroy=0 
15380  PRINT 
15390  PRINT 

15400  PRINT  "  INPUT  THE  FOLLOWING  INFORMATION  FOR  A  ";Frc_clr*:"  AIR  STRIKE" 
15410  PRINT 

15420  PRINT  USING  Fmtsi ; "TOTAL  A/C  AVAILABLE  FOR  COMBAT: ", Nm_ac.avi _stk <* > 

15430  PRINT 

15440  PRINT  "ENTER:  *  OF  A/C,  A/C  TYPE.  A/C  MISSION.  A/C  BREAKPOINT.  TGT  7.  IN  OP 
EN" 

1 5450  INPUT  Nm_ac_i  nput ,  Ac_type .  Ac_(nissi  on  , Ac_brkpt_pct,  Tgt_pct _open 
15460  'IF  Ac_mi ssl on=l  THEN  INPUT~"WHAT  IS  THF  SEED",R3 
15470  CALL  Check_var < "A/C  TYPE " , Ac _t ype , 1 . 4 ) 

15480  CALL  Check_var ( "AC  MI SS ION" , Ac_mi ssi on . 1 , 5) 

15490  CALL  Check_var  <  "A/C  BREAKPOINT  7."  ,  Ac_brkpt_pct ,  0,  1 00) 

15500  CALL  Chec'  _var ( "TGT  V.  IN  OPEN" . Tgt _pct _open , 0, 1 00 > 

15510  ' 

15520  PRINT 

15530  PRINT  "ENTER:  TYPE  OF  STRIKE  —  CAS  OR  BAI  (INPUT  1  OR  2)" 

15540  INPUT  Cas_bai 

15550  CALL  Check_var ( "TYPE  OF  STRIKE  (CAS  OR  BAI ) " , Cas_bai . 1 . 2) 

15560  PRINT 

15570  PRINT  "ENTER:  EXPECTED  DENSITY  OF  AD  —  HIGH  OR  LOW  (INPUT  1  OR  2)" 

15500  INPUT  High_low 

15590  CALL  Check_var ( "EXPECTED  DENSITY  OF  AD" . Hi gh_l ow. 1 . 2> 

1 5600  ! 

15610  PRINT 


Tgt_F rc_open=Tgt_pct_open/ 1 00 

Tgt_-f  rc_woods=l  -Tgt_-frc_open 

A1 1  i  tude_ineters-5O0 

Nm_ac_l  e-f  t=Nm_ac_i  nput 

Uni t_type=Tgt_type+l 

Uni t_postur e=Tgt_postur e 

FOR  1=1  TO  Nm_units 

Tgt_expsr_-f rc  (I )  =Tgt_e>:psr_pct  (  I  )  /  lOO 
NEXT  I 
1 

T1 _ada_tons=0 
T1  _ada_tons_-f  rd=0 
Nm_ac_rost_-f  1 1=0 
T1 _suprsn_l=0 
Tl_auprsn  2=0 
FOR  1=1  TO  72 

Nm_el mt_l ost_f 1 ( I ) =0 
N<n_elmt  tgt(I)=0 
NEXT  I 

I 

RETURN 
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15620  PRINT  "ENTER:  TGT  LENGTH.  TGT  WIDTH.  TGT  POSTURE.  TGT  TYPF.  #  OF  TGI  in,]' 

1 5630  INPUT  Tgt _1 engt  h . Tgt_width. Tgt_posture, Tgt_type, Nm_un l t s 
15640  CALL  Check _ var ( “ TGT  POSTURE ", Tgt _posture, 1 . 4 > 

15650  CALL  Check _ var ( "TGT  TYPE" , Tgt _type . 0, 9 ) 

15660  CALI.  Unit  rearHFrc  clr$.Nm_units,Unit  i  d  (  *  >  ,  Ter  r  (  *  >  ) 

15670  1 

15680  IF  Nm_uni ts  0  THEN 
15690  PRINT 

15700  PRINT  "ENTER:  PERCENT  OF  UNIT  IN  TARGET  AREA  FOR  EACH  UNIT_ID" 

15710  INPUT  Tg t  _  e>:  psr  _pc t  (  *  ) 

15720  FOR  1=1  TO  Nm_Limts 

15730  CALL  Check-_var  (  “7.  TARGETED"  ,  Tgt _e>; psr _pct  (  I  >.  0,  1 00 ) 

15740  NEXT  I 
15750  END  IF 
15760  1 

15770  IF  Ac_mi ssi on=l  AND  Tgt_type=8  THEN  INPUT  "ENTER  RANDOM  NUMBER". R5 

15780  FOR  I=Nm_un its+l . TO  5 

15790  Tgt_e>:psr_pct  (  I  )  =0 

15800  NEXT  I 

15810 

15820  Fmtsi:  IMAGE  31  A. 2X , 4 < 3D. D, 2X ) 

15830  RETURN 
15840' 

1 5850 ;********************************»***************#*#***********»*********» 
* 

1 5860 1 

15870  Strit-e_outpi.it:  ! 

1 5880 ' 

15890  GOSUB  Select_prmtrs 
15900  ' 

15910  PRINT  USING  “///“ 

15920  PRINT  "THE  FOLLOWING  ARE  THE  INPUTS  SELECTED  FOR  THE  " : Frc  clrt:"  AIR  STR 
KE :  " 

15930  PRINT 

15940  PRINT  "  #  OF  A/C,  A/C  TYPE,  A/C  MISSION,  A/C  BREAKPOINT.  TGT  7.  IN  OPEN" 
15950  PRINT  USING  Fmttol;Nm_ac  l nput , Acpr i nt$, FI t S . Ac_br kpt  pc t . Tgt _pc t  open 
15960  ! 

15970  PRINT 

15980  SELECT  Cas_bai 

15990  CASE  1 

16000  PRINT  "Aircraft  performing  CAS." 

16010  CASE  2 

16020  PRINT  "Aircraft  performing  BAI." 

16030  END  SELECT 
16040  PRINT 
16050  SELECT  High  low 
1 6060  CASE  1 

16070  PRINT  "In  a  perceived  high-density  AD  environment." 

16080  CASE  2 

16090  PRINT  "In  a  perceived  low-density  AD  environment." 

16100  END  SELECT 
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16110 

16120  PRINT 

16130  PRINT  "TGT  LENGTH,  TGT  WIDTH.  TGT  ACTIVITY,  TGT  TYPE.  #  OF  TGT  UNITS" 
16140  PRINT  USING  Fmtto2; Tgt_ 1 ength , " m" , Tgt _wi dth , " m" , Ac t i vi t y* . Tot _t ypet . Nm.un 
ts 

16150  PRINT 

16160  PRINT  USING  Fmtto3; “TARGET  UNIT-ID’S  CHOSEN: ",  Uni t_i d (* ) 

16170  PRINT  USING  Fmtto3; “  TERRAIN: " , Terr ( 

16180  PRINT 

16190  PRINT  USING  Fmtto3:  "PERCENT  OF  UNIT  TARGETED:  "  ,  Tgt_e>:psr_pct  (*  ) 

1 6200  ! 

16210  PRINT 

16220  Fmttol : IMAGE  7D.D.5X.5A,  7X , 6A, 1 3X . 3D, 12X , 3D 
16230  Fmtto2: IMAGE  9D,  1  A, lOD, 1A,7X,7A,2X,8A, 14X, 2D 
16240  Fmtto3: IMAGE  25A, 5  (2X, 3D) 

1 6250 

16260  RETURN 
16270! 

16280! ******** ***t****tt*t*t**t**tu$***t****t**tt****tt*** ***************  ****** 
* 

16290 ! 

16300  Str  i  t-e_prof  i  1  e:  1 
16310! 

16320  Fi  1 e*=Wpn_l d  temp 1  ate*  < Ac_l oad ) 

16330  ON  ERROR  GOSUB  File_erroiO 
16340  ASSIGN  li-Path  TO  F  i  1  e*S<Di  sk* 

16350  OFF  ERROR 

16360  ENTER  6»Path .  1 :  St  k_proP  i  1  e  ( *  > 

16370  ASSIGN  C*'Path  TO  * 

1 6380  1 

16390  Wpn_I oad_code=St k_profi 1 e ( 1 > 

1 6400  Ac_area_prn_tgt=Stk_proPile(2> 

16410  Mi n_ac_passes=Stk_proF i le  < 3 > 

16420  Nm_ac_rnds_eng=Stk_proP i 1 e  <  4) 

1 6430  Nm_ac_r nd_bs_l d=St k_pr oP i 1 e (5> 

1 6440  Prn_tgt_wds_Prc=Stk_proPi 1 e  < 160> 

16450  Prsnl _P xh 1 _Prc=St k_proP i 1 e ( 161 ) 

16460  FOR  1=1  TO  4 

16470  Ac_pdtc_prn_tgt < I ) =Stk_proP 1 1 e <5+1 > 

16480  Ac_pl os_prn_tgt ( I ) =Stk_proP i 1 e (9+1 ) 

16490  NEXT  I 
16500  FOR  1=1  TO  7 

1 6510  Mi n_ada_al t  <I)=Stk_proPi le(161+I> 

16520  Ma>:_ada”al  t  <  I  >  =Stk_proP  i  1  e  (  168+1 ) 

1 6530  Ada_range (I)=Stk_proPiIe(l 75+ I ) 

16540  Ada_prtcptn(I) =Stk_proP i 1 e ( 182+1 ) 

1 6550  Ada_rnd_bs_l d  < I >  =Stk  _proPile(l 89+1 ) 

1 6560  Ada  _r nd_wt ( I >  =Stk_pr aP i l e ( 1 96+ 1 ) 

16570  Ada_r nd_P  r d_eng ( I >  =St k_pr oP i  1  e  ( 203+ 1 > 

1 6580  Ada_psa_ac  < I ) =Stk_proP i  I  e (210+1 ) 

1 6590  Ada_psk  _ac (I)=Stk_proPile(217+I> 

16600  NEXT  I 
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16610  FOR  1=1  TO  72 

1 6620  Ac_tgt_pk(I>  =St  k_pr  o+  ile(13+I> 

1  6630  Ac_tgt _area  (  I  )  =St  l:_pro-f  lie  (86+  I  1 

16640  NEXT  I 
16650  ! 

16660  RETURN 
1 6670 ' 

1 6680 '************#*******  ***************************************************** 

1 6690  ! 

16700  Update_resul ts:  ! 

16710 1 

16720  REPEAT 
16730  PRINT 

16740  PRINT  "UPDATE  MENU:  SELECT  OPTION" 

16750  PRINT  "  (1>  UPDATE  CURRENT  RESULTS" 

16760  PRINT  "  (2)  PURGE  CURRENT  RESULTS” 

16770  PRINT  "  < 3 >  EXIT" 

16780  INPUT  Nm_option 

16790  UNTIL  Nm_option=l  OR  Nm_option=2  OR  Nm_option=3 
16800  ' 

16810  IF  N<n_opt  i  on=  1  THEN 
16820  GOSUB  Cumul ate_total s 

16830  GOSUB  Update_stor age 

16840  END  IF 

16850  IF  Nm_option03  THEN 
16860  GOSUB  Init  totals 
16870  END  IF 
16880  ! 

16890  RETURN 
1 6900 ! 

1 69 10!******************** *********************************************** ******* 
* 

16920' 

16930  Update_storage: ! 

16940! 

16950  ASSIGN  ©Path  TO  "  UN I TFILE : HP91 34 . 701 " 

16960  Cnt=0 
16970  REPEAT 
16980  Cnt=Cnt+l 
16990  FOR  1=1  TO  150 

17000  Unit_irvfo<  I  >  =Uni  tstore_20_15  (Cnt .  I  > 

17010  NEXT  I 

17020  OUTPUT  i?Path ,  Uni  t  _i  d_20_  150  (Cnt )  :  Uni  t_  i  n-f  o  (  * ) 

17030  UNTIL  Cnt >=Nm_uni ts_pl ayed 
17040  ASSIGN  (i'Path  TO  * 

17050  PRINT 

17060  PRINT  "UPDATE  COMPLETED" 

1 7070  ! 

1 7080  RETURN 
1 7090  > 

17100! ****************************************************************** ******** 
* 


5-72 


Table  5-3.  Air  attack/Air  defense  code 


17110' 

17120  END 
1 7 1 30 ' 

17140  ******* 

* 

171 50 ! 

17160  SUB  Chec k_var <Var_name* . Var i abl e, Mi n  value. Max  value) 

17170! 

17180  WHILE  Var  i  ab 1 e<Mi n_val ue  OR  Var  i  abl  e>Ma>:  value 
17190  BEEP 

17200  PRINT 

17210  PRINT  "**  ERROR:  Variable;"  IS  INVALID  FOR  Var  name* 

17220  PRINT  "  INPUT:  "  :  Mi  n_val  ue;  "  THROUGH  " :  Max  _val  ue:  "  ONLY'" 

17230  INPUT  Variable 

17240  END  WHILE 
17250  ' 

17260  SUBEND 
1 7270 ! 

1 7280  I***********************************************  »**«*»****»**»**»»**»»»»»> 

* 

1 7290 ! 

17300  SUB  Unit  read (Frc_clrt. Nm_uni ts.Unit_id (*) , Terr (*) ) 

17310! 

17320  CALL  Checl:_var  ( "#  UNI TS " . Nm_un i ts, O. 5 > 

17330  IF  Frc_clrS="RED“  THEN 
17340  Min_value=l 

17350  Max_value=191 

17360  ELSE 
17370  Mi n_val ue= 1 92 

17380  Max _val ue=400 

17390  END  IF 
17400  PRINT 

17410  IF  Nm_un its >0  THEN 
17420  FOR  1=1  TO  Nm_units 

17430  INPUT  "ENTER:  UNIT-ID  ,  TERRAIN" , Uni t_i d < I >. Terr < I ) 

17440  CALL  Chec l:_var  <  "UNIT- ID"  ,  Uni  t_i d  ( I )  ,  Mi n_val  ue.  Max  _val  ue) 

17450  CALL  ChecL_var ("TERRAIN". Terr (I) , 1,4) 

17460  NEXT  I 

17470  END  IF 
17480  ! 

17490  FOR  I=Nm_uni ts+1  TO  5 
17500  Unit_id(I)=0 

17510  Terr ( I ) =0 

17520  NEXT  I 
1 7530  ! 

17540  SUBEND 
1 7550 ! 

1 7560 '  ************************,**.************************  ***********************  * 
* 

1 7570 • 

17580  DEF  FNMin(A.B) 

1 7590 ! 
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176ii0  IF  A<=B  THEN 
17610  C=A 

1 7620  ELSE 
17630  C  =  B 

17640  END  IF 

1 7650  RETURN  C 
1 7660  ' 

17670  FNEND 

1 7680 • 

1  7690  '#*»*#*****#*  *******»****»*****#*##.######  »**»*f********)M:M**>**#»*»»*»»***> 

17700 1 

17710  DEF  FNMa>:  <  A .  B  1 
1 7720 1 

17770  IF  a:=b  then 
17740  C=A 

1 7750  ELSE 
17760  C  =  B 

17770  END  IF 

1 7780  RETURN  C 
177Q0  1 

17800  FNEND 
1 7310 ! 

1 7820 '****#*******»***»*****»****#**********#***♦*###**********##************»*» 
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GROUND  COMBAT 


1.  PURPOSE. 


The  purpose  of  the  DIME  ground  combat  program  (P4)  is  to  determine  the 
number  of  systems  destroyed  and  ammunition  expended  during  combat  between 
ground  forces.  The  program  also  displays  a  battle  chronology  describing 
significant  maneuver  events  and  designates  either  the  Blue  or  Red  force  as 
terminating  the  battle  through  disengagement  of  direct-fire  forces. 

2.  GENERAL. 

A.  The  survival  and  effectiveness  of  a  lightly  armored  force  is 
dependent  on  its  mobility.  The  force  must  be  able  to  locate  the  enemy,  move 
quickly  to  contact,  strike,  and  then  break  contact  before  the  enemy  is  able 
to  respond  by  tailoring  his  mission  to  bring  effective  firepower  into  play 
against  the  more  agile  force.  In  a  general  sense,  this  is  true  of  any  force 
attempting  to  use  surprise  as  a  tactical  multiplier.  However,  one  usually 
thinks  of  a  heavily  armored  force  with  a  simpler  tactical  objective  of 
containing  the  enemy  and  thus  developing  sufficient  firepower  to  engage  and 
defeat  him. 

B.  This  problem  faced  the  DIME  development  team:  how  does  one  structure 
a  division  combat  model  which  will  fairly  represent  the  light  force  tactics 
which  seek  to  avoid  decisive  engagement,  while  at  the  same  time  fairly 
representing  the  advantages  and  disadvantages  of  a  Soviet  force  seeking 
decisive  engagement?  Low-resolution  corps/division  models  have  classically 
played  attrition  scenarios  representing  an  attacking  force  assaulting  a 
defender  in  a  prepared  defense.  They  have  not  represented  various  missions 
and  resulting  force  postures  available  to  both  attacker  and  defender.  Nor 
have  they  represented  the  time-phased  transition  of  a  force  from  one  posture 
to  another  (i.e.,  from  a  hasty  to  a  prepared  defense). 

C.  The  DIME  combat  program  attempts  to  represent  this  change  in  posture 
as  a  surprised  unit,  attacked  in  a  vulnerable  posture,  which  moves  to  a 
hardened  posture.  This  process  is  simulated  using  the  DIME  missions 
available  to  each  unit.  The  missions  are  as  follows: 


Mission 

Number  Description 


0 

1 

2 

3 

4 

5 


Meeting  engagement 
Indirect  fire 
Movement 
Frontal  attack 
Envelopmental  attack 
Delay 


Mission 

Number 


Description 


6  Hasty  defense 

7  Prepared  defense 

8  Reserve/rear  area 

9  Ambush 

Associated  with  each  mission  is  a  set  of  templates.  The  templates  are  used 
to  represent  the  lethality  and  vulnerability  of  the  unit  and  contain  the 
following  information: 

(1)  The  percent  of  unit  available  to  fire. 

(2)  The  percent  of  unit  available  as  targets. 

(3)  The  percent  of  targetable  unit  fully  exposed. 

(4)  The  percent  of  targetable  unit  in  hull  defilade. 

As  the  battle  progresses,  these  templates  are  modified  by  a  time-phased 
increment  representing  the  change  in  unit  vulnerability  and  lethality.  The 
template  structure  gives  the  low-resolution  DIME  program  the  flexibility  to 
represent  units  in  various  missions/postures  engaged  by  attacking  units  in 
various  postures.  Although  the  templates  represent  the  natural  tendency  for 
a  unit  to  harden  its  position  under  fire,  it  was  also  necessary  to  structure 
the  ground  combat  program  to  provide  the  gamer  with  the  flexibility  to 
select  conditions  which  he  believes  will  favorably  initialize  and  terminate 
the  battle. 

D.  The  ground  combat  program  simulates  three  phases  of  battle:  phase  I, 
movement  to  contact;  phase  II,  the  direct  fire  battle;  and  phase  III,  the 
withdrawal  from  direct  fire  contact.  The  program  requires  the  gamer  to 
input  a  set  of  parameters  which  essentially  represent  his  battle  plan  or 
scenario.  The  program  then  executes  the  plan  of  both  Blue  and  Red  gamers 
determining  the  resulting  attrition  and  also  determining  which  side  is 
forced  to  initiate  and  sustain  a  more  vulnerable  withdrawal  posture  in  phase 
III.  Figures  6-1  through  6-3  show  a  stylized  depiction  of  the  DIME  battle 
geometry  in  each  of  the  three  phases. 

(1)  Phase  I,  Movement  to  Contact.  This  is  essentially  an  artillery 
battle.  During  this  period,  the  forces  are  beyond  the  opening  range  for 
direct  fire  (3000  o)  and  closing  toward  their  objective.  The  principal 
scenario  parameters  input  by  the  Red  and  Blue  gamers  describing  this  phase 
of  the  battle  are: 

(a)  Opening  range  for  artillery  (beginning  of  phase  I). 

(b)  Percent  of  force  forward  in  covering  action. 

(c)  Opening  range  for  direct  fire  (ending  of  phase  I). 
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Figure  6-1.  Phase  I,  Blue  force  movement  to  contact. 


It  should  be  noted  Blue  has  placed  10  percent  of  his  forces  forward  in  a 
covering  action  in  Figure  6-1. 

(2)  Phase  II,  The  Direct  Fire  Battle.  In  this  phase,  direct  fire 
systems  of  both  forces  engage  available  targets.  In  the  example  scenario 
(Figure  6-2),  both  Blue  and  Red  have  chosen  3  km  as  an  opening  range. 
Hence,  all  available  firing  systems  which  can  perform  at  that  range  will 
begin  to  fire.  Note  that  the  DIME  ground  combat  program  has  inflicted 
attrition  on  elements  in  both  forces  and  moved  the  elements  into  less 
exposed  positions  to  artillery  and  direct  fire  weapons.  The  principal  gamer 
inputs  affecting  phase  II  are: 

(a)  Opening  range  for  direct  fire  (beginning  of  phase  II). 

(b)  Withdrawal  range  (ending  of  phase  II). 

(c)  Percent  of  losses  units  will  incur  before  withdrawing. 

(d)  Mission  (determines  percent  of  forces  fully  exposed  to 
artillery/direct  fire). 

(3)  Phase  III,  The  Withdrawal  Phase.  In  this  phase  (Figure  6-3)  Blue 
and/or  Red  forces  break  contact  with  enemy  direct  fire  weapons.  The  combat 
program  also  increases  the  vulnerability  of  the  withdrawing  force  by 
increasing  the  percent  of  fully  exposed  targets.  This  increase  is  dependent 
on  the  mission  of  the  withdrawing  force.  The  gamer  inputs  which  impact  this 
phase  are: 

(a)  Withdrawal  range,  if  violated  by  either  of  the  forces  will 

cause  the  beginning  of  phase  III. 

(b)  Withdrawal  percent  loss,  if  sustained  by  either  force,  will 
cause  the  beginning  of  phase  III. 

(c)  Withdrawal  time,  time  required  to  move  out  of  direct  fire 

range,  determines  the  ending  of  phase  III. 

(d)  Mission,  determines  the  percent  of  forces  fully  exposed  during 
withdrawal. 

(4)  Omission  of  battle  phases.  It  should  be  noted  that  the  DIME 

program  does  not  require  the  gamer  to  use  all  of  the  battle  phases.  By 

carefully  structuring  the  scenario  input  parameters,  the  gamer  can  delete 
any  battle  phase(s).  For  example,  by  making  the  "opening  range  for  direct 
fire"  equal  to  the  "withdrawal  range  for  direct  fire,"  the  DIME  ground 
combat  program  will  move  directly  from  phase  I  to  phase  III,  thereby 
simulating  a  standoff  battle  consisting  primarily  of  artillery  with  one 
force  withdrawing  to  avoid  direct  contact. 
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3.  DATA  FLOW. 

The  data  flow  structure  for  the  ground  combat  program  is  shown  in  Figure  6- 

4.  The  data  are  divided  into  four  categories:  game  parameters,  unit  status 
file  ( "UNITFILE")  entries,  weapon  system  parameters,  and  logistic 
parameters. 

A.  Game  parameters.  The  game  parameters  are  input  through  the 
terminal.  These  parameters  describe  both  the  tactical  scenario  and  the 
environmental  scenario. 

(1)  Tactical  scenario.  These  inputs  describe  which  units  will  fight 
and  their  initial  missions  and  deployment  postures.  Tactical  parameters 
also  determine  the  criteria  for  shifting  from  one  battle  phase  to  the  next 
and  the  planned  allocation  of  available  artillery  and  mortar  tubes  to  the 
missions  of  prep/counterprep,  close  support,  counterfire,  suppression  of  air 
defense  (SEAD),  interdiction,  and  defensive  smoke.  DIME  will  attempt  to 
honor  the  artillery  allocations  until  it  becomes  obvious  that  the  tactical 
situation  demands  a  reallocation  of  resources.  At  this  point,  the  program 
will  automatically  redistribute  the  indirect  fire  resources.  The  dimensions 
of  the  area  occupied  by  both  forces  are  also  part  of  the  tactical  scenario. 
This  area  serves  as  a  basis  for  computing  target  density  in  the  artillery 
and  mortar  effectiveness  algorithms  and  has  significant  impact  on  these 
algorithms.  The  tactical  scenario  represents  the  pace  of  battle  desired  by 
both  Blue  and  Red  gamers.  The  weapon  system  parameters,  logistic 
parameters,  and  attrition  algorithms  ultimately  drive  the  game  in  a 
favorable  direction  for  one  of  the  players. 

(2)  Environmental  scenario.  These  parameters  describe  the  battle 
terrain,  weather,  and  the  battle  initiation  time.  The  terrain  type  consists 
of  one  of  four  types: 

(a)  Open. 

(b)  Rolling. 

(c)  Hilly. 

(d)  Mountainous. 

Both  the  exposure  rates  of  vehicles  and  personnel  to  direct  fire,  and  the 
movement  rates  for  vehicles  and  personnel,  are  also  keyed  on  the  terrain. 
The  meteorological  visibility  affects  the  ranges  at  which  direct  fire 
systems  can  detect  and  engage  ground  targets.  Cloud  height  has  a  similar 
degrading  effect  on  laser-seeking  artillery  projectiles.  Battle  start  time 
determines  the  ambient  light  (day  or  night)  conditions  under  which  the 
battle  will  be  played  with  night  conditions  resulting  in  degraded  movement 
rates  and  detection  ranges. 
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B.  DIME  "UNITFILE" .  Following  the  entry  of  the  tactical  scenario,  the 
ground  combat  program  structures  the  forces  for  battle  from  the  DIME 
"UNITFILE".  Selecting  the  units  indicated  in  the  tactical  scenario,  the 
program  retrieves  the  number  of  weapons  from  each  unit  record  (located  on 
the  hard  disk)  and  forms  both  the  Blue  and  the  Red  forces.  The  tons  of 
ammunition  for  air  defense,  direct  fire,  and  indirect  fire  are  also  obtained 
from  the  "UNITFILE".  The  attrition  program  then  moves  through  30-minute 
battle  time  steps  calculating  element  losses  and  ammunition  consumption  to 
both  forces.  When  direct  fire  contact  between  the  forces  has  been  broken, 
thus  completing  the  battle,  the  attrition  program  distributes  the  element 
and  ammunition  losses  among  each  unit  and  updates  their  records  on  the  DIME 
"UNITFILE." 


C.  Weapon  system  parameters.  The  weapon  system  parameter  files  contain 
the  data  describing  the  lethality  and  vulnerability  characteristics  of  each 
weapon  system  being  played  in  the  program.  The  files  are  randomly  accessed 
by  the  combat  program  as  engagements  occur  during  the  battle.  As  noted  in 
Figure  6-4,  the  files  contain  system  information  of  six  types: 

(1)  Mine  systems.  The  ground  combat  mine  module  considers  one  type  of 
minefield.  The  data  representing  the  attrition  effects  against  the  70 
weapon  systems  are  maintained  in  data  statements  as  part  of  the  mine  module. 
The  data  describe  kills  per  armored  column  and  are  based  on  the  tactic  (bull 
or  breach)  being  used  to  cross  the  minefield.  Refer  to  Chapter  6,  Section  I 
for  more  information. 

(2)  Indirect  fire  systems.  The  DIME  ground  combat  artillery  module 
uses  algorithms  from  the  Super  Quickie  II  model  to  assess  kills  through 
artillery,  mortars,  or  multiple  launch  rocket  systems  (MLRS  for 
Blue) /multiple  rocket  launchers  (MRL  for  Red).  Data  supporting  these 
algorithms  are  found  on  the  hard  disk  and  consist  of  artillery  delivery 
errors  and  lethal  areas  for  each  munition  against  the  70  target  elements. 
Section  II  of  this  chapter  describes  the  indirect  fire  module  in  greater 
detail. 

(3)  Smoke  Parameters.  Artillery-delivered  white  phosphorus  smoke  can 
be  employed  by  a  withdrawing  unit  during  battle  phase  III.  The  smoke  module 
calculates  the  percent  of  both  forces  screened  by  the  smoke  and  then 
calculates  the  associated  reductions  in  direct  fire  kills.  Data  describing 
the  percent  of  targets  visible  to  various  direct  fire  sensor  systems  are 
found  on  the  hard  disk.  The  smoke  file  is  accessed  when  the  tactical 
scenario  indicates  that  a  retreating  force  wishes  to  deploy  screening  smoke. 
For  more  on  smoke,  see  Section  III  of  this  chapter. 
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(4)  Direct  fire  parameters.  These  files  are  located  on  the  hard  disk 
and  accessed  as  targets  close  from  3000  meters.  The  records  are  structured 
1  to  represent  engagements  in  each  500-meter  band  and  contain  firing  rates  and 

probabilities  of  kill  for  each  weapon  engaging  twenty  target  categories. 

Other  information  describing  individual  weapon  fire  control  systems 
k  (principal  sensor,  basic  load)  are  also  contained  in  these  files.  See 

t  Section  IV  of  this  chapter  for  greater  detail  of  direct  fire  data  flow  and 

f  file  structures. 


(4)  Helicopter /air  defense  systems.  This  file  ij  also  located  on  the 
hard  disk  and  is  accessed  during  helicopter  engagements  of  ground  targets. 
The  ground  combat  program  assumes  that  helicopters  engaging  forces  will 
attempt  to  stand  off  at  maximum  range  while  still  employing  their  weapons 
effectively.  Consequently,  the  file  contains  records  describing  the 
helicopter's  ability  to  detect,  engage,  and  kill  ground  targets  depending  on 
the  optimal  range  for  various  delivery  (missile  or  gun)  profiles.  Also 
contained  in  the  record  is  the  ability  of  each  air  defense  system  to  engage 
the  helicopter  as  it  stands  off  at  its  engagement  range.  See  Section  V  of 
this  chapter  for  a  more  explicit  description  on  helicopter  data  flow  and 
file  structures. 

(5)  Precision-guided  munitions.  The  ground  combat  program  plays  two 
types  of  precision-guided  munitions  (PGM;.  These  consist  of  cannon- 
launched  guided  projectiles  (CLGP)  and  guided  antiarmor  mortar  projectiles 
(GAMP).  Data  necessary  for  these  include  single  shot  kill  probabilities 
toward  each  of  the  70  targets  and  designator  degradation  factors  for  each 
PGM.  These  data  are  held  internally  within  the  PGM  attrition  module.  For 
greater  detail,  see  Section  VI  of  this  chapter. 

(6)  Dismounted  infantry  personnel  losses.  If  a  final  assault  by 
dismounted  infantry  is  part  of  the  tactical  scenario,  the  ground  combat 
program  will  allow  infantry  to  dismount  during  the  last  500  meters  of 
closure.  Data  describing  losses  to  infantry  personnel  during  this  phase  are 
maintained  as  data  statements  in  the  infantry  module.  See  Section  VII  of 
this  chapter  for  more  information. 


D.  Logistic  parameters.  The  ground  combat  program  calculates  the 
tonnages  of  ammunition  consumed  by  both  Blue  and  Red  forces  during  the 
battle.  The  data  base  supporting  these  calculations  consists  of  basic  loads 
and  the  packaged  round  weights  for  each  of  the  70  weapon  systems  on  the 
"UNITFILE".  This  data  base  is  held  in  the  ground  combat  program  in  the  form 
of  data  statements. 
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E.  DIME  attrition  output. 

t  (1)  The  principal  output  from  the  combat  program  is  the  number  of 

weapon  systems  lost  in  battle.  Figure  6-5  shows  an  example  of  Blue  system 
losses  following  a  2  1/2-hour  battle.  The  losses  are  not  provided  in  the 
classic  weapon-to-weapon  killer/victim  sense;  rather,  the  program  provides 
\  losses  inflicted  by  a  functional  group  of  weapons,  i.e.,  direct  fire  (DF), 

indirect  fire  (IF),  attack  helicopters  (A/H),  infantry  (INF),  precision- 
guided  munitions  (PGMs),  and  mines  (MIN).  If  it  is  necessary  to  obtain 
killer/ victim  tables  by  weapon  type,  this  can  be  done  for  direct  fire 
systems  by  applying  the  individual  firer/target  probabilities  of  kills 
developed  by  subroutine  Df_cbt.  However,  the  user  is  reminded  that  DIME  is 
a  low— resolution  model  designed  primarily  for  analysis  of  brigade/battalion 
tactics  and  not  for  analysis  of  individual  weapon  systems. 

(2)  Other  output  from  the  program  consists  of  a  report  produced  every 
30  minutes  describing  the  location  of  the  forces,  the  artillery  and  mortar 
volleys  fired,  and  the  current  strengths  of  both  forces.  Figure  6-6  shows 
an  example  of  the  30-minute  battle  updates  produced  by  the  program. 


4.  FILE  STRUCTURE. 

The  DIME  ground  combat  program  (P4)  accesses  the  following  external  files  on 
the  hard  disk. 


A.  Sys_eff(I,J)  contains  numerical  effectiveness  values  assigned  to  each 
of  the  70  weapon  elements.  The  effectiveness  is  determined  by  the  element's 
firepower  capability. 

I  is  1  =  Blue 
2  =  Red 

J  is  1-70  for  the  weapon  types. 

B.  Wpn_type(I, J)  contains  a  number  (1-3)  which  places  the  weapon  elements 
into  the  ammunition  categories  of: 

1  =  Direct  fire 

2  -  Indirect  fire 

3  ■  Air  defense. 

I  and  J  represent  the  same  as  above. 
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Figure  6-5.  An  example  of  system  losses  following  a  2.5  hour  battle. 
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Figure  6-6.  An  example  of  the  30  minute  battle  updates. 
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C.  Ammo_wt(I,J)  contains  the  ammunition  expenditure  per  engagement  for 
each  of  the  70  elements.  I  and  J  are  the  same  as  above. 

D.  Basic_ld(I,J)  contains  the  total  number  of  engagements  for  each  of  the 
70  elements.  I  and  J  represent  the  same  as  above. 

E.  Arty_30min_wt(I, J)  contains  the  total  ammunition  in  tons  that  can  be 
allocated  to  artillery  during  a  30-minute  timestep. 

I  is:  1  ■  Blue 

2  ■  Red 

J  is:  1  *  Arty 

2  =  MLRS/MRL 

3  =  Mortar. 

F.  A_wt(I,J)  contains  the  weight  in  tons  for  six  batteries  firing  one 
burst  of  artillery  ammunition.  I  and  J  are  the  same  as  in  E  above. 

G.  Bf__mask(J)  and  Rfjnask(J)  contain  a  one,  meaning  element  J  may  take 
part  in  battle,  or  a  zero  indicating  that  element  J  may  not  be  involved  in 
the  battle.  J  represents  the  1-70  system  elements. 

H.  Bdf_mask(I, J)  and  Rdf_mask(I, J)  contain  a  one  for  being  a  part  of  the 
direct  fire  battle,  or  a  zero  meaning  element  J  is  not  involved  in  the 
battle. 


I  is:  1  =  Conventional  battle 

2  -  Attack  on  a  command  post 

3  -  Attack  on  a  forward  arming  and  refueling  point 

(FARP) 

4  a  Attack  on  a  log  point 

I  is:  5  ■  Attack  on  a  field  artillery. 

J  is  (1-70)  for  the  weapon  elements.  Note:  If  Blue  is  attacking  a  log  point 
and  Red  is  defending,  the  Bdf__mask(l,J)  and  Rdf_mask(4, J)  would  be  used. 

I.  Ds_start(I)  contains  the  starting  range  in  meters  for  close  support  in 
terrain  I. 


I  is:  1  -  Open 

2  «  Rolling 

3  -  Hilly 

4  ■  Mountainous 


J.  Barty_30min( I , J)  and  Rarty_30min(I, J)  contain  tonnages  per  tube 
delivered  per  30  minutes  by  supporting  artillery.  The  descriptions  for  I 
and  J  are  as  follows: 


I  is  the  mission:  1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


Movement  to  contact 
Indirect  fire 
Movement 
Frontal  attack 
Envelop  attack 
Delay 

Hasty  defense 
Preparatory  defense 
Rear  area 
Ambush . 


J  is:  1  *  Arty 

2  -  MLRS/MRL 

3  -  Mortar. 


(Note:  I  *  The  mission  value  input,  plus  one,  for  array  accessing.) 


K.  "UNITFILE” .  This  file  consists  of  400  records,  each  containing  150 
elements.  The  assignment  of  records  consists  of  records  1-191  for  Blue 
units  and  records  192-400  for  Red  units .  Elements  used  within  each  record 
consist  of  1-70,  78,  131  -  133,  80,  139  -  141.  A  description  of  these 
elements  may  be  found  in  Chapter  1,  Table  1-1. 


L.  Advance  rate  file.  This  file  contains  the  maximum  rate  of  advance  for 


a  force  in  meters 

advanced  per  minute.  The  file  consists  of  16  records. 

Record 

1. 

Blue,  day,  open  terrain 

Record 

2. 

Blue,  day,  rolling  terrain 

Record 

3. 

Blue,  day,  hilly  terrain 

Record 

4. 

Blue,  day,  mountainous  terrain 

Record 

5. 

Blue,  night,  open  terrain 

Record 

6. 

Blue,  night,  rolling  terrain 

Record 

7. 

Blue,  night,  hilly  terrain 

Record 

8. 

Blue,  night,  mountainous  terrain 

Record 

9. 

Red,  day,  open  terrain 

Record 

10. 

Red,  day,  rolling  terrain 

Record 

11. 

Red,  day,  hilly  terrain 

Record 

12. 

Red,  day,  mountainous  terrain 

Record 

13. 

Red,  night,  open  terrain 

Record 

14. 

Red,  night,  rolling  terrain 

Record 

15. 

Red,  night,  hilly  terrain 

Record 

16. 

Red,  night,  mountainous  terrain. 
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The  appropriate  record  is  read  into  the  array  Advance__rate(I, J) ,  where: 

I  is  battle  phase:  1  =  Mounted  in  Phase  I 

2  ■  Dismounted  in  Phase  I 

3  ■  Mounted  in  Phase  III 

4  ■  Dismounted  in  Phase  III 

and 

J  is  mission:  1  ■  Movement  to  contact 

2  ■  Indirect  fire 

3  -  Movement 

4  -  Frontal  attack 

5  ■  Envelopment  attack 

6  ■  Delay 

7  *  Hasty  defense 

8  *  Preparatory  defense 

9  ■  Reserve/rear  area 
10  «  Ambush 


M.  Operational  mission  templates.  These  files  contain  the  percentage  of 
participants  in  a  battle  and  target  vulnerabilities.  There  are  eight  files 
for  the  Blue  force  and  eight  files  for  Red. 

1.  The  files  defining  the  number  of  target  participants  are: 

(a)  "BIFTARG"  -  Blue  targets  vs.  indirect  fire. 

(b)  "BDFTARG"  -  Blue  targets  vs.  direct  fire. 

(c)  "RIFTARG"  -  Red  targets  vs.  indirect  fire. 

(d)  "RDFTARG"  -  Red  targets  vs.  direct  fire. 

2.  Delta  files  contain  the  rate  of  change  representing  the  percent  of 
elements  that  can  be  introduced/extracted  from  battle  per  a  30-minute 
interval,  while  maintaining  the  same  mission.  These  files  are: 

(a)  "BIFDT"  -  Delta  Blue  target  vs.  indirect  fire. 

(b)  "BDFDT"  -  Delta  Blue  target  vs.  direct  fire. 

(c)  "RIFDT"  -  Delta  Red  target  vs.  indirect  fire. 

(d)  "RDFDT”  -  Delta  Red  target  vs.  direct  fire. 

3.  Firer  files  for  direct  fire  contain  the  percent  of  participating 
firers  and  the  corresponding  delta  files  show  the  firer' s  rate  of  change. 

(a)  "BFIRE"  -  Blue  firers  for  direct  fire. 

(b)  "RFIRE"  -  Red  firers  for  direct  fire. 

(c)  "BDFIRE"  -  Delta  Blue  firers  for  direct  fire. 

(d)  "RDFIRE"  -  Delta  Red  firers  for  direct  fire. 
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4.  Vulnerability  files  exist  to  represent  the  fraction  of  fully 
exposed  systems  to  direct  fire.  They,  too,  have  corresponding  delta  files 
which  represent  the  percent  increase/decrease  to  a  system's  vulnerability. 

(a)  "BVUL"  -  Blue  vulnerabilities  to  direct  fire. 

(b)  "RVUL"  -  Red  vulnerabilities  to  direct  fire. 

(c)  "BDVUL"  -  Delta  Blue  vulnerabilities. 

(d)  "RDVUL"  -  Delta  Red  vulnerabilities. 

5.  All  of  the  template  files  contain  10  records  each.  These  records 
represent  the  possible  missions: 

1  *  Movement  to  contact 

2  *  Indirect  fire 

3  «  Movement 

4  ■  Frontal  attack 

5  *  Envelop  attack 

6  *>  Delay 

7  *  Hasty  defense 

8  «  Preparatory  defense 

9  *  Rear  area 
10  a  Ambush 

The  array  used  in  accessing  data  from  a  record  is  in  the  form: 

M(J) 

where  J  is  unit  type  and  unit  echelon  and  where  echelon  »  0  (Blue 
battalion/Red  regiment)  or  1  (Blue  company/Red  battalion). 

11/01  =«  Combat  unit 

12/02  *  Artillery  unit 

13/03  *  ADA  unit 

14/04  =  Helicopter  site/FARP 

15/05  =  Command  post/headquarters  (CP/HQ) 

16/06  »  Engineer  unit 

17/07  »  Fuel/ammunition  (POL/ AMMO)  supply  point 

18/08  *  Maintenance  point 

19/09  ■  Surface-to-air  missile  (SAM)  site 

20/10  ■  Communication/radar/electronic  warfare  (EW)  site 


N.  For  more  information  on  any  data,  refer  to  Volume  III  of  the  DIME 
documentation . 
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5.  ALGORITHMS. 


A.  Logic  flow.  Figure  6-7  presents  a  generalized  logic  flow  for  the 
processes  occurring  in  the  DIME  ground  combat  program.  The  purpose  of  this 
diagram  is  to  provide  a  framework  for  discussion  of  the  algorithms 
supporting  each  of  these  processes.  The  DIME  ground  combat  program  is  a 
timestep,  deterministic  model  using  expected  value  techniques  for 
calculating  losses  to  both  forces. 

B.  Force  structuring/tactical  template  initialization.  The  ground 
combat  program  begins  processing  by  reading  both  tactical  and  environmental 
scenarios  and  structuring  the  opposing  forces.  This  initialization  is  done 
in  subprogram  Set_battle  (see  Figure  6-8  for  a  generalized  logic  flow  of 
Set_battle  and  Table  6-5  for  a  description  of  its  principal  variables). 

The  initialization  process  continues  by  accumulating  the  total  tonnages  of 
indirect  fire  (IF),  direct  fire  (DF),  and  air  defense  (AD)  ammunition 
available  to  both  forces.  After  accepting  a  gamer  description  of  the 
environmental  scenario,  the  program  then  establishes  the  exposure/lethality 
templates  for  each  force  using  the  following  equations: 

(1)  Exposure  to  indirect  fire.  Initial  percentages  exposed  to 
indirect  fire  are: 

Iftjm  *  r  Pij  *  If  in,  (Eq.  6-1) 

1=1 

where : 

Iftjm  =  the  percent  of  the  element  type  exposed  to  indirect 

fire  at  the  beginning  of  the  battle  with  the  force  in 
mission  m  (j  -  1  to  70  element  types  in  the  force), 
n  ■  number  of  units  in  the  entire  force  involved  in  the  sector 
battle. 

Pij  -  percent  of  force  from  unit  i  and  element  type  j. 

Ifijj,  ■  percent  of  elements  exposed  to  indirect  fire  for  unit  i  in 
mission  m.  Note  that  unit  i  is  of  a  specific  unit  type 
such  as  combat,  artillery,  ADA,  etc. 
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Figure  6-7.  DIME  ground  combat  generalized  logic  flow. 
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Figure  6-7.  DIME  ground  combat  generalized  logic  flow  (concluded). 
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Figure  6-8.  Generalized  logic  flow  for  initialization  of  force 
structure  in  subroutine  Set  battle. 
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The  delta  changes  which  occur  to  the  percentage  each  30  minutes  is  also 
calculated. 


Diftjm  =  f.  Pij  *  Difim  (Eq.  6-2) 

i-1 


where : 

Diftjm  =  the  change  in  the  percent  of  elements  of  type  j 
exposed  to  indirect  fire  every  30  minutes  with 
force  in  mission  m.  This  increment  is  applied  to 
Iftjm  each  30  minutes  by  DIME. 

Dif-jjj,  =  the  change  in  the  percent  of  elements  of  unit  i 
exposing  themselves  to  indirect  fire  each  30 
minutes  when  the  unit  is  operating  under  mission 
m.  Note  that  unit  i  is  of  a  specific  unit  type 
such  as  combat,  artillery,  ADA,  etc. 

(2)  Exposure/vulnerability  to  direct  fire.  The  following  variables 
describing  exposure  and  vulnerability  to  direct  fire  are  also  initialized  in 
subroutine  Set_battle  using  weighing  procedures  identical  to  those  shown  in 
equations  6-1  and  6-2. 

Dftjn,  „  the  percent  of  elements  of  type  j  in  the  force 
initially  exposed  to  direct  fire  with  force  in 
mission  m. 

Ddft^a,  =  the  change  in  the  percent  of  elements  of  type  j 
exposed  to  direct  fire  each  30-minute  period  with 
force  in  mission  m. 

Dff jm  a  the  percent  of  elements  of  type  j  in  the  force 
which  can  initially  fire  in  a  direct  fire  battle 
with  force  in  mission  m. 

Ddff jm  „  the  change  in  the  percent  of  elements  of  type  j 
able  to  fire  each  30-minute  period  with  force  in 
mission  m. 

Fetjm  »  the  percent  of  target  and  firer  elements  of  type  j 
which  are  fully  exposed  with  force  in  mission  m. 

Dfetjm  -  the  percent  of  targets  and  firers  of  type  j  which 
move  from  fully  exposed  to  hull  defilade  each  30 
minutes  with  the  force  in  mission  m. 

It  should  be  noted  tht>'  the  values  Ifj.m  and  Dif^m  are  taken  from  the  DIME 
vulnerability/lethality  templates  discussed  in  paragraphs  2C  and  4M(1  -  5) 
of  this  chapter.  One  of  the  primary  functions  of  Set_battle  is  to 
initialize  the  vulnerability  templates  based  on  the  unit  echelon,  type  and 
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mission  for  use  by  the  attrition  program.  An  example  of  the  values  used  by 
DIME  for  If and  Difj^  are  shown  in  Table  6-1.  For  a  complete  listing  of 
all  values  used  in  DIME,  see  C.  apter  4,  Volume  III,  of  the  data 
documentation.  The  option  exists  to  change  the  template  values  based  on  the 
level  of  deployment  the  gamer  wants  to  portray. 


C.  Initialization  of  battle  plan. 

(1)  Following  the  structuring  of  both  forces,  the  combat  program 
continues  preparation  for  the  battle  by  allocating  indirect  fire  resources 
among  eight  tasks.  The  allocation  occurs  in  subroutine  Set_conditions.  See 
Figure  6-9  for  a  logic  flow  of  Set_conditions  and  Table  6-5  for  a  list  of 
principal  variables.  The  combat  program  allows  allocation  of  indirect  fire 
resources  among  eight  tasks  which  are  shown  in  Table  6-2  with  possible 
allocations  for  artillery,  mortars,  and  MLRS/MRL.  The  actual  allocations 
made  by  DIME  are  dependent  on  gamer  inputs  from  the  tactical  scenario. 
These  inputs  consist  of  the  tactical  fire  plan  describing  the  percent  of 
available  indirect  firing  systems  which  are  to  be  applied  to  each  task. 
Subroutine  Set_conditions  responds  to  this  plan  by  earmarking  the  indirect 
fire  ammunition  for  use  in  each  task  using  the  percentages  input  in  the 
tactical  fire  plan.  The  earmarked  tonnages  serve  as  an  upper  bound  to  the 
ground  combat  program  as  it  attempts  to  execute  the  fire  plan  during  each 
30-minute  step  in  the  battle.  As  an  example,  consider  a  unit  having  50  tons 
of  artillery  ammunition  to  fire  during  a  battle.  Note  that  a  20  percent 
allocation  for  prep/counterprep  will  cause  no  more  than  10  tons  to  be  fired 
in  this  activity.  This  will  be  fired  only  if  sufficient  tubes  survive  in 
the  30-minute  battle  steps  to  fire  it. 

(2)  Subroutine  Set_conditions  completes  the  development  of  the 
indirect  fire  plan  by  establishing  tactical  range  lines.  These  lines 
represent  the  locations  at  which  the  indirect  fire  tasks  will  be  initiated 
or  cancelled  by  the  program.  The  execution  of  the  indirect  fire  tasks 
(i.e.,  the  shift  from  prep/counterprep  to  close  support)  is  governed  by 
these  phase  lines  and  the  battle  range  between  the  forces.  Although  the 
actual  lines  are  established  using  inputs  from  the  tactical  scenario,  the 
limits  on  these  ranges  for  each  task  and  the  rules  causing  the  program  to 
reallocate  resources  from  one  task  to  another  is  shown  in  Table  6-3.  The 
tactical  scenario  thresholds  bounding  the  DIME  ground  combat  battle  phases 
are  also  initialized  in  Set  conditions. 


D.  Battle  timestep  loop.  Following  the  initial  allocations  of  maximum 
battle  tonnages  for  indirect  fire,  the  program  moves  into  a  timestep  loop 
representing  30  minutes  of  battle  time.  The  program  will  move  through  this 
loop  until  the  tactical  scenario  criteria  for  phases  I,  II,  and  III  have 
been  satisfied.  The  30-minute  step  is  begun  by  comparing  loss  and  range 
criteria  for  both  forces  with  the  tactical  scenario  threshold.  If  it  is 
necessary  to  change  phases,  the  program  increments  the  phase  counter  and 
allocates  the  helicopters  and  indirect  fire  rounds  for  both  forces  for  this 
30-minute  period.  Principal  variables  affecting  the  process  are  listed  in 
Table  6-5  under  battle  phase  criteria. 
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Table  6-1.  Blue  target  indirect  fire  templates  (If^m)  and  indirect 
fire  delta  templates  ( D i f i m ) - 


Unit 

tYP* 

2 

i 

Combat 

.400 

.160 

ArtiHary 

1.000 

.160 

Air  da  fens* 

.400 

.160 

FARP 

1.000 

1.000 

CP/H3 

1.000 

1.000 

Engineer 

.133 

.0S3 

Supply 

1.000 

1.000 

Hal nt ana nee 

1.000 

1.000 

SAM  site 

1.000 

1.000 

Cameo/  radar 

1.000 

1.000 

Unit 

type 

2 

1 

Combat 

.100 

.140 

Artillary 

0.000 

.140 

Air  defansa 

.100 

.140 

FAflP 

0.000 

0.000 

CP/K1 

0.000 

0.000 

Englnaar 

.144 

.158 

Supply 

0.000 

0.000 

Malntananca 

0.000 

0.000 

SAM  slta 

0.000 

0.000 

Cameo/ radar 

0-000 

0.000 

HI sslon 


l 

1 

4 

i 

.333 

.600 

.280 

.200 

.350 

l  .000 

1.000 

.400 

.333 

.600 

.280 

.200 

.soo 

1.000 

1.000 

1.000 

.500 

1.000 

1.000 

1.000 

.111 

.200 

.093 

.067 

.SOO 

1.000 

1.000 

1.000 

.500 

1.000 

1.000 

1.000 

.500 

1.000 

1.000 

1.000 

•  SOO 

1.000 

1.000 

1.000 

Mission 


1 

l 

4 

i 

.111 

.067 

.120 

.133 

.108 

0.000 

0.000 

.1 00 

.111 

.067 

.120 

.133 

.083 

0.000 

0.000 

0.000 

.083 

0.000 

0.000 

0.000 

.148 

.133 

.151 

.156 

.083 

0.000 

0.000 

0.000 

.083 

0.000 

0.000 

0.000 

.083 

0.000 

0.000 

0.000 

.083 

o.oco 

0.000 

0.000 

4 

7 

8 

9 

.600 

.800 

.750 

•  0S0 

1.000 

1.000 

1.000 

1.000 

.600 

.800 

.750 

.050 

1.000 

1.000 

.750 

1 .000 

1.000 

1.000 

.750 

1.000 

.200 

.267 

.250 

.050 

1.000 

1.000 

.750 

1 .000 

1.000 

1.000 

.750 

1 .000 

1.000 

1.000 

.750 

1.0C0 

1.000 

1.000 

.750 

l . orn 

6 

7 

8 

) 

.067 

.033 

.042 

.010 

0.000 

0.000 

0.000 

o.noo 

.067 

.033 

.042 

.158 

0.000 

0.000 

.042 

0.000 

0.000 

0.000 

.042 

0.000 

.133 

.122 

.125 

.158 

0.000 

0.000 

.042 

0.000 

0.000 

0.000 

.042 

0.000 

0.000 

0.000 

.042 

0.000 

0.000 

0.000 

.042 

o.oco 
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Figure  6-9.  Generalized  logic  flow  for  initialization  of  battle 

parameters  and  6-hour  artillery  ammunition  allocation 
in  subroutine  Set  conditions. 
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Table  6-3.  Firing  range  conditions  for  various  tasks  In  DIME  Indirect  fire  allocation  nodule. 


Terrain  dependent:  open  -  6.0  kn;  rolling  -  5.0  kn;  hilly  -  4.00  km;  mountainous  -  4.0  km. 


Table  6-3.  Firing  range  conditions  for  various  tasks  In  DIME  Indirect  fire  allocation  module  (concluded!. 


w 
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E.  Allocation  of  helicopters  (Help  arrive).  This  ground  combat 
subroutine  allocates  the  number  of  helicopters  to  be  flown  against  the 
opposing  force  for  any  30-minute  period  using  a  cell  methodology.  Figure 
6-10  provides  a  logic  flow  of  this  methodology  contained  in  subroutine 
Helo_arrive. 

(1)  Helicopter  battle  entry.  The  subroutine  checks  three  criteria  to 
determine  if  Blue  helicopters  can  be  scheduled  for  on  battle  site  action. 

(a)  Are  current  force  ranges  less  than  Blue  helicopter  tactical 
entry  range? 

(b)  Is  current  time  less  than  Blue  helicopter  tactical  entry  time? 

(c)  Is  meterological  visibility  greater  than  or  equal  to  2  km? 

The  meteorological  criteria  must  always  be  satisfied.  Helicopters  will  not 
fly  on  less  than  2-km/days.  Satisfying  (c),  if  either  (a)  or  (b)  is 
satisfied,  then  the  subroutine  proceeds  to  calculate  the  number  of 
helicopters  available  at  the  battle  site.  A  similar  check  is  made  for  Red 
helicopters. 

(2)  Helicopters  available  on  site.  The  subroutine  divides  all 
surviving  helicopters  into  battle  cells.  The  number  of  battle  cells  are 
specified  by  the  gamer  and  may  vary  from  one  to  four.  The  cells  allow  the 
gamer  to  apply  constant  pressure  on  the  opposing  ground  forces  by  using  four 
cells  or  a  30-minute  period  of  heavy  helicopter  pressure  followed  by  90 
minutes  of  no  helicopters  on  site  using  one  cell.  Two  or  three  cells  may 
also  be  selected.  The  cells  are  also  used  to  simulate  the  periodic  vacating 
of  the  battle  site  for  refuel  and  rearmament  by  helicopters.  The  subroutine 
considers  a  cell  to  be  on  site  for  30  minutes  and  off  site  for  90  minutes  to 
refuel  and  rearm.  Consequently,  the  subroutine  schedules  the  presence  of  a 
cell  based  on  Table  6-4.  This  scheduling  table  shows  the  number  of  cells  at 
the  battle  site  over  five  consecutive  30-minute  periods  for  various  cell 
configurations.  A  force  of  12  helicopters  is  used  in  this  table.  For 
example,  with  three  cells,  the  helicopters  are  divided  into  groups  of  four 
per  cell.  Cell  one  arrives  on  site  at  the  time  designated  by  the  gamer  with 
four  helicopters.  After  30  minutes,  it  returns  to  refuel  and  rearm  and  is 
followed  by  cell  two  with  four  new  helicopters.  Cell  three  relieves  cell 
two  and  then,  as  it  moves  off  site,  there  are  no  helicopters  in  the  battle 
from  91  to  120  minutes  past  helicopter  entry  time  until  cell  one  returns  at 
121  minutes  past  helicopter  entry  time. 
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Figure  6-10.  DIME  logic  flow  for  helicopter  allocation  found  in 
subprogram  Helo_arrive. 


6-30 


Table  6-4.  On-site  scheduling  table  for  various  numbers 
of  hel icopter  cel  1 s  . 
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(3)  Scouts  available  for  Blue  attack  helicopters  (AHs).  If  scouts 
are  available,  they  are  also  divided  among  the  number  of  cells.  The  actual 
number  of  scouts  accompanying  a  Blue  AH  cell  is  given  by: 


Sc  - 


where : 


MIN  (0.6  *  Ah,  S  *  Ro/C);  if  S  >  0.4  *  Ah 
0;  otherwise 


(Eq.  6-3) 


Sc  =  number  of  scouts  per  cell. 

Ah  =  number  of  attack  helicopters  per  cell. 

Ro  =  an  operational  reliability  factor  for  scouts  (currently 
set  to  0.83). 

C  *  number  of  cells  desired  by  the  gamer. 

S  ■  total  number  of  scouts  in  the  force. 

Note  that  this  essentially  models  the  allocation  of  scouts  along  a  criteria 
which  will  allow  no  more  than  three  scouts  to  five  AHs  (a  3/5  mix)  while 
assuring  that  the  scout  mix  will  be  at  least  2/5.  If  the  2/5  mix  cannot  be 
achieved,  the  subroutine  discards  the  scouts  (see  Figure  6-8)  and  the  Blue 
attack  helicopters  proceed  alone. 


(4)  Following  allocation  of  Blue  helicopters,  the  subroutine  then 
allocates  Red  helicopters  using  the  cell  methodology  described  for  Blue. 
Note  that  the  subroutine  does  not  allocate  scouts  for  the  Red  helicopter 
cells.  Principal  variables  for  the  helicopter  allocation  process  are 
described  under  Helo  arrive  in  Table  6-5. 


F.  Allocation  of  indirect  fire  volleys  for  30  minutes. 

(1)  The  number  of  volleys  of  artillery,  mortars,  and  MLRS/MLR  for  both 
Blue  and  Red  to  be  fired  during  the  30-minute  period  is  calculated  in 
subroutine  Arty_arrive.  The  logic  flow  diagram  for  Arty__arrive  is  in  Figure 
6-11  with  the  subroutine's  principal  variables  found  in  Table  6-5.  The  flow 
diagram  shows  the  subroutine  moving  through  four  areas  of  allocation  each  30 
minutes. 

(a)  Allocation  of  smoke. 

(b)  Allocation  of  prep/counter  prep,  CLGP,  and  GAMP. 

(c)  Allocation  of  close  support  volleys. 

(d)  Allocation  of  counterfire  and  interdictive  volleys. 
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Figure  6-11.  Logic  flow  for  30-minute  allocation  of  artillery, 
MIRS/MRl  and  mortar  volleys  in  subroutine  Arty_arri 
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pET  BOTH  BLUE  i  3££J 

PREP/COUNTERPRE? 
VOLLEYS  TO  ZERO . 


ALLOCATE  30  MINUTE  VOLLEYS  FOR  BLUE/RED 
MORTARS,  artillery,  mlrs  for  prep /coukter- 
prep  WHERE  BATTLE  RANGE  <  PREP /COUNTER- 
PREP  BLUE/RED  OPEN  RANGE. 


IS  BATTLE  RANGE  <  CLOSE  SUPPORT  OPEN  RaNCE 
FOR  BLUE/REO  MORTARS,  ARTILLERY? 


YES 


NO 


CANCEL  PLANNED  PREP/COUNTERPREP  VOLLEYS 
AND  RESTORE  CAPABILITY  TO  MORTARS  AND 
ARTILLERY  FIRINC  CLOSE  SUPPORT. 


IS  3ATTLE  RANCE  >  CLCP  OPEN  RANGE? 


YES 


NO 


CANCEL  PLANNED  CLGP  FIRES  AND  RESTORE 
CAPABILITY  TO  ARTILLERY  SYSTEMS  FIRINC 
CLOSE  SUPPORT. 


IS  BATTLE  RANCE  >  GAMP  OPEN  RANGE? 


YES 


J_NO_ 


CANCEL  PLANNED  GAMP  FIRER  AND  RESTORE 
CAPABILITY  TO  MORTAR  SYSTEMS  FIRING  CLOSE 
SUPPORT. 


& 


Figure  6-11. 


Logic  flow 
and  mortar 


for  30-minute  allocation  of  artillery,  MLRS/MRL 
volleys  in  subroutine  Arty_arrive  (continued). 
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Figure  6-11. 


Logic  flow  for  30-minute  allocation  of  artillery,  MLRS/MRL 
and  mortar  volleys  in  subroutine  Arty__arrive  (continued). 
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Figure  6-11 . 


Logic  flow  for  30-minute  allocation  of  artillery,  MLRS/MRL 
and  mortar  volleys  in  subroutine  Arty_arrive  (concluded). 
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(2)  The  number  of  volleys  allocated  for  each  task  depends  upon  the 
most  restrictive  of  the  following  constraints: 

(a)  The  number  of  tubes  surviving  to  fire  a  particular  task. 

(b)  The  amount  of  ammunition  available  for  use  in  a  particular  task 
for  this  30-minute  period. 

(3)  The  subroutine  uses  the  following  equation  for  allocations  by 
artillery,  mortars,  and  MLRS/MRL: 


Vi j  -  MIN  (Aij/Wj-j,  Ti:|  *  Rj/Wtj)  (Eq.  5-4) 


where : 


VU  * 
Tij  “ 

Wtj  - 
Aij  - 


the  number  of  volleys  from  indirect  fire  system  type  j 
fired  in  response  to  requests  for  task  i  support, 
surviving  tubes  of  type  j  assigned  to  task  i. 
operational  30-minute  firing  rate  of  system  type  j  (tons 
per  30  minutes). 

weight  (tons)  of  one  round  from  indirect  system  of  type 


j. 

tons  of  ammunition  of  type  j  available  for  task  i. 


For  all  tasks  other  than  close  support,  the  A^j  value  is  simply  the  amount 
of  ammo  initially  allocated  by  subroutine  Set_conditions.  This  amount  has 
been  decremented  by  consumptions  which  occurred  during  all  previous  30- 
minute  periods.  However,  for  close  support,  the  subroutine  attempts  to 
limit  the  amount  of  ammunition  available  each  30-minute  period  in  an  effort 
to  keep  constant  pressure  on  the  enemy.  Figure  6-12  provides  a  graphic 
description  of  this  process. 


As  the  enemy  advances  at  a  constant  rate,  each  30-minute  time  step,  the 
subroutine  allocates -a  constant  10  percent  of  all  ammunition  available  for 
close  support.  The  subroutine  maintains  a  reserve  of  50  percent  of  all 
close  support  ammunition  for  use  in  the  final  protective  fire  (FPF)  phase  of 
the  battle  beginning  at  1.5  km.  Normally,  a  force  does  not  advance  at  a 
constant  rate.  The  force  will  move  forward  and  then,  suffering  the  effects 
of  suppression  from  attrition  and  incoming  fire,  will  slow  during  subsequent 
30-minute  advance  periods.  In  this  case,  the  indirect  fire  module  sets  as 
its  goal  the  even  allocation  of  all  close  support  ammunition  against  an 
advancing  force  while  maintaining  a  significant  percent  of  the  ammunition  as 
an  FPF  reserve. 


Referring  again  to  Figure  6-12,  it  will  be  noted  that  the  program  allocates 
the  close  support  ammunition  for  the  30-minute  period  before  calculating 
force  movement  for  that  period.  Consequently,  the  movement  distance  of  the 
previous  30  minutes  is  used  assuming  that  the  advancing  force  will  continue 
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1.0 


Figure  6-12.  Graphical  depiction  of  procedure  for  close 

support  (CS)  indirect  fires.  Graphs  represent 
allocations  against  a  force  advancing  at 
constant  and  variable  rates. 
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at  that  rate  during  this  30-minute  period.  The  following  simple  linear 
approximation  is  used  to  guide  the  uniform  allocation  of  close  support 
ammunition  against  the  enemy  as  it  moves  to  FPF  range: 


ij 


- 


fl  - 


•  Fp)  (Rs  -  Rt) 

Xtij 

Rs  -  Rp 

X^j 

XtlJ  ^  *  1 

f  Rt*  -  Rt 

Xaij  /  ' 

^  Rt  -  Rb 

Xt 


ij 


Xaij 


;  if  Rt  >  Rp 


if  Rb  <  Rt  <  Rp  (Eq.  6-5) 


;  if  Rt  <  l'b 


Fa-Lj  =  MAX  (Fmin,  F^j) 


(Eq.  6-6) 


A^j  “  MIN  (Fa^j  *  Xafj »  ^aij  -  ^ij)  (Eq.  6-7) 


where : 

Fj^j  *  the  fraction  of  indirect  fire  ammunition  tonnage  for 
system  j  allocated  for  close  support  (i)  for  this 
30-minute  timestep  with  strict  maintenance  of  FPF 
reserves. 

Fp  ■  the  fraction  of  close  support  ammo  held  in  re'serve  for 
use  in  final  protective  fires.  Values  currently  used 
for  both  artillery  and  mortals  are  Blue  0.5  and  Red 
0.3. 

Rs  «  tactical  phase  line  open  fire  range  of  artillery  close 
support. 

Rt  ■  range  of  target  at  beginning  of  this  30-minute  period. 

Rp  -  phase  line  range  at  which  final  protective  fire  (FPF) 
will  begin. 

Rb  «■  range  at  which  defender  direct  fire  forces  will  break. 
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Xtij  - 

Xatj  - 

Rt'  = 
Faij  “ 


Fmin  * 


Aij  “ 


total  tonnage  of  type  j  consumed  in  close  support  (i)  in 
all  previous  30-minute  timesteps. 

total  tonnage  of  type  j  available  for  close  support  (i) 
including  FPF  tonnage. 

range  of  target  at  beginning  of  30-minute  period  just 
prior  to  current  period. 

fraction  of  ammunition  type  j  available  for  close 
support  task  (i). 

factor  representing  lower  bound  for  close  support 
allocations  on  targets  of  opportunity.  Fmin=0.083  for 
lower  bound  or  0.20  if  target  is  in  minefield, 
is  as  described  in  equation  6-4  with  i  as  the  close 
support  tasks. 


G.  Force  movement. 


(1)  The  DIME  ground  combat  program  calculates  the  movement  of  the 
attacker  force  every  30  minutes.  The  program  assumes  that  only  the  attacker 
force  moves  with  the  defender  remaining  fixed.  Figure  6-13  provides  a  flow 
diagram  of  the  procedure  used  to  determine  movement  in  subroutines 
Calc_movement  and  Mine_encounter.  Principal  variables  for  these  subroutines 
can  be  found  in  Table  6-5. 

(2)  Subroutine  Calcjnovement  selects  the  unsuppressed  velocity  for  the 
attacking  force  based  on  the  terrain,  mission,  day /night,  and  whether  the 
force  is  primarily  mounted  or  dismounted.  It  then  calculates  three 
suppression  factors  affecting  the  movement. 

(a)  Suppression  from  Calcjnovement  for  a  30-minute  period  can  be 
suppressed  up  to  40  percent  based  on  casualties  from  artillery,  direct  fire, 
and  helicopters  sustained  in  the  previous  30  minutes.  The  following 
equations  are  used  to  represent  movement  suppression  from  casualties: 


Psc  -  the  fraction  of  force  movement  suppressed  this  30  minutes 
due  to  casualties. 

Efp  -  the  force  effectiveness  score  at  the  beginning  of  the 
previous  30-minute  period. 

Efc  =  the  force  effectiveness  score  at  the  end  of  the  previous 
30-minute  period  (i.e.,  current  score  at  the  beginning  of 
this  period). 

Eff  ■  the  force  effectiveness  score  at  the  beginning  of  this 
battle. 
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CMTCft 
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Calc  movement  and  Mine  encounter. 


Note  that  the  force  effectiveness  (Eft)  at  any  time  in  the  battle  is 
calculated  by: 


, 


k 


>  where : 

i 


Eft  = 


k 


Ni  *  Wi 


(Eq.  6-9) 


N^  *  the  number  of  surviving  elements  of  type  i. 

=  the  effectiveness  weight  assigned  to  element  i. 
n  =  70;  the  number  of  different  system  elements. 


(b)  Movement  suppression  from  indirect  fire.  Calc__movement  also 
considers  suppression  from  indirect  fire.  The  suppression  is  directly 
proportional  to  the  average  number  of  indirect  fire  missions  directed  toward 
each  company  of  the  attacking  force.  The  subroutine  calculates  the  number 
of  companies  surviving  in  the  attacking  force  and  then  determines  the 
average  number  of  indirect  fire  (artillery,  mortar,  and  MLRS/MRL)  missions 
being  sustained  by  the  advancing  companies.  A  maximum  suppression  level  of 
40  percent  degradation  in  movement  can  be  achieved  by  an  average  of  six 
missions  in  30  minutes  falling  on  a  maneuver  company.  The  following 
equation  is  used  to  calculate  movement  suppression  from  indirect  fire: 

/  20  47  \ 

Ceqt  =  T  Mi  *  Ntt  +  V  H±  *  Nti/8  /  28  (Eq.  6-10) 

\r«l  i-36  J 

where : 

Ceqt  =*  the  number  of  company  equivalents  in  the  attacking  force  at 
a  particular  time. 

Mi  »  mask  set  to  1,  if  the  ith  element  is  found  in  a  maneuver 
company;  0  otherwise. 

Nti  -  the  number  of  attacker  elements  of  type  i  surviving  at  a 
particular  time. 

28  *  the  number  of  direct  fire  elements  (i  *  1  to  20)  plus 
infantry  (i  -  36-47)  approximating  a  DIME  company  unit. 
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The  number  of  indirect  fire  missions  is  given  by: 


(Eq.  6-11) 

where : 


Idm  *  the  number  of  indirect  fire  missions  falling  on  the 
attacking  force  this  30  minutes. 

(Aiti  +  A^^ARTY  *  ^e  total  tonnage  for  artillery  missions  of  prep  and 
close  support  falling  on  the  attacker  during  these  30 
minutes.  Note  that  1.8  tons  fired  represents  one 
artillery  mission. 

(Ai,i)M  =  the  total  tonnage  for  multiple  rocket  launcher  missions 
of  prep  fired  at  the  attacker  during  these  30  minutes. 
Note  that  1.8  tons  fired  represents  one  MRL  mission. 
To  calculate  Idm  for  Blue,  replace  tonnages  with  Blue 
amounts. 

(Ai  i  Aif2)M0RT  *  the  total  tonnage  for  mortar  missions  of  prep  and  close 

support  fired  at  the  attacker  during  these  30  minutes. 
Note  that  1.2  tons  represents  one  mortar  mission. 

Ajj  -  is  as  defined  by  Eq.  6-7. 


The  suppressive  effects  on  movement  by  indirect  fire  is  given  by: 


Psid  -  Rbf  *  MIN  (Idm/Ceqt  *  6,  1)  (Eq  6-12) 


where : 

Psid  »  the  fraction  of  force  movement  suppressed  these  30 

minutes  due  to  indirect  fire. 

Rbf  *  the  maximum  fraction  of  movement  suppression  due  to 

indirect  fire  for  the  attacking  force  (Blue  attacker 
0.4;  Red  attacker  0.3). 
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(c)  Movement  suppression  from  attack  helicopter.  Movement  is  also 
suppressed  by  attack  helicopters.  The  subroutine  considers  a  maximum 
suppression  of  30  percent  of  the  force  movement  rate  if  one  helicopter  has 
been  allocated  to  each  12  vehicles  of  the  attacking  force.  The  movement 
degradation  is  determined  by  the  following  expression: 

20 

Va  =  £  Nti  (Eq.  6-13) 

i=l 

where : 

Va  =  the  number  of  maneuver  vehicles  in  the  attacking  force 
which  are  potential  targets  for  helicopter  engagement. 

Nt^  *  number  of  elements  i  in  the  attacking  force  surviving  at  a 
particular  time. 


Psh  =  0.3  *  MIN  (12  *  Hn/Va,  1)  (Eq.  6-14) 


where : 

Psh  -  the  fraction  of  the  advance  rate  suppressed  by  the 
helicopters. 

Hn  -  The  number  of  defender  helicopters  currently  attacking  the 
defensive  force. 

The  effective  movement  rate  for  this  30-minute  period  then  becomes: 


R30  =  (1  -  Psc  -  Psid  -  Psh)  *  Rm  (Eq.  6-15) 


where : 

R30  *  the  movement  rate  for  these  30  minutes  (meters  per  30 
minutes). 

Rm  ■  the  unsuppressed  movement  rate.  This  rate  is  a  function  of 
mounted/dismounted,  day/night,  mission,  and  terrain.  Given 
in  meters  per  30  minutes. 


(3)  The  actual  distance  moved  by  the  force  during  the  next  30-rainute 
period  is  determined  in  subroutine  Mine_encounter .  This  code  projects  the 
unimpeded  force  movement  and  then  determines  which,  if  any,  minefields  will 
be  encountered  by  the  attacking  force  as  it  advances  this  30-minute  period. 
If  a  minefield  is  encountered,  the  subroutine  delays  the  force  at  the  edge 
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of  the  minefield  until  it  has  opened  the  minefield.  The  force  uses  two 
tactics  to  open  the  minefield.  The  more  cautious  breach  tactic  is  used  when 
the  trapped  force  finds  itself  under  the  following  conditions: 

(a)  The  attacking  unit  is  beyond  direct  fire  range,  i.e.,  still  in 
the  phase  I  artillery  battle  (30-minute  maximum  delay). 

(b)  The  attacking  unit  has  suffered  attrition  to  within  five 
percent  of  its  tactical  break  point  (45-minute  maximum  delay). 

The  bolder  bull  tactic  occurs  only  if  the  attacker  finds  himself  delayed 
within  direct  fire  range  of  the  defender.  In  this  case,  the  maximum  delay 
time  is  only  10  minutes.  However,  the  choice  of  the  bull  tactic  penalizes 
the  attacker  more  heavily  in  systems  lost  to  mines.  After  selecting  the 
proper  clearing  tactic,  subroutine  Mir.e_encounter  assesses  the  actual  delay 
using  the  following  expression: 


Dm  =  Md  *  Mw  *  Fd  /  Sw 


(Eq.  6-16) 


where: 

Dm  =*  the  delay  (minutes)  of  the  attacking  force  as  it  clears  the 
minefield. 

Md  **  maximum  delay  to  clear  a  minefield  affecting  the  entire 
force  (minutes). 

Mw  *  width  of  the  minefield  (km). 

Sw  ■>  width  of  the  maneuverable  sector  channelizing  the  attack 
(km). 

Fd  ■  fraction  of  the  force  entering  the  minefield. 


After  assessing  the  mine  delay  in  Mine_encounter ,  subroutine  Calc_movement 
then  determines  the  actual  advancement  for  this  30-minute  period  using  the 
following  set  of  equations: 


D  -  30  -  MIN  (Dm  +  Dm',  30) 


(Eq.  6-17a) 


R30  *  D  ;  for  Phases  I  or  III 


Mm  * 


MAX  2, 


R30  *  D  +  250 


500 


\ 


7 


(Eq.  6-17b) 


;  For  Phase  II 


M30  =  Mm  *  500 


(Eq.  6-17c) 
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where: 


M30  *»  the  movement  for  this  30-minute  period  (meters). 

Dm'  ■  any  mine  delay  from  the  previous  30  minutes  extending  into 
this  30-minute  period  (minutes) 

(R30  *  D  +  250)/500j  *  indicates  truncation  to  integer  form. 

Note  that  equations  6-17  have  two  implications  for  the  attacking  force 
finding  itself  in  phase  II: 

(1)  The  force  can  advance  no  more  than  1  km  during  a  30  minute 

period . 


(2)  If  the  force  cannot  move  250  meters  or  more,  it  is  considered 
stationary. 


6.  "UNITFILE"  IMPACT. 

The  ground  combat  program  takes  the  kills  associated  with  mines,  indirect 
fire,  direct  fire,  helicopters,  PGMs,  and  infantry  and  deducts  them  from 
"UNITFILE"  positions  1  to  70.  Associated  ammunition/fuel  consumption  is 
updated  within  the  "UNITFILE".  Ground  combat  attrition  modules  (discussed 
in  following  sections)  return  kills  and  ammunition  consumption  to  this 
ground  combat  driver  and  are  then  updated  to  the  "UNITFILE". 

7.  CODE. 

A.  Following  the  allocation  and  movement  calculations  discussed  in 
paragraph  5  of  this  chapter,  the  ground  combat  program  moves  to  one  of  three 
subroutines  which  drive  the  attrition  algorithms  for  each  phase.  Although 
the  methodology  used  in  the  code  for  the  selection  of  a  battle  phase  is  not 
complex,  it  should  be  noted  that  this  point  represents  a  critical  transfer 
of  control  in  the  DIME  code  structure.  Once  the  phase  is  selected,  the 
phase  drivers  (subroutines  Phasel_btl,  Phase2_btl,  and  Phase3_btl)  are 
structured  as  shown  in  Figure  6-7.  They  have  been  written  with  considerable 
redundancy  which  was  designed  for  ease  of  phase  modification  and  debugging. 
The  phase  driver  subroutines  are  as  follows: 

(1)  Phasel_btl.  The  movement  to  contact  phase,  found  in  the  code  in 
Table  6-14,  drives  the  attrition  algorithms  for  this  part  of  the  battle. 
See  paragraph  2D(1)  for  a  description  of  phase  I.  Attrition  available  to 
this  phase  is  as  follows: 

(a)  Minefield  attrition. 

(b)  Indirect  fire  (artillery)  attrition. 

(c)  Direct  fire  attrition  (15-minute  contact). 

(d)  Helicopter  attrition. 

(e)  Precision-guided  munition  (PGM)  attrition. 
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The  order  of  attrition  does  not  change.  If  a  type  of  attrition  does  not 
take  place,  it  is  skipped  and  attrition  proceeds  in  order. 

(2)  Phase2_btl.  The  direct  fire  phase  drives  the  attrition  algorithms 
for  this  portion  of  the  battle.  See  paragraph  2D(2)  for  a  description  of 
phase  II.  Attrition  available  to  this  phase  is  similar  to  phase  I  with  the 
following  exceptions: 

(a)  Direct  fire  occurs  for  30  minutes  in  phase  II. 

(b)  The  infantry  attrition  module  is  engaged  after  PGMs  if  forces 
are  within  500  meters  of  each  other. 

(3)  Phase3_btl.  The  withdrawal  phase  drives  the  attrition  algorithms 
for  this  part  of  the  battle.  See  paragraph  2D(3)  for  a  description  of  the 
withdrawal  phase.  Attrition  available  to  this  phase  is  as  follows: 

(a)  Indirect  fire. 

(b)  Delivery  of  smoke  for  withdrawal. 

(c)  Direct  fire. 

(d)  Helicopter  attrition. 

(e)  Precision-guided  munitions  (PGMs). 

(f)  Infantry  attrition  if  within  500  meters. 


B.  Each  type  of  attrition  exists  as  separate  modules  within  the  ground 
combat  code. 

(1)  In  order  to  prepare  for  the  minefield  attrition  module,  subroutine 
Runjnine  is  called  by  the  phase  driver  (Phasel_btl  or  Phase2_btl). 
Subroutine  Runjnine  mounts  or  dismounts  troops,  corrects  the  number  of 
dismounted  infantry,  and  keeps  track  of  infantry  kills  on  carriers  as  it 
sends  needed  parameters  to  the  minefield  attrition  module  (Mines) .  For  more 
information  on  the  minefield  module,  see  Section  I  of  this  chapter. 

(2)  Indirect  fire  module  preparation  begins  with  the  calling  of 
subroutine  Arty__sub  by  the  phase  driver  (Phasel_btl,  Phase2_btl,  or 
Phase3_Jbtl) .  Artyjsub  prepares  and  sends  needed  parameters  to  the  artillery 
attrition  module  while  keeping  track  of  current  mounted  and  dismounted 
troops.  The  artillery  module,  Arty_atrit,  is  a  module  of  Artyjsub.  A 
complete  description  of  the  module  and  subroutine  Artyjsub  may  be  found  in 
Section  II  of  this  chapter. 

(3)  Artillery/mortar-delivered  white  phosphorous  smoke  may  be 
allocated  to  degrade  the  visibility  of  the  withdrawing  force.  Degradation 
of  visibility  reduces  the  amount  the  withdrawing  force  can  be  seen  as 
targets  in  direct  fire  combat.  The  smoke  is  allocated  during  the  artillery 
allocation  discussed  in  paragraph  5.  The  percent  of  frontage  visible 
through  a  smoke  screen  is  calculated  by  the  smoke  module  and  later  used  by 
the  direct  fire  module  during  withdrawal.  For  a  complete  discussion  of  the 
smoke  allocation,  smoke  module,  and  its  effects  in  the  direct  fire  module, 
refer  to  Section  III  of  this  chapter. 
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(4)  Section  IV  of  this  chapter  is  devoted  to  direct  fire  attrition. 
The  phase  driver,  after  preparing  some  of  the  parameters,  calls  subroutine 
Df_cbt.  This  subroutine  prepares  more  parameters,  including  the  current 
number  of  mounted  and  dismounted  troops,  and  sends  them  to  the  Df_attrition 
module . 

(5)  The  helicopter  module  is  called  directly  from  the  phase  driver. 
This  means  all  parameter  preparation  (including  mounted/dismounted  troops) 
is  included  in  the  phase  driver  subroutines.  The  duplication  in  each  phase 
should  be  noted  and  remembered  in  case  of  code  changes.  The  helicopter 
module,  itself,  is  discussed  thoroughly  in  Section  V  of  this  chapter. 

(6)  In  order  to  prepare  for  the  PGM  attrition  module,  subroutine 
Clgp  gamp  atrit  is  called  by  the  phase  driver  (Phasel_btl,  Phase2_btl,  or 
Phase3_btl).  Subroutine  Clgp  gamp  atrit  mounts  or  dismounts  troops, 
corrects  the  number  of  dismounted  infantry,  and  keeps  track  of  infantry 
kills  on  carriers  as  it  sends  needed  parameters  to  the  Pgm_atrit  module.  A 
complete  description  of  the  PGM  module  may  be  found  in  Section  VI  of  this 
chapter. 

(7)  Preparing  for  the  infantry  attrition  module,  subroutine 
Infantry_cbt  is  called  by  the  phase  driver  (Phase2_btl,  or  Phase3_btl). 
Subroutine  Infantry_cbt  helps  keep  track  of  the  current  number  of  dismounted 
infantry  and  sends  needed  parameters  to  the  infantry  module.  For  more 
information  on  the  infantry  module,  see  Section  VII  of  this  chapter. 


C.  During  the  preparation  for  each  module,  excluding  smoke,  the  current 
number  of  mounted  and  dismounted  troops  is  calculated.  To  do  this,  two 
other  modules  are  accessed .  The  Dismounted  module  is  called  during  the 
preparatory  phase  of  attrition  module  calling.  This  module,  in  turn,  calls 
the  Load_infantry  module. 

(1)  Dismounted.  This  module  checks  the  force’s  mission  and  distance 
from  opponent.  When  in  a  defensive  mission  (hasty,  prepared,  reserve,  or 
ambush),  all  troops  are  dismounted.  A  frontal  attack  mission  within  600 
meters  of  the  enemy  also  calls  for  dismounted  troops.  If  mounted  troops  are 
possible,  the  Load_infantry  module  is  called  to  determine  the  number  of 
infantry  personnel  per  carrier.  The  number  of  mounted  troops  is  calculated 
by  multiplying  the  total  number  of  carriers  times  the  personnel  per  carrier. 
The  remaining  troops  (the  beginning  infantry  minus  the  number  of  mounted) 
are  left  to  be  dismounted. 

(2)  Load_infantry.  In  order  to  calculate  the  number  of  personnel  per 
carrier,  a  check  is  made  for  the  mission.  A  defensive  mission  has  a  load 
factor  of  zero,  so  that  all  the  troops  remain  dismounted.  If  the  force  has 
an  attacking  mission,  the  load  factor  is  the  minimum  of  the  total  number  of 
infantry  divided  by  the  number  of  carriers,  or  eight,  which  is  the  maximum 
load  factor. 
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(3)  The  subroutines  which  prepare  the  parameters  for  the  attrition 
modules  save  the  original  number  of  infantry.  This  is  then  replaced  by  the 
number  of  dismounted  troops  before  the  number  of  system  elements  are  sent  to 
the  modules.  Upon  return  from  the  modules,  the  load  factor  times  the  number 
of  personnel  carriers  killed  is  added  to  the  total  number  of  infantry 
killed.  The  saved  number  of  infantry  minus  the  total  number  of  infantry 
killed  now  becomes  the  current  number  of  infantry  personnel. 


D.  The  ground  combat  driver's  subroutines  and  their  primary  variables 
are  contained  in  Table  6-5.  A  listing  of  P4  code  appears  in  Table  6-14. 
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Table  6-5.  Subroutine  table  for  ground  combat/driver  routine  (continued) 
Functional  area(s):  Ground  combat  attrition  program  (P4) 
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Mifdt  (I)  Rate  of  change  representing 

percent  of  elements  of  unit  I  that 
can  be  introduced/extracted  from  the 
IF  battle  per  30  minute  interval  while 
maintaining  the  same  mission  (1=1-20) 


Table  6-5.  Subroutine  table  for  ground  combat/drlver  routine  (continued) 
Functional  area(s):  Ground  combat  attrition  program  (P4) 


Table  6-5.  Subroutine  table  for  ground  combat/driver  routine  (continued) 
'Functional  area(a):  Ground  combat  attrition  program  (P4) 
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Sum  of  the  direct  fire  carriers 
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Table  6-5.  Subroutine  table  for  ground  combat/driver  routine  (continued) 
Functional  area(s):  Ground  combat  attrition  program  (P4) 
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.  R_pct_fwd  Percent  of  Red  force  forward. 


Table  6-5.  Subroutine  table  for  ground  combat/drlver  routine  (continued) 
Functional  area(s):  Ground  combat  attrition  program  (P4) 


■ 


% 

/ 


03 

c 

3 

oo 

03 

<L>  °Q 
rH  0) 

X  -H  D)  C 


01 

03 

01 

3 

« 

JX 

03 

rH 

OO 

X 

O 

O 

Cl 

X 

-rH 

X 

u 

(13 

rH 

fH 

CO 

e 

03 

T3 

X 

X 

•M 

O  fH 

01 

01 

X 

03 

C 

**H 

00 

X 

X  rH 

X 

X 

X 

T? 

X 

<0 

01 

■rH 

> 

01  01 

co 

C 

B 

00  x 

• 

VM 

X  o 

JX 

0) 

3 

03 

X 

c 

4-1 

u 

u 

rs 

01 

O 

"TO 

01 

<0 

X 

o 

rH 

CO 

UH  Uh 

(0 

CO 

CM 

to 

rH 

X 

C 

rH 

rH 

c 

fH 

rH 

o  o 

X 

X 

1 

c 

•rH 

00 

3 

X 

3 

01 

4-1 

"H 

to 

X 

X 

r— « 

3 

03 

O 

03 

X 

c 

03 

> 

01 

"ft*  *Mt 

CO 

CO 

N 

00 

0) 

"O 

X 

03 

CO 

01 

o 

*T3 

*H 

HH 

X 

c 

00  X 

rH 

*H 

CO 

T3 

4J 

rH  CO 

rH 

CM  00 

•o 

e 

CO 

B 

03 

X 

• 

■u 

X 

01 

fH 

X 

c 

• 

X 

X 

01 

a 

00 

x 

• 

as  • 

CO 

0  fl 

»-H  01 

01  3 

»-H 

(0 

X 

X 

X 

X 

CO 

H 

•H 

01 

O 

x 

00 

3 

• 

a. 

Cl  O 

*«H 

X 

X 

X 

X 

X 

X 

x 

*o 

4J 

o 

a  c 

n 

-3 

x  >> 

u 

01  C 

13  03 

<0 

CO 

CO 

CO 

01 

X 

o 

o 

4-1 

e  i-< 

CO 

03 

01  X 

X  C/3 

a.  oi  oi  oi 

\ 

l 

t 

I 

X 

•4-t 

<0 

m 

01 

01 

u 

tH  .* 

o 

01 

01 

X 

>\  X  rH  rH 

o 

o 

o 

o 

Cu 

o 

X 

01 

3 

so 

01 

4J  CO 

x 

a. 

a.  oi 

01  01 

X  11  H  rl 

X 

X 

X 

X 

O 

•a 

00 

to 

01 

UH 

X 

►> 

0  3 

3  3 

X  0)  03 

03 

1 

1 

1 

1 

Cl 

X 

01 

**H 

4-1 

Ch  X 

o 

4-1 

Cl  r-« 

rH  rH 

O  »  03  03 

C 

X 

X 

X 

X 

X 

X 

X 

0) 

41 

o 

<4-4 

O  X 

rH 

■H  CQ  CQ  CO 

rH  *rH  -H 

3 

X 

X 

X 

X 

X 

o 

X 

rH 

CO 

o 

4-1 

rH 

*4H 

rH 

01  01  1 

3  e 

00 

CO 

<0 

CO 

CO 

01 

X 

Xl 

*4H 

X 

4J  01 

c 

n 

o 

01  rH 

CM  CO 

X  rH 

X 

03 

03 

<0 

4J 

X 

c  x 

01 

X 

■rH  | 

i  n 

0 

fl 

0 

n 

II 

X 

Q. 

oo 

4J 

3  O 

u 

CO 

a 

0  0 

01  «x 

01 

E 

01 

x 

(X 

c 

T3 

O  cm 

x 

T3 

X 

X 

3  O  rH  CM 

cn 

5 

6 

E 

O 

X 

CO 

O 

JS 

•H 

5.8 

01 

01 

(0 

o 

rH  X 

■rH 

X 

c 

> 

3: 

3 

p-  a: 

Q 

«M 

03  Q. 

X 

01 

I 

X 

01  01 

x  x 

(0  X 

o 

03 

X  • 

01  01 
X  C 
Q.  O 
o  c 
u 

•H  u 

«— <  o 
01  * 
x  x-v 
0)  B 

X  rH 

u  x  c 

*H  X  -rH 

x  co 

5  X  iJ 
3 

ii  u  a 
O  01  c 

4-1  -H 

01  c 
00  01  01 
c  co 
co  o  -h 
OS  X  * 


01 

rv 

o 

X 

/— >. 

X 

X 

XI 

X 

/-s 

a. 

CO 

03 

s_/ 

X 

CO 

• 

JX 

rH 

X 

X, 

01 

X 

X 

01 

X 

£ 

X 

w 

flfl 

-a 

03 

X 

£ 

X 

X3 

> 

CL 

00 

X 

co 

o 

o1 

o 

CL 

c 

*o 

0) 

<S 

X 

X 

> 

o 

01 

X 

X 

« 

0) 

01 

01 

X 

B, 

*-1, 

XI 

u. 

X, 

X. 

X, 

CO 

e 

ex 

E- 

H 

as 

oc 

CQ 

CQ 

CO 

X 

X 

CU 

a 

w 

(X 

O 

3: 

hC 

CQ 

o 

d 


01 

c 


3 

O 

x 


3 
CO  | 


X 

01  <0 


c  CO 
W  *0 


O' 

r-J 


6-58 


a- i 

01 

0) 

3 

o 

01 

»— i 

rH 

a. 

ca 

4) 

6h 

c 

-C 

4-» 

o 

•H 

O  "“N 

**H 

4H 

03 

C 

CM 

o 

o 

03 

o 

1 

•H 

•H 

CO  ^ 

■<te 

o 

s 

03 

a  1 

H 

03 

oi  an 

1 

0) 

X! 

•H 

O  w 

xr 

c 

e 

c 

v 

rH 

3 

o 

e  an 

O  ••  I  10 

Uh  x—s  U  Ul  •< 
CM  -H  -H  CO 
C  I  «  ffl  C/3 

o  — < 

-h  ail 

m  i 

00  — «  CM  CO 


<o  to 
— .  cm  03 
01  4)  a 

H  O.  Q.  O 
>N  (H  O 

a  O  CO 
0) 

*->  T3  "CT  -O 

a  o)  o  v 
o  a  a  a 
o 

-Hill 


03  4-J  • 

•H  a>  01 
<0  rH 
U  ^  4-> 
01  4J 
■U  (0 

a.  o  xa 
o 

o  a>  ai 


a>  o> 
a  JZ 

CO  *-> 

o 

03 

id  - 

a>  a> 

*->  c 
a.  o 
O  c 
u 

•H  I 
rH  O 
0)  w  • 

-C  O 

oi  e 
x:  rH 
o  O  C 


o 

rH 

00  ±-> 

4J 

a  cx 

CM 

rH  0) 

01 

a> 

« 

01  c 

C  t 

01  rH 

x: 

03  0) 

±J  *h 

O  ^ 

x:  -h 

W. 

01 

c 

*H 

u-t 

0) 

6  01 

00 

01  01 

03  1 

-a  o 

e 

O  4J 

c 

03 

03 

01  a 

*H 

a  C 

© 

°  T? 

-H  1-H 

oc  a. 

UH  01 

Otf 

4-»  > 

0)  c 

<n  o 

H  *H 

e  o) 

01 

-a  -h 
C  6  C 
3  O 
O  V-  -H 
a  -H  03 

oo  eo  cd 
I  I  -H 
O  O  B 
a 

..  I  I  Q 

x-v  a  a  -< 
CM  -H  -H  CO 


•rH 

a 

-o 

an 

iM 

la 

CO 

rH 

4J 

03 

X3 

G 

O 

U 

x— x 

aH 

c 

03 

6, 

a- 1 

00 

r— s 

~3 

*-H 

V-/ 

a 

a. 

X* 

jj 

ta 

<0 

rH 

01 

01 

I) 

u, 

an 

c 

03 

El 

X— V 

an 

00 

a. 

-a 

c 

3 

O 

✓ — - 

MT 

0U 

o' 

rH 

01 

-C 

:< 

a* 

O 

f— l 

01 

•C, 

o' 

H 

0) 

■*, 

o' 

rH 

0) 

o' 

rH 

01 

•=, 

o' 

rH 

0) 

J 

a» 

a 

00 

B 

03 

03 

os' 

as 

os' 

oc: 

os 

OS 

co 

, 

• 

a 

o 

a 

oc 

H 

Ca 

-< 

CO 

o' 

Q 

CO 

Ca 

*J  u 

u  c 

c  o 

3  ON  CJ 
U-  *J  w 


Table  6-5.  Subroutine  table  for  ground  combat/driver  routine  (continued) 
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Table  6-5.  Subroutine  table  for  ground  combat/driver  routine  (continued) 
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Clgp_avall  Number  of  CLGP  available  for 

the  current  battle. 


Table  6-5.  Subroutine  table  for  ground  combat/drlver  routine  (continued) 
Functional  area(a) :  Ground  combat  attrition  program  (P4) 


iJ 

to 

0) 

c 

00 

u 

c 

3 

V 

0 

c 

0 

4)  .* 

O 

at 

■H 

•.V 

a. 

►s 

U  (0 

• 

tH 

vt 

0) 

00 

V 

a. 

V 

C  V 

at 

4J 

> 

at 

0) 

3 

3 

3 

>s 

4) 

0  u 

> 

> 

a* 

B 

•H 

«*H 

•O 

cn 

u 

u 

rH 

u  x> 

u 

V 

u 

B 

V 

■0 

41 

<0 

»H 

3 

3 

a, 

3 

•O 

*  at 

• 

v 

Vt 

tH 

c  0 

0 

u 

at 

C 

T3 

at 

V-t  vl 

V-4 

to 

f—t 

Vi 

Vl 

ft  Vl 

*V4 

0 

O 

Vl 

T3 

v-y  c 

t-y 

vt 

-ri 

O 

V 

00 

$ 

00 

O 

c 

T3 

c 

at 

V-t  3 

t— < 

u 

4-1 

a 

00 

4)  V 

0 

as 

at 

at 

3 

VI 

0 

0 

V 

X*  O 

*o 

> 

0 

•  •  4J 

O 

C 

at  B 

at 

a 

« 

CO 

co 

•H 

U-t 

c 

•o 

V 

at  c 

e 

3 

03  03 

03 

0 

a 

O  V 

0 

0 

at  • 

to 

0 

0.  3 

03 

O 

to  ■*-< 

CO 

s 

C/3 

vi  a. 

T3 

<VI 

►>  0 

•H 

e 

JZ  *0 

-C 

O 

V 

V 

at 

at 

VJ  O 

<VI 

vt  a 

• 

■O 

• 

ex 

0. 

0 

0 

/-v  4) 

at 

at 

<0  i-d 

O 

Vi 

v-t 

t-t 

> 

> 

h 

»- 

%4 

03  V 

c 

c 

V 

O 

at  at 

at 

a 

00  to 

00 

O 

O 

V  -H 

j* 

at  at 

at 

VM 

u  a 

at 

0 

at 

v. 

c  u 

c 

H>4 

4) 

41 

at  u-4 

00  0. 

vt 

c  e 

03 

c 

03 

•0 

•H  *0 

f-t 

00 

00 

4J 

VI 

vt 

c 

CO 

at 

to  to 

CO 

0 

(0 

-C 

v  xr 

V 

4) 

0) 

c 

c 

4)  ►% 

as 

<0 

to  at 

V 

VI 

>  > 

JZ 

> 

x: 

Vt 

3  vt 

3 

OO 

OQ  - 

flO  • 

to  * 

e  w 

u  u 

3 

•O  -o 

0.-0 

a. 

•S 

-0  1-t 

-0 

C 

C  Vl 

U  i~> 

V.  V> 

v-/  0) 

VI 

VI 

3 

E 

C 

3  « 

to 

> 

a  -o  ^ 
c 

V  03  K 
01 

Q.  *-3  t-i 


<U  OJ  OJ  0) 
>  >  >  > 
01  OJ  <D  0) 
H  «— <  f-H  »— 4 

o' o' o' o' 
c  c  c  c 
0000 

n1  o1 
o  <n  o  03 

B  "a  a  -a 

CQ  CQ  Otf  OC 


00  00  O0  00 
u  u  V.  u 
X  4J  iJ 
Vt  Vt  V.  V. 

V  u  O  O 

ffl  (D  P  F 

I  I  I  I 

OOOO 

C">  CO  cn  CO 

°1  “l  “l  “l 
cxa'a:  cq 


6-62 


o 

X> 

03 

co 

4) 

C 

B 

a.  -a 

O 

4H 

U 

03 

►n  43 

•H 

• 

O 

43 

fH 

i-l  u 

03 

3 

• 

T3  CD 

JC 

■H 

03 

►» 

• 

CD 

43 

Li 

L> 

C  VM 

*H 

X3  C 

03 

03 

U 

Ll  C 

o  • 

0 

o 

L. 

43 

u 

3  4) 

43 

a.  co  co 

•o  fH 

43 

C 

o 

/""V 

00 

O  B 

rH 

O  CO 

rH 

43  03 

Ll 

43 

VM 

T3 

c 

4) 

-Q 

43  O  C 

rH 

L  03 

4) 

> 

43 

o 

M  *H 

CO 

*  fH  3 

4) 

e 

•H 

*3 

3 

tH 

C  4) 

rH 

03  O 

»M  B 

4-1 

4) 

C 

Li 

fH 

h(D  U 

h 

c 

O 

OC 

•H 

a 

U  B 

ea  Xi  m 

O 

03  C 

H 

43 

\ 

4J 

fH 

a.  4) 

> 

8  *m 

•o  o 

Vm 

43 

e 

L 

l> 

ca 

Ll  O 

c 

■o 

UH 

3 

o 

O 

O  03 

C  rH 

LH 

3  HH 

03 

43 

rH 

u 

a 

Ll 

o 

U  H  U 

o 

> 

CQ 

v-/ 

4) 

03  • 

B  43  43 

43  • 

L  43  • 

O 

4-1 

•a 

T3 

H 

00  ^ 

0.^“s 

CX^*-N 

B 

c 

43 

4) 

43  C  O 

3 

43  C  § 

KlO 

vm 

43 

l. 

C 

4) 

fl  o 

a  o  3 

Ll  rM 

O  W  H 

43 

u 

■H 

«H 

rH 

3  Q,  | 

VM 

c 

1 

1 

O 

V- 

4-1 

Li 

«o 

43 

o 

43  ^ 

C  rH 

U  e  rH 

C 

3 

c 

3 

a 

►*  4) 

*3IAH 

o 

43  O 

43 

u 

03 

O 

•H 

B  *  « 

03 

3  —•  43 

Q.  1 

x  a.  1 

4-> 

l 

L 

L 

c 

C  1  Ll 

CO 

S  6 

CO 

4) 

43 

(0 

k  CH 

o 

fH  rH  O 

03  HH 

3  43  H 

fH 

-C 

J= 

l 

> 

-CO'—' 

E- 

B  '-'H 

>  w 

2 

Q 

M 

4) 

CD 

/-\ 

03 

4-J 

43 

LH 

O 

(0 

rH 

N-O 

c 

X 

X3 

•D 

B 

B 

43 

> 

O 

fH 

4) 

LH 

-o 

<J 

Li 

/H 

rH 

v> 

B, 

Li 

Li 

CO 

LH 

rH 

I 

a. 

a. . 

~a 

> 

o 

tK 

VL 

c 

<r 

>, 

4) 

O, 

VM 

VM 

3 

a. 

►i 

►n 

rH 

VM 

VM 

o 

NH 

L. 

Li 

L) 

rH 

Li 

,  43, 

l 

B 

/H 

B 

o 

o 

S 

00 

Sj 

0 

LH 

CO 

> 

*< 

CQ  OC 

43 

•H 

Li 

u. 

L 

« 

• 

• 

• 

• 

o 

U-t 

OC 

0*1 

CO 

-< 

(3 

CJ 

Q 

*< 

Li 

43 

a 

LH 

rH 

o 

Li 

43 

X» 

c 

r— > 

•3  « 

•H 

f-H 

<0 

o 

CO 

C  rH 

Li 

e 

Li 

4J 

fH 

c 

3  Li 

• 

• 

c 

3 

4-> 

Li 

c 

o 

O  LI 

43 

4) 

3 

B 

43 

tH 

o 

c 

fH 

Li  S 

rH 

Li 

43 

O 

rH 

X 

C 

l 

fH 

o  _ 

Li 

00-0  J*  B 

c 

O 

B 

CO 

fH 

Li 

Li 

B 

-H 

C3  > 

4)  **H 

Li 

B  • 

•H 

rH 

4-1 

Li 

o 

B  41 

Li 

Li  43 

B  "H 

u 

O 

O 

T3 

Li 

B 

3 

CO 

c 

L>  Li 

4J 

O  L> 

LI  Li 

u 

VM 

C  4) 

fH 

C 

O 

3 

B  a 

Li 

'Ll  CO 

L>  Li 

3 

43 

O  4) 

c 

fH 

u 

Li 

VM 

*3  ►» 

B 

-a 

B  B 

U 

4) 

"O 

3 

fH 

VM 

x> 

4} 

03 

os  a. 

43 

43 

B 

3 

X> 

43 

Li 

CO 

Li  SD 

Li  Li 

43 

C 

OC 

Li  C 

Li 

4J 

CO 

B 

C 

3  -a 

43 

c 

43  43 

at 

B  O 

3 

3 

O 

*H 

O  43 

Li 

CO  Li 

Li 

> 

T3 

*3  fH 

O 

O 

• 

u 

Li 

B 

B 

a. 

fH 

C 

Li 

• 

03 

• 

3 

43  VM 

rH 

43  43 

o 

43 

Li 

B 

43  fH 

03 

43 

03 

LI 

m 

■3 

O 

Li  fH 

3 

43  rH 

•  u 

Li 

o 

LI  e 

Li 

3 

Li 

rH 

«A 

c 

L 

c  u 

O 

43  Li 

43  *H 

C 

03 

43 

C  3 

C 

Li 

c 

3 

3 

-Q 

*H  43 

rH 

a  m 

B  rH 

fH 

VM 

3 

fH  E 

fH 

« 

fH 

43 

o 

3 

Li  O. 

<3 

«  « 

M  43 

U 

VM 

rH 

Li  E 

Li 

L) 

L 

43 

43 

u 

CO 

a*  a 

CO  JO 

Li  £ 

a. 

43 

CQ 

CL  B 

Q- 

03 

CL 

L 

rH 

o 

XJ 

43 

•• 

H 

0 J 

•3 

CO 

4) 

43 

rH 

Li 

rH 

43 

0) 

4} 

CO 

Li 

rH 

4] 

43 

03 

o 

3 

L> 

>N 

Li 

43 

o, 

Li 

43 

L 

rH 

43 

B 

rH 

4-1 

I 

43 

C 

0) 

XJ 

<M 

rH 

•H 

C 

e 

•H 

►> 

| 

VM 

o 

c 

fH 

o 

Li 

rH 

43 

> 

<4H 

3 

o 

| 

1 

| 

Li  ^ 

! 

Li 

O 

Li 

Li 

Lj' 

4-1 

4-1 

O 

L 

c 

Li 

C 

c 

e 

c 

c 

^3 

fH 

c 

•H 

fH 

•H 

*rJ 

3 

3 

Li 

o 

Li 

Li 

L« 

L 

C&4 

CO 

a, 

CJ 

CL 

CL 

CL 

CL 

6-63 


u 

*T3 


JO 

6 

O 


t- 

O 


T3  “O 


VM  «AJ 

0) 

b 

VM 

B 

9) 

=  | 

I3| 

J  J 

AJ  AJ 

o' 

'o1 

VM  IM 

c 

g 

o  o 

0)  B 

§ 

1 

CO  CO 

HH| 

B, 

>  > 

|  | 

* 

B  B 

VM  VM 

VM 

VM 

X-' 

U  U 

•H  «H 

-r4 

<x  a- 

03  OC 

03 

0C 

• 

• 

• 

•< 

•< 

03 

o_used 

o_used 

"O  T3 

(i.J) 

(I.J) 

•o  -) 

V-H  »— < 

K 

i  i 

o  b 
<n  <n 

3,  3. 

^  u 

o1  o' 

»— <  r—i 

I 

>  > 

0)  o 

<4-1  Vl 

X!T3 

JZ, J=. 

o,  «. 

1 

mLI 

03  0£ 

^I  l 

pa  dc: 

■r-i  -H 

CJ  o 

tH  tH 

o  o 

. 

# 

O 

b3 

u. 

o 

J2 

« 


3 

O 

u 

.o 

3 

CO 


u"> 

I 

vO 


<Q 

E-t 


a 

AJ 

o 

« 

AJ 

3 

*»“> 

B 

B 

T3 

3 

H 

B 

• 

AJ 

aJ 

B 

B 

AJ 

B 

1m 

AJ 

B 

J= 

o 

« 

• 

J3 

• 

AJ 

u 

a 

a 

B 

AJ 

H 

V- 

AJ 

B 

•H 

•H 

O  C 
«AJ  «H 

O 

0)  o. 
-*  .* 
u  <a 
o>  « 

jC  U 

o  x> 


B  u 

AJ  0) 

<n  > 
»h  o 

3  o. 
O  0) 
rH  w 

<3£ 


C  «M 
3 

►> 

CO  u 

B  o 

AJ  AJ 
«H  B 
U  «H 

I*  J= 


B 


6-64 


Table  6-5.  Subroutine  table  for  ground  combat/driver  routine  (continued) 
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to  GAMP  in  this  30  minute  segment 


Table  6-5.  Subroutine  table  for  ground  combat/dri ver  routine  (continued) 
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Table  6-5.  Subroutlae  table  for  ground  conbat/driver  routine  (continued) 
Functional  area(a):  Ground  combat  attrition  program  (P4) 
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Table  6-5.  Subroutine  table  for  ground  corabat/driver  routine  (continued) 
Functional  area(a):  Ground  combat  attrition  program  (P4) 
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Table  6-5.  Subroutine  table  for  ground  combat/drlver  routine  (continued) 
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D_pct_fwd  Percentage  of  defenders  forward. 


Table  6-5.  Subroutine  table  for  ground  combat/drlver  routine  (continued) 
Functional  area(a):  Ground  combat  attrition  program  (P4) 
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Table  6-5.  Subroutine  table  for  ground  combat/driver  routine  (continued) 
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Table  6-5.  Subroutine  table  for  ground  corobat/driver  routine  (continued) 
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Red_f_t(*)  Array  containing  fraction  of  Red 

force  which  is  a  target  for 
this  30  minutes. 


Table  6-5.  Subroutine  table  for  ground  corabat/driver  routine  (continued) 
Functional  area(s) :  Ground  combat  attrition  program  £P4l 
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Table  6-5.  Subroutine  table  for  ground  combat/driver  routine  (continued) 
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Table  6-5.  Subroutine  table  for  ground  corabat/drlver  routine  (continued) 
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Table  6-5.  Subroutine  table  for  ground  combat/dri ver  routine  (continued) 
Functional  area(s):  Ground  combat  attrition  program  (P4 ) 

Subroutine  called  Subroutine  functlon(s)  Primary  variables  Variable  descriptions 
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Section  I.  Minefield  Attrition 


1.  PURPOSE. 

The  purpose  of  the  DIME  ground  combat  minefield  attrition  module  is  to 
calculate  losses  to  70  types  of  elements  due  to  an  encounter  with  a 
minefield  in  a  sector  battle. 


2.  GENERAL. 


A.  Minefield  attrition  is  assessed  for  an  attacking  force  encountering  a 
minefield  during  phase  I  (pre-closure)  and  phase  II  (direct  fire)  of  the 
sector  battle. 

B.  The  defender  may  emplace  a  maximum  of  three  minefields  per  sector 
battle,  simply  by  indicating  the  location  (battle  range)  and  the  percent  of 
the  attacking  force  entering  the  minefield. 

C.  The  minefield  is  emplaced  using  a  ground-emplaced  mine-scattering 
system  (GEMSS)  of  two  strips  of  mines  each  with  a  depth  of  60  meters  and  a 
density  of  0.007. 

D.  Two  tactics  may  be  used  by  the  attacker  in  crossing  the  minefield  in 
which  the  percentage  of  expected  kills  varies  accordingly. 

(1)  Bull  tactic,  pushing  through  forcefully,  minimizing  time.  This 
tactic  occurs  if  the  minefield  is  within  direct  fire  range. 

(2)  Breach  tactic,  clearing  passageway  minimizing  losses.  This  tactic 
occurs  if  the  minefield  is  outside  of  direct  fire  range. 

E.  The  formation  of  systems  varies  according  to  the  phase  of  battle. 

(1)  Phase  I  (pre-closure).  The  systems  entering  have  time  to 
disperse  and  become  less  dense,  forming  more  columns  upon  entering  the 
minefield. 

(2)  Phase  II  (direct  fire).  The  systems  are  more  densely  situated, 
forming  fewer  columns  upon  entering  the  minefield. 

(3)  Phase  III  (withdrawal).  Minefield  attrition  does  not  occur  in 
this  phase. 
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3.  DATA  FLOW. 


All  needed  Information  is  received  from  the  ground  combat  mainline  except 
for  the  internal  data  of  expected  kills.  The  information  flow  is 
represented  in  Figure  6-14. 

4.  FILE  STRUCTURE. 

The  only  files  associated  with  the  minefield  subroutine  are  held  as  internal 
data  statements.  These  contain  the  percentage  of  expected  losses  to  the 
attacker  according  to  the  bull/breach  tactic  and  whether  Red  or  Blue  units 
are  attacking. 

5.  ALGORITHMS. 

A.  Figure  6-15  shows  a  generalized  logic  flow  of  the  processes  in  the 
ground  combat  mine  attrition  subroutine.  Minefield  attrition  is  figured  by 
calculating  the  minefield  coverage  fraction,  a  column  number  for  the  force 
density,  and  then  calculating  the  losses  accordingly  using  the  percentage  of 
expected  kills.  The  following  paragraphs  provide  a  more  detailed 
description  of  the  algorithms  used  in  the  attrition  process. 

(1)  Calculate  minefield  coverage  fraction.  The  width  of  the  minefield 
and  the  sector  width,  as  input  at  the  beginning  of  the  ground  combat  module, 
are  used  to  calculate  the  coverage  fraction  as  follows: 

Mcf  -  Mw/Sw  (Eq.  6-18) 

where: 

Mcf  =  minefield  coverage  fraction. 

Mw  «  minefield  width. 

Sw  «  sector  width. 

(2)  Calculate  columns.  Columns  represent  the  deployment  density  of 
systems  according  to  the  current  battle  phase  as  discussed  in  paragraph  2E. 

C  *  Totsys/N  (Eq.  6-19) 

where: 

C  «  columns. 

Totsys  ■  total  number  of  all  systems  entering  minefield. 

N  -  3  for  battle  phase  I  . 

6  for  battle  phases  II  &  III  . 


* 


Figure  6-15.  Minefield  attrition  logic  flow. 
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(3)  Calculate  losses. 

Mcf  *  Sys-j^ 

L±  -  -  *  C  *  Eki  (Eq.  6-20) 

Totsys 

where: 


Li  ■  number  of  losses. 

Sysi  *  the  number  of  type  systems  entering  the  minefield. 
Eki  «  percentage  of  expected  kills  per  system. 


6.  "UNITFILE"  IMPACT. 

This  subroutine  does  not  directly  impact  the  unit  status  file  ( "UNITFILE" ) . 
Kills  calculated  in  this  subroutine  are  returned  to  the  ground  combat  driver 
which  in  turn  decrements  all  kills  from  the  "UNITFILE". 


7.  CODE. 

A.  Introduction.  This  section  contains  information  on  the  minefield 
attrition  code.  The  functional  areas  discussed  in  the  following  paragraph 
are  represented  in  Figure  6-16. 

B.  Mine  attrition  functional  areas. 

(1)  The  low  resolution  data  are  received  from  the  ground  combat 
mainline  and  consist  of  the  systems  entering  the  minefield,  the  minefield 
width  and  sector  width,  the  attacker  (Red/Blue  force),  whether  the  attacker 
will  bull  or  breach  the  minefield,  and  the  current  battle  phase. 

(2)  The  array  containing  the  number  of  kills  is  initialized  to  zero 
before  any  attrition  is  made. 

(3)  The  low-resolution  data  and  other  minefield  characteristics  are 
checked.  If  inappropriate  information  has  been  passed,  attrition 
calculations  will  not  take  place  and  an  array  of  zero  kills  will  be  returned 
to  the  mainline.  The  appropriate  characteristics  should  consist  of: 

(a)  Minefield  width  not  equal  to  zero. 

(b)  Sector  width  not  equal  to  zero. 

(c)  Percentage  of  forces  entering  minefield  not  equal  to  zero. 

(d)  Minefield  must  be  unused. 

(e)  Bull/breach  flag  equals  1  or  2. 
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(4)  If  the  minefield  characteristics  are  appropriate,  the  expected 
kill  data  are  then  loaded  from  internal  data  statements. 

(5)  The  minefield  coverage  fraction  is  now  calculated  from  the  low- 
resolution  data. 

(6)  The  density  of  the  forces  is  calculated  according  to  the  current 
battle  phase  which  is  referred  to  as  the  columns. 

(7)  Losses  to  the  attacking  force  are  then  calculated  using  the 
expected  kills,  minefield  coverage  fraction,  and  columns  per  the  70  systems. 

(8)  A  flag  is  then  set  to  show  that  the  minefield  has  been  assessed, 
so  as  not  to  be  used  again. 

(9)  The  number  of  kills  per  system  is  then  returned  to  the  ground 
combat  mainline. 

C.  Primary  variables.  The  primary  variables  of  each  functional  area  of 
the  minefield  attrition  subroutine  are  shown  in  Table  6-6.  Each  variable  is 
accompanied  with  a  short  description.  Table  6-14  contains  a  code  listing  of 
the  ground  combat  program. 
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Table  6-6.  Minefield  attrition  subroutine  table. 
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Represents  one  of  the  possible 
three  minefields  currently 
being  assessed 


Section  II.  Artillery  Attrition 


1.  PURPOSE. 

The  purpose  of  the  DIME  indirect  fire  subroutine,  Arty_atrit,  is  to 
determine  the  losses  to  each  of  the  70  element  types  resulting  from  the 
delivery  of  artillery,  rockets,  multiple  launch  rocket  systems  (MLRS  for 
Blue)/multiple  rocket  launchers  (MRL  for  Red),  and  mortar  munitions  during 
the  30-minute  interval. 

2.  GENERAL. 

A.  Interface  with  the  main  ground  combat  program.  Arty_atrit  is  called 
from  each  of  the  three  battle  phase  drivers  discussed  in  the  introduction  of 
this  chapter.  Figure  6-17  provides  an  overview  of  the  interface  between  the 
phase  drivers  and  Artyjatrit.  The  interface  subroutine,  Arty_sub,  prepares 
both  the  vehicular  and  personnel  target  arrays.  It  also  maintains  a  counter 
of  the  successive  number  of  30-minute  intervals  that  the  targeted  force  has 
been  subjected  to  indirect  fire.  Following  the  attrition  calculations  by 
Arty_atrit,  Arty_sub  posts  the  vehicular  and  personnel  losses  before 
returning  to  the  battle  phase  driver. 

B.  Arty  atrit  structure.  Since  DIME  is  low-resolution,  target 
acquisition  is  represented  implicitly  in  two  ways.  First,  indirect  fire  use 
is  structured  around  five  fire  support  tasks  (prep,  counterprep,  close 
support,  SEAD,  and  interdiction).  Associated  with  each  task  is  an  implied 
target  acquisition.  Second,  there  are,  in  essence,  four  steps  used  in  the 
assessment  of  attrition  to  indirect  fire:  set-up  target  area,  determine 
elements  targeted,  determine  ammunition  fired,  and  assess  damages. 

(1)  Set-up  target  area.  The  total  area  of  the  targeted  force,  input 
by  the  gamer,  is  reduced  based  upon  the  associated  fire  support  task.  This 
represents  that  portion  of  the  total  area  occupied  by  the  elements  targeted 
for  a  specific  fire  support  task,  as  well  as  the  likelihood  of  acquiring 
them.  This  area  is  then  further  modified  based  upon  the  ability  of  the 
targeted  force  to  disperse.  The  ability  of  the  targeted  force  to  disperse 
is  determined  by  two  factors:  dispersion  mask  and  whether  the  force  is 
mounted  (R«l)  or  dismounted  (R-0).  The  dispersion  mask  is  a  3  X  10  boolean 
array  consisting  of  three  battle  phases  and  10  missions.  The  dispersion 
mask  may  permit  the  force  to  increase  its  battle  area  radius  if  the  given 
battle  phase  and  mission  are  1.  If  the  force  can  disperse,  the  increase  in 
the  radius  of  the  equivalent  circle  is  1200m  if  mounted  (R=l)  and  200m  if 
dismounted  (R*0)  for  a  30-minute  timestep,  thus  diluting  the  density  of  the 
targeted  elements.  See  Figure  6-18  for  a  graphical  representation. 
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EffTER  FROM  SATTLc  PHASE 
DRIVER  I,  II  qr  in 


Figure  6-17.  Logic  flow  of  indirect  fire  subroutine  Arty_$ub  (showing 

principal  functions  In  calling  the  indirect  fire  attrition 
module  Arty_atrit). 
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TARCET  MISSION:  RESERVE 
INDIRECT  FIRE  TIME:  60  MINUTES 


Figure  6-18.  Schematic  of  notional ized  artillery  target. 

Shows  bands  for  concentrating  indirect  fires  in  mission 
roles  of  prep,  interdiction,  close  support,  suppression 
of  air  defense  and  counterfire. 
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(2)  Determine  elements  targeted.  Though  the  quantity  of  each  target 
element  is  passed  into  Arty_atrit  in  the  Sys_arty(*)  array,  it  is  further 
modified  to  allow  for  selective  targeting  for  each  fire  support  task. 

(3)  Determine  ammunition  fired.  The  weight  of  ammunition  fired  is 
passed  into  Arty_atrit  in  the  Bif_fired(*)  and  Rif_fired(*)  arrays.  It  is 
then  converted  into  the  number  of  standard  fire  unit  vollies  fired. 

(4)  Assess  damages.  The  majority  of  Artv_atrit  deals  with  this 
function.  Given  the  items  discussed  above,  it  determines  the  losses  to  the 
targeted  force  in  each  of  the  70  elements  using  the  methodology  given  in  the 
Joint  Technical  Coordinating  Group  for  Munitions  Effectiveness  (JTCG/ME) 
document  and  the  Super  Quickie  II  model. 


3.  DATA  FLOW. 

The  Arty_atrit  subroutine  has  three  basic  sources  of  data:  the  DIME  host, 
munitions  description  from  external  files  and  target  profile  from  external 
data  structures.  See  Figure  6-19  for  a  graphical  presentation. 

A.  DIME  host  data.  These  data  are  passed  to  Arty_atrit  as  calling 
arguments.  They  include: 

(1)  Tonnages  of  ammunition  expended  by  artillery,  rockets,  and  mortars 
for  both  Red  and  Blue. 

4 

(2)  Target  elements  potentially  available  to  be  attacked  by  indirect 
fire  for  both  Red  and  Blue. 

(3)  Target  dimensions  of  entire  force  engaged  in  the  battle  for  both 
Red  and  Blue. 

(4)  Mission  and  battle  phase  of  the  target  unit  for  both  Red  and  Blue. 

(5)  Cumulative  time  under  indirect  fire  attack  for  both  Red  and  Blue. 

B.  Target  profile.  These  data  are  structured  externally  and  include: 

(1)  Target  band  sizes  for  each  fire  support  task. 

(2)  Dispersion  mask  for  each  phase  and  mission  of  the  targeted  force. 

(3)  Target  mask  array  for  each  fire  support  task  and  targeted  element, 
thus  allowing  selective  targeting  for  each  task. 

(4)  Round  packaged  weight  (in  short  tons). 

(5)  Personnel  (infantry)  profile  which  permits  i_he  hardening  of  this 
element  over  time. 
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DIME  HOST  DATA 


l 
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P 

* 

i 

i 


*  Indicates  internal  data  structure. 


Figure  6-19.  Data  flow  for  the  indirect  fire  attrition 
module,  Arty_atrit. 
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C.  Munitions  descriptions.  These  are  accessed  from  external  files  and 
include: 

(1)  Artillery,  rocket,  and  mortar  round  (or  submunition)  effects 
against  each  of  72  target  elements.  It  should  be  noted  that  personnel 
(infantry)  are  further  divided  into  prone  and  prone-protected  postures. 

(2)  Ballistic  delivery  error  for  each  type  of  fire  support  and  system 
(artillery,  rockets,  and  mortars)  for  both  Red  and  Blue  at  some  fixed  range 
(normally  1/2  or  2/3  maximum  range).  These  include  precision  mean  point  of 
impact  (MPI)  errors. 

(3)  Volley  pattern  descriptors  which  describe  the  standard  volley 
pattern  of  the  fire  unit  for  each  type  of  fire  support  system  for  Red  and 
Blue. 


(4)  Round  reliability. 

(5)  Target  location  error  (TLE)  which  represents  the  error  associated 
with  a  generic  target  acquisition  device  for  each  fire  support  task  (e.g., 
forward  observer  for  close  support). 


4.  FILE  STRUCTURE. 

Two  sets  of  external  files  are  used  by  Arty_atrit:  lethal  areas  and  fire 
delivery  parameters. 

A.  Fire  delivery  files.  Each  file  consists  of  fifteen  records,  seven 
for  artillery,  four  for  rockets  and  four  for  mortars.  Each  record  includes: 

Index  Description 

1  Length  of  damage  pattern. 

2  Length  of  damage  pattern  factor  which  is  determined  by 
the  angle  of  fall  for  the  range  used. 

3  Probability  of  damage  factor  determined  by  number  of 
submunitions,  submunition  reliability,  length,  and  width 
of  submunition  pattern. 

4  Precision  error  range  for  range  used. 

5  Precision  error  in  deflection  for  range  used. 

6  Length  of  volley  factor  for  one  fire  unit  volley  in 
range. 
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Index 


Description 


7 


l 


i 

i 

‘ 

> 


8 

9 

10 


Width  of  volley  factor  for  one  fire  unit  volley  in 
deflection. 

Individual  round  reliability. 

MPI  error  ir  deflection  for  range  used. 

MPI  error  in  range  for  range  used. 


B.  Lethal  area  files.  Each  file,  dependent  on  Red  or  Blue,  consists  of 
fifteen  records,  seven  for  artillery,  four  for  rockets,  and  four  for 
mortars.  Each  record  contains  72  items,  one  for  each  of  70  weapon  elements 
plus  one  for  prone  personnel  and  one  for  protected  prone  personnel. 


5.  ALGORITHMS. 

The  primary  algorithm  used  in  Arty_atrit  is  the  Super  Quickie  II.  This 
algorithm  requires  a  definition  of  the  target  area  elements  targeted,  and 
volleys  fired.  These  are  used  to  calculate  the  losses  to  targeted  elements 
due  to  indirect  fire. 

5 

PSi  =  TT  (1  -  Fdij)  (Eq.  6-2 la) 

>1 


where: 

Psi  »  probability  of  survival  of  element  is  from  direct  fire, 
i  ■  target  element 
j  *  fire  support  task 
Fdij  *  calculated  as  follows: 

Fdij  “  ^crij  *  *  ^nvij  (Eq.  6-21b) 

where : 


Fdij  = 

Ecrij  - 


expected  fractional  damage  to  target  element  i  from 
indirect  fire  support  task  j. 

expected  fraction  of  target  covered  by  pattern  in  range 
(see  Eq.  6-23). 
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Ecd^j  =  expected  fraction  of  target  covered  by  pattern  in 
deflection  (see  Eq.  6-25). 

Pnv^j  =  calculated  as  follows: 


Pnvij 


-  1  -  (All 


♦Nr  *  Rr)  /  (Avp^  *  Ofj 


Volliesj  *  Ofj 
(Eq.  6-22) 


where : 


Pnvjj  =  the  probability  of  damage  within  pattern  for  vollies; 
fired  by  an  indirect  fire  type  for  a  specific  task. 

Alj^  *  the  lethal  area  of  the  complete  round  against  target 
element  i. 

Nr  *  the  number  of  rounds  in  the  volley. 

Rr  =■>  the  reliability  of  the  round. 

Avpi  a  volley  damage  pattern  area. 

Of^  =  the  volley  overlap  factor. 

The  expected  fraction  of  target  covered  by  pattern  in  range  (used  in  Eq.  6- 
21b)  is  calculated  as  follows: 


Ecrij  *  2.96  *  Reptmj  *  Fljj  /Ltj 


(Eq.  6-23) 


where : 


where : 


Reptmj  »  total  mean  point  of  impact  error  in  range  for  fire 
support  task  j. 

Ltj  ■  target  length  for  task  j. 

Fl-i  -i  a  calculated  as  follows: 


Flij  a  Flaij  -  Flbij 


(Eq.  6-24a) 


Flatj  -  (Alij/2)  1  -  e 


-.63  * 


-  Alij  2  /  2  /  1/2 

/ (2  7T  ) 


(Eq.  6-24b) 
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Flbij  -  (A2ij/2)  1 


-.63  *  A2ij 

e 


1/2 


+ 


(Eq.  6-24c) 


and, 

Al^j  •»  (Lvpi  +  Ltj  )  /  (2.96  *  Reptmj) 
A2ij  *  |Lvpi  ~  I  /  (2.96  *  Rep  tin  j) 


(Eq.  6-24d) 
(Eq.  6-24e) 


where : 


Lvpj  =  the  length  of  the  volley  pattern  of  the  standard  fire 
unit. 


The  expected  fraction  of  target  covered  by  pattern  in  deflection  (used  in 
Eq.  6-21b)  is  calculated  as  follows: 


Ecdij  =  2.96  *  Deptmj  *  Fw-jj/Wtj  (Eq.  6-25) 


where: 

Deptmj  -  total  mean  point  of  impact  error  in  deflection. 
Wtj  =  target  width  for  task  j. 

Fwjj  ■  calculated  as  follows: 
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Fw-jj  a  Fwa^j  -  Fwb^j 


(Eq.  6-26a) 


where : 


Fwa^j 


Fwb^j  = 


and, 


where: 


(Blij/2) 


1 


-.63  *  Blij 
e 


+ 


e 


1/2 


(Eq.  6-26b) 


(B2j.  j/2)  1 


2 

-.63  *  B2ij 
e 


+ 


-  B2ij2  / 


1/2 

) 


(Eq.  6-26c) 


Bl^j  m  (Wvpi  +  Wtj  )  /  (2.96  *  Deptmj)  (Eq.  6-26d) 

B2^j  »  |  Wvpi  -  Wtj  |  /  (2.96  *  Deptmj)  (Eq.  6-26e) 


Wvpj  ■  the  width  of  the  volley  pattern  of  the  standard  fire  unit. 


6.  "UN1TF1LE"  IMPACT. 


Arty_atrit  does  not  directly  affect  the  "UNITFILE";  rather  it  returns  to  the 
main  battle  devices  the  losses  to  each  of  the  70  elements  due  to  indirect 
fire. 


7.  CODE. 

Figure  6-20  represents  the  functional  flow  of  Arty_atrit.  The  subroutine  is 
divided  into  two  separate  (but  identical)  sections:  Blue  firing  on  Red  and 
Red  firing  on  Blue.  Each  section  has  the  four  portions  discussed  in 
paragraph  2B  above. 

A.  Calculate  target  area.  Arty_atrit  begins  processing  by  calculating 
the  total  area  that  each  of  five  fire  support  tasks  are  targeted  against. 
These  tasks  are:  preparatory  fires,  close  support,  suppression  of  air 
defense  (SEAD),  counterfire,  and  interdiction.  One  of  two  equations  is  used 
to  determine  target  area.  The  equation  selected  is  dependent  upon  the 
target's  ability  to  disperse.  The  ability  to  disperse  is  in  turn  contingent 
upon  the  battle  phase  and  the  mission  of  the  target. 

(1)  Target  area  excluding  dispersion  factor. 

A  =  L  *  W  *  B  (Eq.  6-27) 

where: 

A  m  total  area  that  the  indirect  fire  task  is  targeted 
against. 

L  ■  total  length  in  meters  of  the  target  area  in  the  range 
direction. 

W  ■  dimension  (total  width  in  meters)  of  the  target  area  in 
the  deflection  direction. 

B  *  percentage  of  total  area  that  indirect  fire  task  is 
targeted  against. 

(2)  Target  area  including  dispersion  factor.  When  a  target  is  allowed 
to  disperse,  it  is  necessary  to  first  calculate  the  increase  in  target  area 
due  to  dispersion  and  the  original  radius  of  the  target  area  before 
determining  the  final  target  area  for  each  of  the  indirect  fire  tasks. 
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(a)  Calculate  the  increase  in  the  target  radius. 


Ir  =  M  *  (F  -  1) 


(Eq.  6-28) 


where: 

Ir  *  increase  in  target  area  due  to  target  dispersion  in 
meters. 

M  -  meters  moved  per  30-minute  interval  where: 

1000  if  a  Red  target  is  mounted  and  attacking 
1200  if  a  Blue  target  is  mounted  and  attacking 
200  if  either  a  Red  or  Blue  target  is  dismounted  or 
defending. 

F-l  m  number  of  consecutive  30-minute  intervals  less  one  in 
which  the  target  has  been  receiving  indirect  fire. 

(b)  Calculate  radius  of  original  target  area. 

R  *  (//PI) *5  (Eq.  6-29) 

where : 

R  «  radius  of  original  target  area. 

A  «  area  that  indirect  fire  task  is  targeted  against 
excluding  the  dispersion  factor  (see  Eq.  6-27). 

PI  a  the  symbol  designating  the  ratio  of  the  circumference  of 
a  circle  to  its  diameter;  approximately  3.1415927. 

(c)  Calculate  target  area  including  the  dispersion  factor. 

Ad  -  PI  *  (R  +  Ir)2  (Eq.  6-30) 


where : 

Ad  ■  area  that  the  indirect  fire  task  is  targeted  against 
including  the  dispersion  factor. 

R  ■  radius  of  original  target  area  in  meters,  as  calculated 
in  Eq.  6-29  above. 

Ir  ■  increase  in  target  area  due  to  target  dispersion,  in 
meters,  as  calculated  in  Eq.  6-28  above. 
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B.  Calculate  volleys  to  fire.  The  number  of  volleys  fired  is  calculated 
for  each  combination  of  the  three  indirect  fire  types  (artillery,  MLRS/MRL, 
mortars)  and  the  five  indirect  fire  tasks  (preparatory  fire,  close  support, 
SEAD,  counterfire,  interdiction).  The  type  of  indirect  fire  determines  the 
number  of  tubes  fired  in  the  volley  as  well  as  the  individual  round  or 
launcher  load  packaged  weight  (in  tons). 


(1)  The  weight  of  all  ammunition  fired  in  a  single  volley  is 
determined  by: 


Wf  -  T  *  Rwf 


(Eq.  6-31) 


where : 


Wf  =  weight  of  ammunition,  in  tons,  fired  in  a  single  volley 
by  weapon  type  f. 

T  *=  number  of  tubes  firing  in  each  volley. 

Rwf  =  individual  round  or  launcher  load  packaged  weight,  in 
tons, of  weapon  type  f. 


(2)  The  number  of  volleys  to  fire  is  computed  from  the  following 
equations. 


Vf  -  Af/Wf  (Eq.  6-32) 


where : 

Vf  *  number  of  volleys  fired  by  weapon  type  f  under  a 
specific  firing  task  where: 
f  «  Type: 

1  Artillery 

2  MLRS/MRL 

3  Mortars 

Af  ■  total  number  of  tons  of  ammunition  fired  by  weapon  type 
f  under  a  specific  firing  task. 

Wf  -  weight  of  ammunition,  in  tons,  fired  in  a  single  volley 
as  calculated  in  Eq.  6-31. 


C.  Calculate  fractional  damage  and  total  probability  of  survival 
indirect  fire  losses. 

(1)  The  expected  fractional  damage  for  each  DIME  element,  excluding 
the  VIPER/inf antry  and  for  personnel  in  both  standing  and  prone  positions, 
is  computed  by  Arty_atrit.  The  equations  determining  fractional  damage  are 
set  forth  in  paragraph  5.  above. 
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(2)  The  fractional  damages  computed  by  Arty__atrit  are  conditioned  by 
the  targeted  force  (Red  or  Blue)  and  the  type  of  indirect  fire  (artillery, 
rockets,  mortars).  The  fractional  damage  is  used  to  determine  losses  to 
both  Red  and  Blue  from  indirect  fire  and  is  passed  back  to  the  battle 
drivers. 

D.  Subroutine  table  and  primary  variables  are  listed  in  Table  6-7. 
Table  6—14  contains  a  listing  of  the  ground  combat  code. 
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Table  6-7.  Artillery  subroutine  table. 
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Width  (I)  Width  (meters)  of  new  target  area 

after  possible  dispersion  for  task  I. 


Barty_fire  Number  of  consecutive  30-minute 

intervals  in  which  Blue  uses  indirect 
fire  on  Red. 


Table  6-7.  Artillery  subroutine  table. 
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LL.  Del_par  (I,J)  Array  containing  information  from  an 

external  file  which  is  assigned  to  fire 
delivery  variables. 
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A_el  Lethal  area  (aquare  meters)  of  target 

damage  per  single  round.  Determined  by 
length  and  width  of  damage  pattern  and 
probability  of  damage  within  single 
round  pattern. 


Table  6-7.  Artillery  subroutine  table. 
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L 


Overlap  factor.  Determined  by  the 
number  of  rounds  in  each  volley, 
the  adjusted  damage  pattern  and  the 
volley  damage  pattern. 


Table  6-7.  Artillery  subroutine  table. 
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Factor  in  the  expected  fraction  of 
target  covered  by  pattern  in 
the  deflection  direction. 


Table  6-7.  Artillery  subroutine  table. 
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Section  III.  Smoke 


1.  PURPOSE. 

The  purpose  of  the  smoke  module  is  to  return  the  percent  of  frontage  visible 
through  a  screen  to  a  firer  using  optic,  crew-served,  and  thermal  sensors. 

2.  GENERAL. 

The  DIME  smoke  module  provides  coverage  for  the  withdrawing  force.  The 
withdrawing  force  can  request  mortar  and/or  artillery-delivered  smoke, 
provided  smoke  ammunition  has  been  allocated.  The  smoke  module  returns  the 
percent  of  frontage  visible  through  a  screen  to  a  firer  using  optic,  crew- 
served,  and  thermal  sensors  and  the  tonnage  used  to  emplace  the  screen  which 
is  subtracted  from  the  withdrawing  force's  stockpile.  The  percent  of 
frontage  visible  is  used  by  the  direct  fire  attrition  module  of  DIME  to 
determine  the  total  number  of  systems  available  to  be  engaged  as  targets  for 
the  withdrawal  phase  (phase  III)  of  the  DIME  battle.  In  turn,  these  targets 
are  used  to  determine  the  attrition  suffered  by  both  forces. 

3.  DATA  FLOW. 

The  smoke  module  is  a  portion  of  the  ground  combat  attrition  program.  The 
data  flow  and  the  logic  flow  involve  passing  information  through  four 
routines.  Figure  6-21  indicates  the  data  flow  through  the  four  smoke 
subroutines.  In  addition  to  the  input  and/or  output  parameters,  smoke 
ammunition  weight  in  pounds  per  one  round  and  the  rate  of  fire  used  to  build 
the  screen  are  contained  in  external  data  files.  Additional  data  is 
accessed  from  an  auxiliary  file  containing  the  probabilities  of  detection 
through  specific  screens.  This  file  will  be  discussed  in  greater  detail  in 
paragraph  4.  The  following  discussion  will  include  the  data  flow  as  it 
pertains  to  the  general  flow  of  the  DIME  smoke  module. 

A.  The  DIME  smoke  module  employs  a  four-step  methodology: 

(1)  Provides  coverage  for  the  withdrawing  force. 

(2)  Provide  mortar  and/or  artillery-emplaced  smokescreen. 

(3)  Returns  the  percent  of  frontage  visible  to  a  firer  using  optics, 
crew-served,  and  thermal  sensors. 

(4)  Depletes  the  ammunition  stockpile  of  the  force  emplacing  the 
screen. 
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MAIN 


Figure  6-21.  Data  flow  for  smoke  routines 


B.  The  DIME  smoke  module  divides  these  four  steps  into  four  routines: 
Allocate_smoke,  W_smoke,  Smk_empt  and  Smoke. 

(1)  During  the  withdrawal  phase  of  the  battle,  DIME  calls  the 
Allocate_smoke  routine  to  determine  if  a  percent  of  the  close  support 
ammunition  has  been  allocated  for  smoke.  If  an  allocation  has  been 
determined,  the  tonnage  of  ammunition  is  forwarded  to  the  W_smoke  routine  as 
mortar  tonnage  and  artillery  tonnage  designated  for  smoke. 

(2)  These  tonnages,  along  with  the  range  between  the  units,  the 
visibility  category,  the  unit's  width,  and  the  withdrawal  time,  are  used  by 
the  W_smoke  routine  to  determine  the  dimensions  of  the  smokescreen. 

(3)  Once  the  dimensions  of  the  screen  have  been  determined,  this 
information  is  passed  to  the  Smk_emp  routine  which  will  attempt  to  emplace  a 
screen  with  mortar-delivered  smoke.  The  screen's  length  is  determined  from 
the  unit's  width  passed  in  by  the  W_smoke  routine.  If  the  mortars  cannot 
produce  a  screen  which  completely  covers  the  unit,  then  the  Smk_erap  routine 
will  complete  the  desired  screen  by  emplacing  the  remainder  of  the  screen 
with  artillery-delivered_smoke. 

(4)  Once  the  screen  is  emplaced,  the  Smk_emp  routine  calls  the  Smoke 
routine  to  determine  the  probability  of  detection  through  "holes"  in  the 
screen  as  a  function  of  the  smoke  round,  relative  humidity,  visibility 
category,  and  the  range  between  units  for  an  observer  using  an  optic,  crew- 
served,  or  thermal  sensor. 

(5)  Using  these  probabilities  of  detection,  the  Smk_emp  routine 
determines  the  percent  of  frontage  a  firer  can  see  through  "holes"  in  the 
screen,  plus  any  unsmoked  frontage,  as  a  function  of  sensor  type.  In 
addition,  Smk_emp  calculates  the  mortar  tonnage  and/or  artillery  tonnage 
used  to  emplace  the  screen. 

(6)  The  direct  fire  attrition  module  uses  the  percent  of  frontage 
visible  by  sensor  type  to  determine  the  total  number  of  targets  available  to 
be  engaged  during  the  withdrawal  phase. 


4.  FILE  STRUCTURE. 

The  smoke  module  accesses  an  auxiliary  file  containing  the  probabilities  of 
detection  through  specific  screens. 

A.  The  probability  of  detection  values  are  stored  on  a  file  consisting 
of  six  records. 

(1)  Record  1  contains  the  probability  of  detection  values  for  an 
observer  using  an  optic  sensor  in  relative  humidity  of  less  than  50  percent 
for  four  visibility  categories  (1  km,  2  km,  4  km,  >  4  km)  and  in  seven  range 
categories  (0  -  .5  km,  .5  -  1.0  km,  1.0  -  1.5  km,  1.5  -  2.0  km,  2.0  -  2.5 
km,  2.5  -  3.0  km,  3.0  -  3.5  km). 
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(2)  Record  2  contains  the  probability  of  detection  values  for  an 
observer  using  an  optic  sensor  in  relative  humidity  of  50  percent  or  greater 
for  four  visibility  categories  and  seven  range  categories. 

(3)  Record  3  and  record  4  contain  the  probability  of  detection  values 
for  an  observer  using  a  crew-served  sensor. 

(4)  Record  5  and  record  6  contain  the  probability  of  detection  values 
for  an  observer  using  a  thermal  sensor. 

B.  The  probability  of  detection  values  are  stored  on  five  files:  three 
for  mortar-delivered  and  two  for  artillery-delivered  screens  emplaced  using 
white  phosphorous  (WP)  smoke. 

(1)  Blue  mortars, 

(a)  107mm 

(b)  181mm. 

(2)  Blue  artillery,  155mm. 

(3)  Red  mortar,  120mm. 

(4)  Red  artillery,  152mm. 


5.  ALGORITHMS. 

The  smoke  module  uses  two  major  algorithms:  calculation  of  the  percent  of 
frontage  visible  to  a  firer,  as  a  function  of  sensor  type  and  smoke  round; 
and  calculation  of  total  number  of  systems  available  to  be  engaged  as 
targets  in  the  battle. 

A.  The  algorithm  used  to  calculate  the  percent  of  frontage  visible  to  a 
firer,  as  a  function  of  sensor  type  and  smoke  round,  uses  the  following 
formula: 


nr 

Psees  ■  (1  -  Tcov)  +[  ^  (Pdectsr)  *  Pftcovr  ]  (Eq.  6-33) 

.  r-1 

where : 

Psees  *  percent  of  frontage  visible  to  firer  using  sensor  type  s. 
Pdectsr  „  expected  probability  of  detection  through  a  screen,  as  a 
function  of  sensor  type  and  smoke  round. 
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Pftcovr  = 

Tcov  « 
nr  ■ 


percent  of  frontage  covered  by  a  screen,  as  a  function  of 
the ■ smoke  round  used  to  emplace  the  screen . 
total  percent  of  frontage  covered  by  all  smoke  rounds, 
number  of  smoke  rounds  used  to  emplace  the  screen. 


B.  The  algorithm  used  in  the  direct  fire  module  to  calculate  the  total 
number  of  systems  available  to  be  engaged  as  targets  in  the  battle  uses  the 
following  formula: 


70 

Tsystems  =  V  Twpnss  *  Psees  (Eq.  6-34) 

s-1 


where: 

Tsystems  * 

Twpnss  - 
Psees  => 


total  number  of  systems  available  to  be  engaged  as  targets 
in  battle. 

total  number  of  systems  within  range. 

percent  of  frontage  visible  to  a  firer,  as  a  function  of 
sensor  type  and  smoke  round. 


6.  "UNITFILE"  IMPACT. 

The  smoke  module  has  no  direct  impact  on  the  "UNITFILE".  For  the  indirect 
impact  discussion,  refer  to  the  ammunition  allocation  discussion  in  the 
introduction  to  this  chapter. 


7.  CODE. 

The  smoke  module  code  Is  contained  as  a  submodule  in  the  ground  combat 
attrition  program.  The  smoke  module  code  is  divided  into  four  subroutines: 
Allocate_smoke ,  Wjsmoke,  Smk_emp  and  Smoke.  Note  that  Allocate__smoke  and 
W_smoke  are  held  as  a  portion  of  the  ground  combat  mainline  whereas 
Smoke_emp  and  Smoke  are  entirely  separate  modules  in  the  ground  combat  code. 

A.  During  artillery  allocation  in  the  ground  combat  driver, 
Allocate_smoke  determines  if  a  percent  of  the  close  support  ammunition  has 
been  allocated  for  smoke.  If  a  smoke  allocation  has  been  indicated, 
Allocate_8moke  forwards  this  smoke  tonnage  to  the  Wjsmoke  routine. 

B.  Wjsmoke  uses  the  tonnages  from  Allocate_smoke  combined  with  the  range 
between  units,  the  visibility  category,  the  unit's  width,  and  the  withdrawal 
time  to  determine  the  dimensions  of  the  desired  smokescreen.  W_smoke  then 
sends  necessary  parameters  to  the  Smkjemp  module. 
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C.  Smk_eny>  uses  the  dimensions  received  from  Wjsmoke  to  emplace  a  smoke 
screen  which  will  provide  coverage  for  the  withdrawing  force.  Smk_emp  will 
attempt  to  emplace  a  screen  over  the  entire  withdrawing  force  (defined  by 
the  unit’s  length)  by  firing  mortar  ammunition.  If  the  mortar  smoke 
allocation  is  insufficient  to  cover  the  entire  frontage,  then  the  artillery 
smoke  allocation  is  fired  to  cover  any  remaining  frontage.  The  total  mortar 
and/or  artillery  smoke  tonnage  used  to  emplace  the  screen  is  returned  to  the 
W_smoke  routine  where  it  is  subtracted  from  the  stockpile  of  the  force  that 
requested  the  smoke.  Once  the  screen  is  emplaced,  Smk_emp  determines  the 
total  percent  of  frontage  visible  through  the  screen  using  the  Equation 
6-33.  This  total  percent  of  frontage  visible  is  sent  to  the  direct  fire 
attrition  module  routine  where  it  is  used  in  Equation  6-34  to  determine  the 
total  number  of  systems  available  to  be  engaged  as  targets  in  the  withdrawal 
phase  of  the  DIME  battle. 

D.  The  Smoke  routine  determines  the  probability  of  detection  through 
"holes"  in  the  screen  by  accessing  the  off-line  data  file  containing  the 
expected  probabilities  of  detection  for  a  screen  emplaced  by  a  specific 
smoke  round  under  certain  meteorological  conditions  for  a  specified  range. 
Smoke  returns  this  probability  of  detection  for  an  observer  using  an  optics, 
crew-served,  and  a  thermal  sensor. 

E.  Figure  6-22  shows  the  general  flow  of  the  smoke  module  as  it  relates 
to  the  ground  combat  attrition  module.  Figures  6-23,  6-24,  6-25,  and  6-26 
indicate  the  specific  flow  diagrams  for  the  four  routines  involved  with 
smoke . 

F.  Table  6-8  indicates  the  primary  variables  and  their  functions  as  they 
relate  to  each  subroutine.  See  Table  6-14  for  a  listing  of  the  ground 
combat  code. 
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Figure  6-25.  Generalize  flow  of  Smk_emp  routine. 
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Figure  6-26.  Generalized  flow  of  routine  Smoke. 


6-in-n 


Table  6-8.  Smoke  subroutine  table. 


indirect  fire  ammunition 
allocation  (I)  as  a  function  of 
mission  (J).  Contains  adjusted 
tonnage  after  smoke  mission. 
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Table  6-8.  Smoke  subroutine  table 
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Pvcs  Total  percent  of  frontage  visible 

through  mortar  and/or  artillery  emplaced 
smoke  when  viewer  is  using  an  crew  served 
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Amwtp  A  real  value  containing  the  amount 

of  ammunition  (pounds)  allocated  to 
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Percent  of  smoked  frontage  visible 
through  "holes"  in  the  screen  by  a 
crew  served  sensor. 


Table  6-8.  Smoke  subroutine  table. 
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Section  IV.  Direct  Fire  Attrition 


1.  PURPOSE 


The  purpose  of  the  direct  fire  module  is  to  portray  opposing  ground  forces 
exchanging  volleys  during  direct  fire  combat. 


2.  GENERAL 

A.  The  direct  fire  module  is  a  time  step  deterministic  model.  It 
calculates  attrition  for  a  30  minute  period  of  direct  fire  contact.  However, 
during  the  pre-closure  phase  of  battle  (phase  1)  forces  are  only  in  contact 
for  a  15  minute  period.  To  represent  this  pre-closure,  the  expected  number 
of  completed  firings  are  multiplied  by  one  half. 


B.  Attrition  is  calculated  using  20  firers  per  side  (elements  1  through 
20  of  the  unit  status  file  or  "UNITFILE").  There  are  70  target  elements 
per  side  which  are  grouped  into  17  out  of  20  target  categories  for 
calculations.  The  first  17  target  categories  consist  of  ground  elements, 
and  target  categories  18-20  consist  of  helicopter  elements. 


3.  DATA  FLOW 

A.  Information  is  received  from  the  ground  combat  mainline  program. 
This  information  consists  of: 

(1) .  Variables  used  to  read  appropriate  data  such  as  flags  for 

terrain,  day/night,  visibility,  attacker  and  rangeband. 

(2) .  Ammunition,  in  tons,  available  for  Red  and  Blue. 

(3) .  Percent  of  systems  vulnerable  and  percent  of  systems  visible 

through  smoke. 

(4) .  The  number  of  500  meter  range  bands  the  forces  move  within  the 
15  or  30  minute  period. 

(5) .  An  array  containing  the  status  for  ground  systems  entering  the 
battle.  It  contains  the  number  of  targets  entering  the  battle,  the  number 
of  firers  entering  the  battle,  and  blank  positions  which  will  later  contain 
the  losses  for  the  direct  fire  battle. 

(6) .  An  array  containing  the  number  of  target  helicopters  entering 
the  battle. 
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(7).  Ranges,  in  meters,  between  target  helicopters  and  direct  fire 

systems. 


B,  External  data  consisting  of  sensor  files,  fire  distributions, 
ammunition  weights,  expected  number  of  completed  firings  (ECF),  and 
probability  of  kill  (PK)  files  are  necessary.  If  more  than  one  500  meter 
range  band  is  moved  during  a  30  minute  period,  then  new  ECF  and  PK  files  are 
needed  for  each  new  range  band.  This  data  flow  is  represented  in  Figure 
6-27. 


4.  FILE  STRUCTURE 


A.  External  Files. 


(1) .  Sensor  files  hold  the  sensor  type  values  1-3:  1  =  optics,  2  = 
crew  served  and  3  =  thermal.  The  arrays  B_sen_d(J),  B_sen_n(J),  R_sen_d(J), 
and  R_sen_n(J)  represent  the  sensors  during  the  day  and  night  where  J  =  1  - 
70  for  each  of  the  70  target  elements.  B_vis(I)  and  R_vis(I)  are  internal 
data  arrays  which  contain  the  percentage  of  targets  visible  through  smoke 
for  each  of  the  three  sensor  types  (I  =  1  to  3).  B_vis(I)  and  R_vis(I)  are 
accessed  through  the  values  found  in  the  sensor  arrays. 

(2)  Category  files  are  needed  to  place  the  70  target  elements  into 
the  target  categories  for  attrition  calculations.  The  B_cat(I)  and  R_cat(I) 
arrays  contain  a  value  between  1  and  17,  which  represent  the  target  category 
they  fall  into.  (Categories  18-20  are  reserved  for  the  3  types  of  enemy 
helicopters. ) 

(3)  Fire  distribution  files  contain  weighted  factors  (a  value  from  1 
to  10)  which  each  firer  applies  to  one  of  the  twenty  target  categories  when 
firing.  The  higher  value  indicates  a  higher  preference  in  firing  at  that 
target.  The  arrays  B_fire_d(I, J)  and  R_f ire_d(I, J)  represent  the  weighted 
factor  in  the  following  manner: 

I  ■  (1-20)  is  the  firer 
J  *  (1-20)  is  the  target  category. 


(4)  Weight,  engagement,  and  pointer  files.  Ammunition  weights  are 
kept  within  the  B_ammo_wt(I)  and  R_ammo_wt(I)  arrays  for  each  firer. 
B_engagements(I)  and  R_engagements(I)  are  the  number  of  engagements  for  each 
firer.  Array  Df_sen_ptr(S,I)  contains  the  direct  fire  sensor  pointers 
(value  1  *  optical  ground  or  2  «  thermal  ground)  and  array  Df_muni_ptr(S, I) 
contains  the  munitions  pointers  (value  1  =  ground  missile  or  2  =  ground 
kinetic  energy  round),  where: 

S  ■  (1-2)  for  each  side  (1  =  blue,  2  =  red) 

I  =  (1-20)  for  each  firer 
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Figure  6-27,  Direct  fire  data  flow 


(5)  Expected  number  of  completed  firing  (ECF)  files  contain  the 
expected  number  of  completed  firings  for  each  of  the  twenty  firers  during  a 
30  minute  period.  ECF's  are  dependent  upon  day/night,  defending/attacking 
and  terrain  represented  within  the  file  name  for  both  Blue  and  Red. 
Dependent  also  on  the  range,  the  6  different  direct  fire  range  bands  are 
represented  by  different  records  within  each  file.  Weather  visibility  is 
also  an  important  factor  for  ECF's  and  is  designated  in  the  arrays 
B_ecf_vis(I, J)  and  R_ecf__vis(I,  J)  where: 

I  «  (1-20)  the  twenty  firers 
J  *  (1-4)  the  visibility  categories 

(1)  greater  than  5  km 

(2)  5  km 

(3)  2  km 

(4)  1  km. 


(6)  Probability  of  kill  (PK)  files  are  available  for  two  types  of 
target  postures,  hull  defilade  and  fully  exposed,  which  are  represented  by 
the  file  name.  Dependent  on  range,  the  6  records  of  each  file  represent  the 
range  band  for  the  direct  fire  combat.  The  arrays  containing  the  PR's  are: 

B_pk_fe(I,J),  B_pk_hd(I,J),  R_pk_fe(I,J),  R_pk_hd(I,J) 


where:  I  =  (1-20)  the  firers 

J  »  (1-20)  the  target  categories. 

J  s  (18-20)  are  helicopter  target  categories 


5.  ALGORITHMS 

A.  Figure  6-28  presents  a  generalized  logic  flow  of  the  processes  in 
the  ground  combat  direct  fire  subroutine.  Direct  fire  attrition  involves 
calculating  the  fire  distribution  factor,  rounds  available  and  the  attrition 
calculations.  The  following  paragraphs  provide  a  more  detailed  description 
of  the  algorithms  used  in  the  attrition  process. 

(1)  Calculate  the  fire  distribution  factor  (Fdfij). 

20 

Fdfij  =  (Tj  *  Di:j  *  PkfetJ)/  £  (Tj  *  Di:j  *  Pkfeij)  (Eq.  6-35) 

>1 


■  number  of  targets  in  category  j  being  fired  upon. 

■  a  weighted  factor  to  represent  preferred  uistribution  of  fire 
for  firer  i  vs.  target  j. 

=  probability  of  kill  for  fully  exposed  targets  (j)  being  fired 
on  by  i  and  where:  i  =  (1-20)  the  firers  and  j  =  (1-20)  target 
categories. 


where: 

TJ 


Pkfe 
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At  this  point  the  Fdfjj  and  Pk^j  of  helicopter  target  categories  i  =  18-  20 
are  saved  and  used  in  the  helicopter  attrition  portion  (see  section  V  of 
this  chapter)  of  P4. 
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The  following  direct  fire  calculations  are  based  on  the  ground  target 
categories  (j  =  1-17);  the  helicopter  target  categories  (j  =  18-20)  are 
ignored. 

(2)  Calculate  rounds  available.  The  rounds  available  to  each  firer 
for  each  of  its  target  categories  is  calculated  in  the  following  manner: 

Rndsij  =  Fdfij  *  Nft  *  MINCEcfi,  Amm0i)  (Eq.  6-36) 


where : 


Rndsij 

Nfi 

Ecfi 

Ammo^ 


rounds  available  to  each  firer  (i)  per  ground  target 
category  (j). 

number  of  firers  of  type  i. 

expected  number  of  completed  firings  for  firer  i. 
ammunition  available  for  firer  i. 


(3)  Slice  methodology.  Attrition  during  the  30  minute  period  is 
broken  into  15  slices  of  attrition  calculations.  This  methodology  brings 
about  a  more  accurate  representation  of  exchanging  fire  during  battle.  It 
allows  the  attrition  to  occur  in  15  sections  during  a  30  minute  period 
rather  than  one  large  mass  of  fire  in  one  moment  for  a  30  minute  period. 
Before  each  slice  a  new  value  for  firers  and  targets  is  used  which 
represents  deducted  kills  from  the  previous  slice. 

Before  this  slice  methodology  may  be  used  to  calculate  attrition,  the  rounds 
available  must  be  broken  down  into  the  number  of  rounds  fired  per  slice. 
The  calculation  is  done  as  follows: 

Erij  =  Rndsij  /  Nf±  /  Ns  (Eq.  6-37) 


where : 


Erij  = 


Ns 

Rndsi  •; 

Nf  i 


expected  number  of  rounds  per  slice  for  each  firer  at  each 
ground  target  category, 
number  of  slices. 

rounds  available  to  each  firer  per  ground  target  category, 
number  of  firers. 
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For  each  slice  k,  the  attrition  calculations  involve  the  probability  of 
survival  for  each  target  category  being  fired  on  by  each  firer: 

Pf ik  *  ((1 — (Pv-*  *  Pkfe^-j  +  Pnvj  *  Pkhdj^).)  (Eq.  6-38) 

7  Htj)  f  (Nfi  *  firi:j) 

where : 


Pijk  - 

Pvj  « 
Pkfejj  = 

Pnvj  = 

Pkhdjj  * 

Ntj  = 


the  probability  of  survival  for  the  jth  ground  target  category 
being  fired  upon  by  the  ith  firer. 

percent  of  vulnerable  targets  for  the  jth  ground  target 
category. 

probability  of  kill  for  fully  exposed  targets  in  the  jth  ground 
target  category  being  fired  upon  by  the  ith  firer. 
percent  of  targets  not  vulnerable  for  the  jth  ground  target 
category. 

probability  of  kill  for  hull  defilade  targets  in  the  jth 
ground  target  category  being  fired  upon  by  the  ith  firer. 
total  number  of  targets  of  type  j. 


The  value  of  Pjjk  is  accumulated  for  all  firers  firing  on  each  ground 
target  category  for  slice  k  by: 


17 

Pjk  =  TT  pijk  (Eq-  6- 38a) 

i=l 

The  value  Pjk  is  also  accumulated  for  all  slices  by: 


Ns 

Psj  =  TT  Pjk  (Eq.  6-38b) 


giving  one  probability  of  survival  per  ground  target  category  over  all 
slices  and  over  all  firers. 

(4)  Losses  per  target  category  are  then  calculated  using  the 
following: 

Lj  -  Tj  *  Vj  *  (1-Psj)  (Eq.  6-39) 

where : 

Lj  =  losses  in  the  jth  ground  target  category. 

Tj  m  number  of  targets  being  fired  upon  in  the  jth  target 
category. 

Vj  =  percent  of  visible  targets  through  smoke  in  the  jth  ground 
target  category. 
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6.  "UNITFILE"  IMPACT 


This  subroutine  does  not  directly  impact  the  "UNITFILE".  Kills  calculated 
in  this  subroutine  along  with  the  amount  of  ammunition  used  is  returned  to 
the  ground  combat  mainline  and  then  decremented  from  the  "UNITFILE". 


7.  CODE 


A.  Introduction.  This  section  contains  information  on  the  direct  fire 
attrition  code.  The  functional  areas  discussed  in  the  following  paragraph 
are  represented  in  Figure  6-29. 

B.  Direct  fire  attrition  functional  areas. 

(1)  The  data  received  from  the  ground  combat  mainline  consists  of 
terrain,  day/night,  weather  visibility,  the  percent  of  targets  fully 
exposed,  the  number  of  500  meter  range  bands  the  force  is  to  move,  the 
beginning  range,  whether  red  or  blue  is  the  attacker,  sensor  visibilities 
through  smoke,  ammunition  available  and  the  number  of  targets  and  fires  on 
both  sides. 

(2)  Set_call.  This  portion  of  the  code  saves  the  original  range  and 
initial  targets.  If  the  number  of  range  bands  is  1/2,  one  attrition  loop 
with  half  the  ECF's  are  utilized  to  represent  pre-closure  battle. 

(3)  Init_jeads.  Reads  external  sensor  data,  category  files,  fire 
distributions  and  ammunition  weights  which  do  not  change  by  range. 

(4)  The  following  calculations  are  necessary  for  each  500  meter 
range  covered  by  the  forces: 

(a)  Read_files.  The  PK  and  ECF  files  are  read  for  a  specific 

range. 

(b)  Categorize.  This  code  calculates  the  total  number  of 
targets  per  target  category  and  the  percent  in  which  each  target  is  fully 
exposed . 

(c)  Smokes.  This  code  calculates  the  total  number  of  systems 
available  to  be  engaged  as  targets  in  the  battle. 
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(d)  Calc_fdf.  This  portion  of  the  code  calculates  the  fire 
distribution  factor  being  the  distribution  of  rounds  fired  at  the  twenty 
target  categories. 

(e)  Ammo_available.  Determines  the  number  of  rounds  available 
for  firing  per  single  weapon  from  the  tons  available  sent  from  the  mainline. 

(f)  Calc_rnd.  Rounds  fired  by  one  of  each  of  the  twenty  firers 
is  determined  by  the  minimum  of  rounds  available  and  expected  number  of 
completed  firings.  These  rounds  per  single  weapon  must  then  be  multiplied  by 
the  total  of  each  system  type  firing.  These  rounds  must  then  be  distributed 
between  each  of  the  ground  target  categories  by  using  the  fire  distribution 
factor. 


(g)  Update_ammo.  Accumulates  the  amount  of  ammo  used  and  is 
returned  to  the  mainline  to  be  decremented  from  "UNITFILE"  ammo. 

(h)  Calc_loss.  Using  the  slice  methodology  discussed  in  the 
algorithm  portion  of  direct  fire  attrition,  the  number  of  slices  are  set  to 
15  in  this  portion  of  the  code.  Before  actual  attrition  is  calculated,  the 
number  of  rounds  fired  per  slice  must  be  calculated  from  the  previous  rounds 
per  category.  Occurring  within  the  actual  slice  loop  calculations  are  the 
following. 


1 .  Firers  are  recalculated  at  the  beginning  of  each  slice 
to  discard  any  killed  during  the  previous  slice(s). 

2.  Probability  of  survival  is  accumulated  for  all  firers 
firing  upon  each  ground  target  category.  This,  in  turn,  is  accumulated  for 
all  slices  as  discussed  in  the  algorithm  portion  of  the  direct  fire 
documentation. 

Having  calculated  the  overall  probability  of  survival  for  each  ground  target 
category,  the  losses  are  then  determined  by  multiplying  the  number  of 
targets  in  each  category  by  their  probability  of  kill  (one  minus  the 
probability  of  survival)  and  their  percent  visible  through  smoke.  This 
portion  of  the  code  is  more  explicitly  displayed  in  Figure  6-30. 

(i)  Decat_losses .  This  apportions  the  losses  within  the  first 
17  target  categories  to  losses  within  the  70  systems. 

(j)  Set_next__loop.  This  portion  of  the  code  decrements  the 
appropriate  losses  from  the  firers,  and  the  targets  available  along  with 
adding  in  losses  all  contained  in  the  array  Sys(*).  The  range  band  is 
decremented  to  prepare  for  the  following  attrition  calculations  in  another 
range. 


(5)  Set_return.  Restores  the  range  band  and  initial  targets  before 
returning  the  direct  fire  losses  and  ammunition  used  to  the  ground  combat 
mainline. 
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Calculate  average  nuiiber  of  rounds  per  slice 


Slice  Loop: 


End  Slice  loop 


Calculate  kills 
to  each  ground 
target  category 


Figure  6-30.  Direct  fire  functional  flow  of  Calc  losses. 
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Table  6-9.  Direct  fire  subroutine  table. 
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B_aramo(I)  Array  containing  number  of 

rounds  available  for  firing  per 
single  weapon  for  Blue  type  I 
firer j  1-1-20 


Table  6-9.  Direct  fire  subroutine  table. 
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Table  6-9.  Direct  fire  subroutine  table 
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Loss_r_cat(J)  Array  containing  the  number  of 

losses  of  Red  category  J  targets 


Table  6-9.  Direct  fire  subroutine  table. 
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Section  V 


Helicopter  Operations 


1.  PURPOSE 

The  purpose  of  the  helicopter  operations  section  of  the  DIME  ground  combat 
program  is  to  realistically  game  air-to-ground,  ground-to-air,  and  air-to- 
air  interactions  at  variable  ranges  and  missions  between  helicopters  and 
the  20  target  categories  described  in  Section  IV.  These  interactions  take 
place  during  ground  combat  operations  and  are  separate  from  air  operations 
(ingress,  egress,  or  strike)  as  in  the  DIME  air  defense  program. 


2.  GENERAL 


A.  Both  Red  and  Blue  forces  are  played  with  capabilities  and 
limitations  which  can  mirror  current  and  future  equipment,  vehicles, 
weapons,  munitions,  and  helicopters. 

B.  Program  characteristics  include: 

(1)  Two  types  of  attack  helicopters  and  one  scout  helicopter  are 
played  for  the  Red  and  Blue  forces. 

(2)  Seven  possible  air  defense  (AD)  types  may  be  played. 

(3)  Twenty  possible  direct  fire  types  may  be  played. 

(4)  Losses  to  ground  targets  and  helicopters  are  calculated  by  using 
various  algorithms  available  within  the  module.  These  losses  are  a  function 
of : 


(a) 

(b) 

(c) 
(O 

guns/rockets  or 


Visibility  (day  or  night) 

Terrain  (mountainous,  hilly,  rolling,  open) 

Target  profile  (fully  exposed  or, hull  defilade) 

Helicopter  munitions  (missiles,  guns  and 
air  to  air  missiles). 


missiles , 


6-V-l 


yr 


3.  DATA  FLOW 

The  helicopter  module  receives  data  from  the  main  driver  routine  and 
auxiliary  stored  files.  These  data  are  used  by  the  Helo_kills  module  to 
calculate  the  total  elements  killed  by  the  helicopters  and  the  total 
helicopters  killed  by  the  air  defense  and  direct  fire  elements.  See  the 
data  flow  shown  in  Figure  6-31. 

A.  Inputs.  The  helicopter  module  receives  the  following  data  through  a 
call  statement  from  the  main  driver  routine. 

(1)  Cell  (S,I).  An  array  which  contains  the  cell  size  where: 

S  *  1  =  Blue  side 

2  =  Red  side 

1  *  the  number  of  helicopter  type  1 

I  =  2  =  the  number  of  helicopter  type  2 

3  =  the  number  of  helicopter  type  3 


(2) 

where : 


Target  (S,I,J).  An  array  which  contains  the  target  matrix 

S  =  Pointer  to  side 

I  *  1  =  original  number  of  systems 

2  =  surviving  number  of  systems 

J  =»  1  to  70  systems 


(3)  Ad_ammo(S).  The  ammunition  available  in  short  tons  (2000  lbs) 

where: 


S  =  Pointer  to  side 


(4)  Terr.  An  integer  value  of  1  to  4  which  identifies  the 
defender's  terrain  where: 

1  -  Open 

2  ■  Rolling 

3  -  Hilly 

4  =  Mountainous 

(5)  Atk_prof  (S,I).  An  integer  value  of  1  to  7  which  identifies  the 
helicopter's  attacker  profile: 

1  *  Missiles  only 

2  ■  Missiles  and  guns 

3  *  Guns  and  rockets 

4  -  Air  to  Air  Missile 
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Figure  6-31.  Data  flow  of  helicopter  attrition  module. 
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5  »  Air  to  Air  Missile  with  Missiles 

6  =»  Air  to  Air  Missile  with  Missiles  and  Guns 

7  ■  Air  to  Air  Missile  with  Guns  and  Rockets 

where : 

S  m  pointer  to  side 
I  =  helicopter  type 


(6)  Helo_mis  (S,I).  An  integer  value  of  1  to  3  which  identifies  the 
attacker's  mission: 

1  ■  Air  to  ground 

2  ■  Air  to  air 

3  ■  Suppression  of  Enemy  Air  Defense  (SEAD) 
where : 

S  *  pointer  to  side 
I  »  helicopter  type 


(7)  Dayjnite.  An  integer  value  representing  the  light  visibility 
category,  where: 

0  =  Day 
1  *  Night 


(8)  Time_step.  The  on-site  time  of  a  helicopter  cell  in  minutes. 

(9)  P_def  (S,I).  Percent  of  the  targets  in  hull  defilade.  The 
remaining  targets  are  in  the  fully  exposed  posture  where: 

S  a  pointer  to  side 
I  «  1  to  70  systems 


(10)  Arty  (S).  An  integer  value  of  1  or  2  which  identifies  the 
presence  or  absence  of  artillery  fires,  where: 

1  •  Yes,  under  artillery  attack 

2  ■  No,  not  under  artillery  attack 


(11)  Veh_ada  (S).  Percentage  of  vehicular  AD  Systems  suppressed 

where : 

S  ■  pointer  to  side 
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(12)  Hnd_ada(S).  Percentage  of  hand-held  AD  systems  suppressed 

where : 

S  =*  pointer  to  side 


(13)  Stnd_off_rg  (S,I).  A  variable  integer  value  indicating  the 
attacker's  standoff  range  to  the  opposing  target  in  meters  where: 

S  *  pointer  to  side 
I  *  helicopter  type 

(14)  Vis.  An  integer  value  of  1-4  indicating  the  atmospheric 
visibility  where: 

1  =  >  5  km 

2  =  5  km 

3  =  2  km 

4  *  1  km 


B.  The  helicopter  module  also  receives  input  data  through  the  common 
block  area  called  "Helo_info". 

(1)  Btl_rg.  The  current  range  between  the  two  forces  on  the  battle 

field. 

(2)  Rg_avg  (i>,I,J).  The  range  between  the  helicopter  I  (I  =  1  -  3) 
and  the  target  category  J  (J  »  1  -  20)  for  side  S  (S  =>  1  -  2)  in  meters. 
The  ranges  are  calculated  in  subprogram  Helo_range  and  are  illustrated  in 
Tables  6-Va,  6-Vb,  and  6-Vc. 

(3)  Df_ammo  (S).  Direct  fire  ammunition  available  to  shoot  at 
helicopter  targets  for  side  S. 

(4)  Df_fire_dist  (S,I,J).  Fire  distribution  factor  of  each  direct 
fire  type  I  shooting  at  targot  helicopter  J  (J  *  1-3). 

(5)  Df_pk_helo  (S,I,J,M).  Direct  fire  probability  of  kill  of 
helicopters  J,  mast  mounted  (M«l)  and  non-mast  mounted  (M*  2). 

(6)  Df_sen_ptr  (S,I).  Pointer  to  type  of  sensor  (value  1  =  optical 
ground,  2  »  thermal  ground)  for  direct  fire  type  I  (I  -  1-20)  on  side  S  (S  = 
1-2). 

(7)  Df_muni_ptr  (S,I).  Pointer  to  type  of  munition  (value  1  = 
ground  missile,  2  ■  ground  kinetic  energy  round)  for  direct  fire  type  I  (I  = 
1-  20)  on  side  S  (S  =  1-2). 
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C.  Other  inputs  required  by  the  helicopter  module  are  read  in  from 
auxiliary  storage  files,  such  as  the:  helicopter  characteristics  files; 

helicopter  sensor  files;  helicopter  munitions  files;  helicopter 
vulnerability  files;  AD  vulnerability  files;  AD  ammunition  files;  helicopter 
target  preference  file;  direct  fire  sensor  files;  direct  fire  munitions 
files.  This  data  is  stored  in  common  block  area  ,,Helo_attrite"  for  later 
retrieval  in  the  Helo  kills  module. 


D.  Outputs.  The  helicopter  module  returns  to  the  main  driver  routine 
the  number  of  elements  in  a  target  category  killed  by  the  helicopters  and 
the  number  of  helicopters  killed  by  AD  elements,  ground  elements  and  other 
helicopters. 


4.  FILE  STRUCTURE 


DIME  helicopter  files  are  used  by  the  ground  combat  (P4)  program  to  supply 
statistical  performance/ preference  data  and  physical  characteristics  data 
(basic  load,  weight/round,  etc.).  Figure  6-32  is  an  example  of  the 
interaction  between  the  file  structures. 


A.  Helicopter  characteristics  files. 

There  is  one  helicopter  characteristics  file  for  each  force.  Each  file 
contains  three  records,  one  for  each  helicopter  type.  Each  helicopter  record 
contains  eight  elements.  The  structure  of  each  record  is  as  follows: 

Index  Description 

1  Pointer  to  unique  sensor  type  (value  1-10). 

2  Pointer  to  unique  missile  type  (value  1-15). 

3  Pointer  to  unique  gun  type  (value  1-15). 

4  Pointer  to  unique  air  to  air  missile  (value  1-15). 

5  Basic  load  for  the  unique  missile  above 

6  Basic  load  for  the  unique  gun  above 

7  Basic  load  for  the  unique  air  to  air  missile  above 

8  Sensor  location  (0=  non-mast  mounted,  1=  mast  mounted) 
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Blue  Characteristics  File 


Red  Characteristics  File 


record  1 
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Figure  6-32.  Helicopter  file  hierarchy. 

In  this  figure,  record  2  of  the  Blue  Characteristics  file  is  shown  in 
detail.  Each  record  describes  a  helicopter  type  plus  sensor  and  munition 
pointers.  The  sensor  pointer  points  to  record  3  of  the  Sensor  Performance 
File  which  describes  a  unique  type  of  sensor  (contains  probability  of 
detection  data).  The  missiles,  gun  and  air-to-air  pointers  respectively 
point  to  records  1,  4  and  15  of  the  Helicopter  Performance  File.  These 
records  describe  a  munition  type  (contain  probability  of  kill  data,  tactical 
number  of  rounds,  fire  and  guide  time  and  time  masked  and  exposed. 
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B.  Helicopter  sensor  performance  files. 

There  is  one  helicopter  sensor  performance  file  for  each  force.  Each  file 
contains  ten  records  for  unique  types  of  sensors.  Each  sensor  record 
contains  seventy-seven  elements  used  to  represent  the  probability  of 
detection  (Poo  )  and  the  average  time  to  detect  (T)  for  each  target.  Record 
entries  represent  fitted  coefficients  in  the  equation 

P  co  *  ar^  +  br  +  c  and  T-a'r^  +  b'r  +  c'  where 
r  *  range  in  meters  to  target. 


The  structure  of  each  record  is  as  follows: 


Index 


Description 


1  Sensor  description  string  (eight  characters). 


2 

3 

4 

5 

6 

7 

8 

9 

10 


Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  personnel,  fully  exposed 

Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  personnel,  hull  defilade 

Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  light  vehicles,  fully  exposed 


Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  light  vehicles,  hull  defilade 


Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  heavy  vehicles,  fully  exposed 


Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  heavy  vehicles,  hull  defilade 


Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  artillery,  fully  exposed 


Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  artillery,  hull  defilade 


Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  helicopters,  fully  exposed 


11 


Probability  of  detection  (Poo)  coefficient  [a]  of  target 
category  helicopters,  hull  defilade 


12-21  Probability  of  detection  (Poo)  coefficient  [b]  with  the 
same  format  as  2-11. 

22-31  Probability  of  detection  (Poo)  coefficient  [c]  with  the  same 
format  as  2-11. 

32-41  Average  time  to  detect  (T)  coefficient  [a’]  with  the  same 
format  as  2-11. 

42-51  Average  time  to  detect  (T)  coefficient  [b']  with  the  same 
format  as  2-11. 

52-61  Average  time  to  detect  (T)  coefficient  [c']  with  the  same 
format  as  2-11. 


62-69  Probability  of  detection  range  minimum  [rmina]  for  each 

atmospheric  condition.  (Day/Night  and  Visibility)  (e.g.,  62-Day, 
>5  KM,  63-Day,  5  KM,  64-Day,  2  KM,  65-Day,  1  KM,' 66-Night,  >5  KM, 
etc) 


70-77  Probability  of  detection  range  maximum  [rmaxa]  for  each 

atmospheric  condition.  (Day/Night  and  Visibility)  (e.g.,  70-Day, 
>5  KM,  71-Day,  5  KM,  72-Day,  2  KM,  73-Day,  1  KM,  74-Night,  >5  KM, 
etc) 


C.  Helicopter  performance  against  targets  files. 

There  is  one  helicopter  performance  file  for  each  force.  Each  file  contains 
fifteen  records  for  unique  types  of  munitions.  These  records  contain  data 
describing  munition  lethalities  (Pk's)  and  the  performance  parameters  of  the 
helicopters  used  in  the  tactics  of  munition  delivery.  Record  entries  for 
Pk's  represent  fitted  coefficients  in  the  equation 


Pk  *  ar^  +  br  +  c  where  r  =  range  in  meters 


Each  munition  record  contains  131  elements.  The  structure  of  each  record  is 
as  follows: 

Index  Description 

1  Munition  description  string  (eight  characters). 

2-41  Probability  of  kill  (Pk)  coefficient  [a]  for  each  of  the  20 

target  categories,  fully  exposed  and  hull  defilade,  (e.g., 
2-Target  Category  1  Fully  Exposed,  3-Target  Category  1  Hull 
Defilade,  4-Target  Category  2  Fully  Exposed,  etc.) 
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Index  Description 

42-81  Probability  of  kill  (Pk)  coefficient  [b]  for  each  of  the  20 

target  categories,  fully  exposed  and  hull  defilade,  (e.g., 
42-Target  Category  1  Fully  Exposed,  43-Target  Category  1 
Hull  Defilade,  44-Target  Category  2  Fully  Exposed,  etc.) 

82-121  Probability  of  kill  (Pk)  coefficient  [c]  for  each  of  the  20 
target  categories,  fully  exposed  and  hull  defilade,  (e.g., 
82-Target  Category  1  Fully  Exposed,  83-Target  Category  1 
Hull  Defilade,  84-Target  Category  2  Fully  Exposed,  etc.) 

122  Probability  of  kill  (Pk)  range  minimum  [rmin] 

123  Probability  of  kill  (Pk)  range  maximum  [rmax] 

124  Tactical  number  of  rounds  fired  per  pop  up 

125  Fire  and  guide  time  [fm]. 

126-128  Time  masked  [Tmj]  for  each  mission  in  the  pop  up  /  pop  down 

cycle,  (e.g.,  126-air  to  ground,  127-air  to  air,  128-SEAD) 

129-131  Time  exposed  [Tej]  for  each  mission  in  the  pop  up  /  pop 

down  cycle,  (e.g.,  129-air  to  ground,  130-air  to  air, 
131-SEAD) 


D.  Helicopter  target  preference  files. 

There  is  one  helicopter  target  preference  file  for  each  force.  Each  file 
contains  three  records,  one  for  each  mission,  with  record  1  =  air  to  ground, 
record  2  »  air  to  air,  and  record  3  «*  SEAD.  Each  mission  record  contains  28 
elements.  The  files  contain  numeric  weights  representing  helicopter 
preferences  for  targets  and  the  parameters  Ot  Jo  used  to  approximate  line 
of  sight  between  helicopters  and  their  targets.  The  parameters  Ot  ,/3  are 
used  in  the  following  form 


~/3r 

Plos  =  OUe  M  ) 

The  structure  of  each  record  is  as  follows: 


Index  Description 

1-20  Preferences  for  each  target  category  [D^j^]. 

21-24  Probability  of  line  of  sight  alpha  [Ot  ]  for  each  terrain 

(open,  rolling,  hilly,  mountainous) 
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Index 


Description 


25-28 


Probability  of  line  of  sight  beta  [$] 
(open,  rolling,  hilly,  mountainous) 


for  each  terrain. 


E.  Helicopter  vulnerability  against  air  defense  files. 

There  is  one  helicopter  vulnerability  file  for  each  force.  Each  file 
contains  seven  records;  one  for  each  air  defense  weapon.  Each  air  defense 
weapon  record  contains  thirty-nine  elements  describing  the  ability  of  the  AD 
weapon  to  detect  and  kill  the  helicopters.  Detection  parameters  include 
probability  of  detection  and  time  to  detect.  The  lethality  parameters 
represent  PKs.  The  parameters  in  the  file  represent  fitting  coefficients 
and  are  as  described  under  the  helicopter  lethalities  file.  The  structure 
of  each  record  is  as  follows: 


Index 

Description 

1-2 

Probability  of  detection  (Poo)  coefficient  [a]  for 
mounted  and  non-mast  mounted. 

mast 

3-4 

Probability  of  detection  (Poo)  coefficient  [b]  for 
mounted  and  non-mast  mounted. 

mast 

5-6 

Probability  of  detection  (Poo)  coefficient  [c]  for 
mounted  and  non-mast  mounted.' 

mast 

7-8 

Average  time  to  detect  T  coefficient  [a*]  for  mast 
and  non-mast  mounted. 

mounted 

9-10 

Average  time  to  detect  T  coefficient  [ b  * ]  for  mast 
and  non-mast  mounted. 

mounted 

11-12 

Average  time  to  detect  T  coefficient  [c’]  for  mast 
and  non-mast  mounted. 

mounted 

13-20 

Probability  of  detection  range  minimum  [rmina]  for 
atmospheric  condition.  (Day/Night  and  Visibility) 
13-Day,  >5  KM,  14-Day,  5  KM,  15-Day,  2  KM,  16-Day, 
17-Night,  >5  KM,  etc) 

each 
(e.g. , 

1  KM, 

21-28 

Probability  of  detection  range  maximum  [rmaxa]  for 
atmospheric  condition.  (Day/Night  and  Visibility) 
21-Day,  >5  KM,  22-Day,  5  KM,  23-Day,  2  KM,  24-Day, 
25-Night,  >5  KM,  etc) 

each 
(e.g. , 

1  KM, 

29-30 

Mast  mounted  and  non-mast  mounted  probability  of  kill 
coefficient  [a]. 
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Index  Description 

31-32  Mast  mounted  and  non-mast  mounted  probability  of  kill 

coefficient  [b]. 

33-34  Mast  mounted  and  non-mast  mounted  probability  of  kill 

coefficient  [c]. 

35  Probability  of  kill  range  minimum  [rmin]. 

36  Probability  of  kill  range  maximum  [rmax], 

37-39  Preferences  of  AD  weapon  for  each  enemy  helicopter  [H]. 


F.  Air  defense  miscellaneous  files. 


There  is  one  air  defense  miscellaneous  file  for  each  force.  Each  file 
contains  seven  records,  one  for  each  air  defense  weapon.  Each  air  defense 
weapon  record  contains  3  elements.  The  structure  for  each  record  is  as 
follows: 

Index  Description 

1  Weight  per  round  (lbs). 

2  Rounds  per  engagement. 

3  Flyout  velocity  of  the  munition  [Fad]  in  meters/sec. 


G.  Direct  fire  sensor  performance  files. 


There  is  one  direct  fire  sensor  performance  file  for  each  force.  Each  file 
contains  two  records,  the  first  for  optical  ground  sensors  and  the  second 
for  thermal  ground  sensors.  Each  sensor  record  contains  28  elements 
representing  the  probability  of  detection  P  and  the  average  time  to  detect 
T.  The  parameters  in  the  file  represent  fitting  ccefficients  and  are  as 
described  under  the  helicopter  sensor  performance  files.  The  structure  of 
each  file  is  as  follows. 

Index  Description 

1-2  Probability  of  detection  (Poo)  coefficient  [a]  for  mast 

mounted  and  non-mast  mounted  helicopters. 
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Index  Description 

3-4  Probability  of  detection  (Poo)  coefficient  [b]  for  mast 

mounted  and  non-mast  mounted  helicopters. 

5-6  Probability  of  detection  (Poo)  coefficient  [c]  for  mast 

mounted  and  non-mast  mounted  helicopters. 

7-8  Average  time  to  detect  T  coefficient  [a’]  for  mast  mounted 

and  non-mast  mounted  helicopters. 

9-10  Average  time  to  detect  T  coefficient  [  b  *  ]  for  mast  mounted 

and  non-mast  mounted  helicopters. 

11-12  Average  time  to  detect  T  coefficient  [ c  *  ]  for  mast  mounted 

and  non-mast  mounted  helicopters. 

13-20  Probability  of  detection  range  minimum  [rmina]  for  each 

atmospheric  condition  (Day/Night  and  Visibility  -  e.g., 
13-day,  >  5  km,  14-day,  5  km,  15-day,  2  km,  16-day,  1  km, 
17-night,  >  5  km,  etc.) 


21-28  Probability  of  detection  range  maximum  [rmaxa]  for  each 

atmospheric  condition  (same  format  as  probability  of 
detection  range  minimum  above). 


I.  Direct  fire  miscellaneous  files. 


There  is  one  direct  fire  miscellaneous  file  for  each  force.  Each  file 
contains  two  records,  the  first  for  ground  missile  data,  and  the  second  for 
ground  kinetic  energy  round  data.  Each  record  contains  two  elements.  The 
structure  for  each  record  is  as  follows: 

Index  Description 

1  Rounds  fired  per  engagement 

2  Flyout  velocity  of  the  munition  [Fvdf]  in  raeters/second 
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5.  ALGORITHMS 

A.  Figure  6-33  presents  a  generalized  logic  flow  of  the  processes 
occurring  in  the  P4  helicopter  module.  The  diagram  provides  a  framework  for 
the  algorithms  used  in  the  module. 


B.  The  geometry  for  the  helicopter  module  is  assumed  to  be  as  follows: 

(1)  For  air  to  ground  missions,  the  helicopters  will  play  in-line 
with  the  ground  forces. 

(2)  For  SEAD  missions,  the  attacking  helicopters  will  flank  the 
ground  forces. 

(3)  For  air  to  air  missions,  the  attacking  helicopter  will  maximize 
the  range  to  opposing  ground  forces. 


The  following  definitions  are  used: 


Rr  -  The  input  range  by  the  Red  Helicopter  player 
Rg  ■  The  input  range  by  the  Blue  Helicopter  player 
Rf  ■  The  range  between  the  forces 
B  =  Centroid  of  the  Blue  Force 
R  *  Centroid  of  the  Red  Force 

r  *  range  used  by  the  model  when  calculating  Pk,  Poo,  T,  etc.  for 
helicopter  to  helicopter  engagements  (Table  6-Va)  and  helicopter 
vs  ground  engagements  (Tables  6-Vb  &  6-Vc). 


The  range  calculations  used  in  the  helicopter  module  are  illustrated  in 
tables  6-Va  through  6-Vc. 


C.  The  following  paragraphs  provide  a  detailed  description  of  the 
algorithms  used  for  the  attrition  of  target  elements  due  to  helicopters. 
Attrition  to  helicopters  from  air  defense  and  direct  fire  elements  is  also 
calculated. 
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Figure  6-33.  Generalized  logic  flow  of  helicopter  attrition  module 
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Red  Ground  to  Blue  Help  Ranges! r 


» 


BLUE  MISSION 


Direct  Support 

He lo  to  Helo 

SEAD 

Direct 

Support 

c^-!o - 

It  P  J 

Lj  r, 

? 

'R, 

•o - % 

R. 

r  1\| 

R, 

K - R,— ■ — H 

VlR.-R/’R,1 

Helo 

to 

He  1  o 

0  R 

f‘-(R,*R,)/2-H 

°  i  ? 

1  I <L 

? 

■  .  lRe 

t - % 

R. 

K - - — R, - H 

«. 

H - H 

Rf  R,»R, 

2*  4 

SEAD 

•  R 

o  ■  o  -  o 

(« - R, - H 

R. 

MRi  *-  * 

? 

<R, 

'Vi 

K - 1 - 4 

R. 

TABLE  6-Ic 
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(1)  Number  of  helicopter  munitions  fired  during  the  time  step. 


The  number  of  rounds  fired  during  the  timestep  per  helicopter  are: 

Rij  «*  Rpij  *  Putj  *  Fdf^j  ( Eq .  6-40) 

where : 


RPij  - 
Puti  » 

Fdf ij  * 


Average  rounds  fired  at  target  category  j  per  pop-up  by 
helicopter  i 

Number  of  pop-ups  by  helicopter  i  during  the  assessment 
interval 

Fire  distribution  factor  of  rounds  from  firer  i  to  target  j 


(i)  For  air  to  ground: 

Rpij  *  Pdt(r,t)ij  *  Plos(r,ga)i<  *  Np  (Eq.  6-41) 

(ii)  For  air  to  air: 

RPij  *  P(engage)^j  *  Np  (Eq.  6-41a) 


where: 


Pdt(r,t)jj  =  Probability  of  detection  of  target  j  which  falls  into 
detection  category  t  by  the  firer  i.  The  detection  category 
is  described  under  equation  6-42. 

Plos(r,ga)){  *  Probability  that  the  helicopter  has  line  of  sight  to  the 
opposing  force  in  terrain  type  k  at  range  r.  The  target  may 
be  either  ground  or  air  (ga). 

Np  «»  Tactical  number  of  rounds  fired  by  a  helicopter  when 
engaging  a  target. 

P(engage)^j  =  Probability  that  helicopter  i  will  engage  target  helicopter 

j 

(i)  Both  Pdt(r,t)jj  and  Plos(r,ga)jc  are  functions  of  range.  They  have  the 
following  forms. 


Pdt(r,t)ij  «  Pdfe(r ,t)a  *  Pfe  +  Pdhd(r,t)a  *  Phd  (Eq.  6-42) 

where : 
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Pdfe(r ,t)a  = 


If  rmina  <_r  < 


Probability  of  helicopter  i  detecting  a  fully  exposed  target 
of  type  t  at  range  r  under  atmospheric  conditions  a.  The 
target  categories  are  personnel,  light  vehicles,  heavy 
vehicles,  artillery,  and  helicopters.  The  subscript  a 
represents  the  atmospheric  conditions.  Eight  conditions  can 
be  played:  1  km,  2  km,  5  km,  >5  km  for  both  day  and  night. 


<_  rmaxa : 


Pdfe(r ,t)a 


Poo(r.t)  1  -  e 


(-  Ut(r)/T(r,t)) 


(Eq.  6-43) 


Otherwise,  Pdfe(r,t)£ 


0. 


where  Poo(r,t)  =  atr^  +  btr  +  ct  is  the  probability  of  detecting  the 

target  of  category  t  at  range  r  when  searching  infinite 
time,  at,  bt,  ct  are  fit  parameters  for  target  type  t. 

T(r,t)  =  atr^  +  ^tr  +  ct  is  the  average  time  to  detect  a  target. 
at,  bt,  ct  are  fit  parameters  for  target  type  t. 

Ut(r)  =  the  time  the  helicopter  is  exposed  (te^)  minus  its  fire 
and  guide  time,  te£k  =  r  /  fm  (fm  is  munition  dependent 
for  a  missile,  gun  or  air  defense) 


rmina  and  rmaxa  are  bounds  based  on  the  day,  night  and  atmospheric  type. 

Pdhd(r,t)a  =  probability  of  detection  for  hull  defilade  targets.  The 
definition  of  the  structure  is  analogous  to  Pdfe(r,t)a. 
Pfe  *  percent  of  the  targeted  force  fully  exposed. 

Phd  =  percent  of  the  targeted  force  in  hull  defilade. 

"  f?  r 

Plos(r,ga)k  -  Ot  (e  )  (Eq.  6-44) 


where : 


Of  and  p  are  fitting  factors  for  probability  of  line  of  sight  in  four 
different  types  of  terrain  k  for  helicopters  searching  for  ground  targets 
and  helicopters  searching  for  air  targets  and  in  SEAD  missions. 


Popups  for  this  time  interval  can  be  described  as 


Put^* 


ts 


t®ik  +  teik 


(Eq.  6-45) 


where : 


Put* 

ts 

tmik 


teik 


*  number  of  pop-ups  this  time  interval  for  firer  i 
=  seconds  represented  in  the  attrition  step 

*  the  average  time  masked  per  firing  cycle  for  helicopter  i 
mission  k 

*  the  average  time  exposed  for  helicopter  i  for  mission  k 

1  air  to  ground 
k  =  2  air  to  air 

3  SEAD  for  helicopter  type  j 


for 


The  tm^  and  te^  values  that  are  used  in  calculations  are  determined  by 
helicopter  i's  primary  mission.  If  helicopter  i  is  on  an  air  to  ground  or 
SEAD  mission,  the  tm^  and  te^  of  the  conventional  munitions  (guns  or 
missiles)  are  used.  If  it  is  on  an  air  to  air  mission,  the  tm^  and  te^  of 
the  air  munitions  are  used. 


(ii)  Equation  6-41a  is  basically  the  same  as  equation  6-41  with 

P(engage)j,j  «*  P( Exposure  time^  >  <y6  (r))  * 

P(Detection  time^j  <  Exposure  time^  -(JD(r))  (Eq.  6-46) 

where : 

<^)(r)  =  r/fi  (Eq.  6-47) 

r  is  the  target  range  and  fi  is  the  firer  munition  pinpoint  and  flyout 
time  in  meters/second. 

The  difference  in  the  equations  arises  because  the  target  and  firer  are 
popping  up  and  down  with  their  own  frequencies.  To  solve  the  equations,  the 
following  assumptions  are  made: 

(a)  The  pop-up,  pop-down  process  is  an  alternating  Markov  process 
with  the  durations  of  the  alternating  up,  down  states  negative 
exponential  random  variables. 

(b)  The  time  to  acquire  a  target  given  it  is  continuously  visible  is 
an  exponentially  distributed  random  variable. 
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(c)  The  line  of  sight  process  between  each  target-firer  pair  is 
independent  of  all  other  pairs. 


(d)  Once  a  firer  helicopter  i  has  begun  an  engagement  of  a 
helicopter  target  j,  it  will  continue  until  the  engagement  is 
complete,  regardless  if  any  other  helicopter  is  firing  at  the  same 
target. 


P( Exposure)  then  becomes  the  exponentially  distributed  density  function: 


P(t)  =  £  *e  yi 


where  0<t 


(Eq.  6-48) 


£  - 1  ' 


(Eq.  6-49) 


where  te^  *  the  exposure  time  for  firer  i  while  it  is  performing  mission  k. 

DET^j(t)  is  the  probability  that  firer  i  will  have  detected  target 
helicopter  j  after  searching  (t)  seconds.  DET-jj(t)  has  the  following  form 
under  the  assumption  of  completed  firing  engagement  (from  "Vector-2  System 
of  Theater  Level  Combat"  DDC  number  ADB037799) : 


ij(t)  -  1-  1  -  (Zij  /(jLZj  -  Zij))(e 


jt  _/iit  |Nj 
-  e  ) 


(Eq.  6-50) 


where: 


Nj  ■  number  of  target  helicopters  j  on  site 
Z j  -  the  rate  firer  i  detects  target  j,  with  j  moving  in 
and  out  of  the  line  of  sight  of  i. 


X  i  j  *7]  ij 

y*+  fi  j 


(Eq.  6-51) 


77  j  -  (  1  /  tmjk) 


(Eq.  6-52) 


jUj  -  (1  /  te-jk) 
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(Eq.  6-53) 


Note  that  tmjk  and  tejk  are  the  mask  and  exposure  times  of  the  target 
helicopter  j  and  are  determined  by  the  same  rules  as  in  equation  6-45. 

^  ^ j  =  the  rate  at  which  helicopter  i  detects  helicopter  j 


,t)  1  - 


-(teik  -  r  /  tm)J  T(r,t) 


(Eq.  6-54) 


T(r.t) 


Where  Poo(x,t)  and  T(r,t)  are  as  described  in  equation  6-43. 

Also  note  that  the  dividend  of  X-jj  is  the  same  calculation  as  Pdfe(r,t)a 
(equation  6-43). 


Then: 


P(engage)ij  -  J 
<t>(  r) 


*  DETij(t  -<£( r))dt 


Substituting  in  equation  6-50  we  get: 


oo 

P(engage)ij  =  J  *  e  *i  1-1-  (zjj  /  (fjj  -  zi:j))  * 

<f> (r)  1  I”  L 


-  zij(b  ~p( r))  fj  j(t  -</)(r)) 
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The  approximation  used  to  numerically  solve  this  equation  is: 


ln.l 


>1  -  C  t 

P(engage)ij  =  Z,  £.  *e  **  *  DETij(t  -0(r)) 

t  *0(r)  **  J 


(Eq.  6-55) 

(This  will  account  for  at  least  90%  of  the  density  of  the  firer  exposure 
time.) 


(2)  Probability  of  kill  for  Target  i  by  Helicopter  i. 

The  probability  of  kill  for  this  timestep  is  given  by: 

Pkij  =  Pkdij(r)  *  Phd  +  Pkei:j(r)  *  Pfe  (Eq.  6-56) 

where : 


Pkdjj(r)  ■  the  probability  of  kill  for  target  category  j  by 

helicopter  i  for  defilade  targets  at  range  r.  Note  that 
the  target  category  (1-20)  has  been  used. 

Pkejj(r)  =  probability  of  kill  for  target  category  j  by  helicopter 

i  for  fully  exposed  targets  at  range  r.  Again  the 

target  category  (1-20)  has  been  used. 


Pkdjj(r)  and  Pke-j_j(r)  have  the  following  forms:  If  rmin  <_  r  <_  rmax,  then 
Pkd-jj(r)  and  Pke-jj(r)  -  ar^  +  br  +  c  (Eq.  6-57) 

Otherwise  they  equal  0. 


The  variables  rmin  and  rmax  are  a  function  of  target  category  and 
helicopter  munition  combination.  (Each  helicopter  can  be  equipped  with  a 
maximum  load  of  two  air  to  ground  munitions,  and  one  air  to  air  munitions. 
It  can  be  loaded  explicitly  with  fewer  munitions.) 

Phd  and  Pfe  are  respectively  the  percent  of  the  target  force  in  hull 
defilade  or  fully  exposed.  Note  that  these  are  the  same  percentages  as 
described  under  probability  of  detection. 


(3)  Fire  Distribution  Factor  for  Target  i  by  Helicopter  i. 
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The  fire  distribution  factor,  Fdf-jj,  of  rounds  fired  by  helicopter  i  at 
target  category  j  can  be  calculated  using  the  following: 


Pdt(r,t)ij  *  tgtj  *  Pkeij(r)  *  Di:)-k 

Fdf^  -  _ _ _ _ _ _  (Eq.  6-58) 

20 

all  target  V"* 

categories  l_,  Pdt(r,t)ij  *  tgtj  *  Pkeij(r)  *  ^  jk 


where : 


®ijk  *  a  weighted  factor  representing  the  preferred  distribution  of 
firer  i  vs  category  J  for  mission  k. 

tgtj  «  number  of  target  elements  in  category  j  being  engaged  by  firer  i. 
Pdt(r,t)^j  and  Pkejj(r)  are  as  described  in  previous  paragraphs. 


(4)  Determine  Actual  Number  of  Air  and  Conventional  Rounds  Fired 
Based  on  Ammunition  Constraints. 

17 

(a)  Pgi  -  Y  Fdft1  (Eq.  6-59) 

J-l 


20 

Pai  *  L  Fdfij 

J-18 


where: 


Pgi  *  desired  percent  of  time  firing  at  ground  targets 
Paj[  ■  desired  percent  of  time  firing  at  air  targets. 
Fdfjj  is  as  described  in  Equation  6-58. 
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(b) 


17  _ 

Cnvpopi  =  V  (Rpij  *  Fdfij)  /  Pgi  (Eq.  6-60) 

J=1 


20 

Airpopi  =  ^  (RPij  *Fdfij)  /  Pai 
where: 

Cnvpopi  =  total  number  of  conventional  munitions  fired  per  popup  by 
firer  i  at  all  ground  targets. 

Airpopi  =*  total  number  of  air  missiles  fired  per  popup  by  firer  i  at 
all  air  targets. 


Rpij  and  Fdfjj  are  as  described  in  Equations  6-41  and  6-58,  respectively. 
Note  that  the  tradeoff  rate  of  air  to  air/ground  is  Air pop.j/ Cnvpopi . 


(c) 

17 

Rgi  =  Y  RPii  *  Puti*  Fdfii  (Eq.  6~61) 

j-1 


20 

Rhi=  z  Rpij  *  Puti* 

J-18 

where : 

Rgi  =  total  number  of  rounds  fired  at  ground  targets  by  firer  i. 

Rhi  =  total  number  of  air  missiles  fired  at  air  targets  by  firer 


Rpij,  Puti,  and  FdFij  are  as  described  in  Equations  6-41,  6-45,  and  6-58, 
respectively. 
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Where  R^j  is  as  described  in  Equation  6-40. 

(d)  Determine  rounds  based  on  ammunition  constraints. 

Rab-£  *  basic  load  of  air  munitions  for  firer  i. 

Rcb^  =  basic  load  of  conventional  munitions  for  firer  i. 


Case  I:  Enough  air  and  ground  rounds  on  board  to  fire  the  desired 

number  of  rounds: 

Rhf  <_  Rab^  and  Rg^  <_  Rcb^ 

then: 

Rair^  =  Rh^  and  Rconv^  *  Rgi 

where : 

Rair^  *  actual  total  number  of  air  rounds  fired 
based  on  ammo  constraints. 

Rconv^  »  actual  total  number  of  ground  rounds 
fired  based  on  ammo  constraints. 


Case  II:  Not  enough  air  rounds  on  board: 

Rh^  >  Rab^ 

R'gi  -  (Rhi-  Rabi)  *  (Cnvpopi  /  Airpopi)  (Eq.  6-62) 

where  R'gi  =  amount  of  conventional  rounds  needed  to  make  up  insufficient 
air  rounds. 
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Ha. 


If  there  are  enough  conventional  rounds  on  board: 
R'gi  +  Rgi  <_  Rcbi 

then: 

Rairi  -  Rabi 
Rconvi  *  R'gi  +  Rgi 


lib. 

If  there  are  not  enough  conventional  rounds  on  board: 

R'gi  +  Rgi  >  Rcbi 

then 

Rairi  =*  Rabi 
Rconvi  »  Rcbi 

and  the  number  of  popups  is  reduced: 

Puti  »  Puti  *  ((Rairi  +  Rconvi  *  (Airpopi/Cnvpopi))  / 

(Rhi+  Rgi  *  Airpopi/Cnvpopi)))  (Eq.  6-63) 


Case  III:  Not  enough  ground  rounds  on  board: 

Rgi  >  Rcbi 

R'hi  *  (Rgi  -  Rcbi)  *  (Airpopi  /  Cnvpopi)  (Eq.  6-62a) 

where  R'hi  »  amount  of  air  missiles  needed  to  make  up 
insufficient  ground  rounds. 


Ilia. 

If  there  are  enough  air  munitions  on  board: 
R'hi  +  Rhi  <_  Rabi 

then 


Rairi  =■  R'hi  +  Rhi 
Rconvi  »  Rcbi 
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nib. 


If  there  are  not  enough  air  munitions  on  board: 

R'hjL  +  Rh^  >  Rab^ 

then 

Rair^  »  Rab^ 

Rconv^  «  Rcbi 

and  the  number  of  popups  is  reduced. 

Puti*  Put^  *  ((Rair^  *  (Cnvpopi  /  Airpop^)  +  Rconv^))  / 

(Rhi  *  (Cnvpopi  /  Airpopi)  +  Rg*))  (Eq.  6-63a) 


Rair^  and  Rconv^  are  then  used  to  scale  down  the  actual  number  of  rounds 
fixed  at  each  target  j,  if  needed. 


(5)  Number  of  Rounds  Fired  by  the  Air  Defense  Elements  During  the 
Time.  Step 

The  rounds  fired  during  the  time  step  per  air  defense  element  are 


Rij  »  RaPij  *  Putj  *  Fdadij  (Eq.  6-64) 


where : 


Rapij 


the  rounds  fired  by  the  AD  element  at  helicopter  j  each  time  the 
helicopter  pops  up 

the  number  of  pop  ups  for  helicopter  j  during  this  time  period 
fire  distribution  factor  of  rounds  from  AD  firer  i  to  target 
type  j. 


Note  that: 


Rapij  =  Pad(r , t)i j  *  PlosCr.ga)^ 


(Eq.  6-65) 


Pad(r,t)jj  =  the  probability  that  the  air  defense  element  i  can  detect 
and  engage  a  helicopter  of  type  j  in  time  T  with  mission  ga. 
Plos(r,ga)|<  -  probability  that  AD  element  at  range  r  will  have  line  of 
sight  to  the  helicopter  in  mission  ga  in  terrain  k 
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If  rmina  <.  r  <_  rmaxa: 


Pad(r,t)ij  =  Pcq  (r,j)  ^1  -  e“(T(r)  /  T(r,t))j  (Eq.  6_66) 

where : 


Poo(r,j)  =  the  probability  that  air  defense  weapon  n  can  detect 
helicopter  j  at  range  r  given  it  can  search  for  an  infinite 
period  under  atmospheric  conditions  a. 


Note  that: 


Poo  (r, j)  =  ar2  +  br  +  c  (Eq.  6-67) 

where  a,  b,  c  are  fitting  parameters  and  r  is  the  range  in  meters 

T(r,j)  «  the  average  time  to  detect  helicopter  type  j  at  range  r. 

T(r, j)  =  aTr2  +  bTr  +  cT 

where  aT,  bT,  cT  are  fitting  parameters  and  are  as  described  above. 

T(r)  is  the  time  the  AD  system  has  to  detect  the  helicopter  given  an 
engagement  will  occur  following  detection. 

T(r)  ■  tej  -  r  /  fad^  (Eq.  6-68) 

where : 

tej  =  the  exposure  time  for  helicopter  j 
fadi  »  the  flyout  velocity  of  the  air  defense  munition  (m/sec). 
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/  -J3* r 

Plos(r,ga)k  =  <Me 


(Eq.  6-69) 


where : 


are  fitting  factors  for  probability  of  line  of  sight  in  4 
different  terrains. 


(6)  Probability  of  Kill  for  Helicopter  j  by  AD  element  i. 

The  probability  of  kill  against  helicopter  j  if  rmin  <_  r  rmax  is 

Pkjj(r)  =  aijf2  +  b-jjr  +  c-y  (Eq.  6-70) 

Otherwise,  it  is  0. 

Variables  a^j,  and  c^j  are  fitting  parameters  for  Pk's  of  an  AD  element. 
Variables  rmin  ana  rmax  also  represent  the  effective  range  envelope  of  the 
munition. 


(7)  Fire  Distribution  Factor  for  Helicopter  j  by  AD  element  i. 


Fdad 


ij 


Pad(r,t)ij  *  Tgt j  *  Pkij(r)  * 

Hg^icopter  types 

1  Pad(r  ,t)ij  *  Tgt  j  *  Pkij(r)  *  H^ 
all  j 


^nq.  6-71) 


where: 

Tgtj  =  number  of  helicopter  j  targets  being  engaged  by  AD  i. 
Hij  =  a  preference  of  AD  element  i  for  helicopter  type  j. 

Pad(r,t)-y  and  Pkjj(r)  are  as  described  in  previous  paragraphs. 


p 


(8)  Number  of  Rounds  Fired  by  the  Direct  Fire  Elements  During  the 
Time  Step  (R-j j) ■ 


The  rounds  fired  during  the  time  step  per  direct  fire  element  are: 


Rjj  =  Rdpjj  *  Putj  *  Fdfjj 


(Eq.  6-72) 


where : 


Rdpij  = 

Putj  = 
Fdfjj  = 


the  rounds  fired  by  the  direct  fire  element  i  at  helicopter 
j  per  popup. 

the  number  of  popups  for  helicopter  j  during  this  time  step, 
fire  distribution  factor  from  direct  firer  i  to  helicopter 
target  j.  These  factors  are  calculated  in  the  direct  fire 
portion  of  ground  combat  (P4)  and  passed  to  the  helicopter 
attrition  module  (Helo_kills)  through  the  common  block 
Helo  info. 


Note  that: 

Rd^ij  =  Pdfdtjj  *  Plos(r,ga)k  (Eq.  6-73) 

where: 

Pdfdtjj  =  the  probability  that  direct  fire  element  i  can  detect 
and  engage  helicopter  j. 

Plos(r,ga)k  is  as  described  in  previous  paragraphs. 


If  rmina  <_  r  <_  rmaxa: 

-(Ut(r)/T(r,t)) 

Pdfdtjj  =  Poo(r.j)  (1  -  e  )  (Eq.  6-74) 

where: 

poo(r  ,j)  =  the  probability  that  direct  fire  elements  can  detect 
helicopter  j  at  range  r  given  it  can  search  for  an 
infinite  period  under  atmospheric  conditions  a. 
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Poo  (r,  j) 


ar^  +  br  +  c 


(Eq.  6-75) 


where: 

Variables  a,  b,  c  are  fitting  factors  for  a  sensor  type  and  r  is  the 
range  between  direct  fire  elements  and  helicopter  j  in  meters. 

Ut(r)  »  the  time  the  direct  fire  system  has  to  detect  the  helicopter 
given  an  engagement  does  occur. 

Ut(r)  =  tej  -  r/fvdf  (Eq.  6-76) 

where : 


tej  =  helicopter  j's  exposure  time, 
fvdf  =  flyout  velocity  of  the  direct  fire  munition  (m/sec). 


(9)  Probability  of  Kill  for  Helicopter  i  by  Direct  Fire  i. 

The  probability  of  kill  (Pkjj)  against  helicopter  j  is  retrieved  from  the 
direct  firer's  PK  files.  The  PK  values  are  dependent  on  range,  with  the  6 
records  in  the  PK  files  representing  500  meter  range  bands.  The  values  in 
the  range  band  within  which  the  helicopter  to  ground  range  falls  are  the 
ones  stored  and  used  in  the  helicopter  attrition  section. 


(10)  Fire  Distribution  Factor  for  Helicopter  j  by  DF  element  i. 

The  fire  distribution  factor,  Fdf-jj  from  direct  firer  i  to  helicopter  target 
j  is  calculated  in  the  direct  fire  portion  of  the  ground  combat  (P4) 
routine.  See  Equation  6-35  for  more  details.  These  values  are  then  stored 
in  the  common  block  Helo_info  and  used  in  the  helicopter  attrition  module. 


(11)  Attrition  of  Helicopters.  Air  Defense,  and  Direct  Fire. 

To  determine  the  helicopter  losses,  first  the  probabilities  of  survival  for 
helicopter  target  j  being  fired  upon  by  enemy  helicopters,  air  defense  and 
direct  fire  elements  are  calculated  separately: 

PiJ  -  (1  -  (Pkij  /  Tgtj))  Rij  (Eq.  6-77) 


where : 
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Pjj  =  the  probability  of  survival  for  the  jth  target  helicopter  being 
fired  upon  by  the  ith  firer,  where  firers  are  AD  elements,  DF 
elements  and  attack  helicopters. 

Pk^j,  Tgt^,  and  R^j  are  as  described  in  previous  paragraphs. 


Pjj  is  then  accumulated  for  all  firers. 

7  20  3 

Psj  -  TT  Pij  *  TT  Pij  *  TT  Pij  (Eq.  6-78) 

i»l  i-1  i=l 

all  AD  all  DF  all  attack 
elements  elements  helos 

where : 

Psj  ■  the  probability  of  survival  for  the  jth  target  helicopter  over 
all  AD  elements,  DF  elements  and  attack  helicopters  of  type  i. 

Losses  per  target  category  are  then  calculated. 

Loss j  =  (1-Psj)  *  Tgt j  (Eq.  6-79) 

where 

Lossj  ■  losses  of  target  helicopter  j. 


The  losses  to  the  ground  targets  are  calculated  by: 


Lossgj  -  (1-  (1-  (Pkij  /  Tgtj))RiJ  )*  Tgt  j 


(Eq.  6-80) 


losses  of  ground  target  category  j. 

number  of  target  elements  in  category  j. 

probability  of  kill  of  target  category  j  by  firer  type  i 

rounds  fired  by  i  against  target  category  j  during  this  timestep 
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6.  "UNITFILE"  IMPACT 


The  unit  status  file  ("UNITFILE")  is  not  directly  affected  by  the  helicopter 
module.  The  information  is  returned  to  the  ground  combat  mainline  where  it 
then  affects  the  "UNITFILE". 


7.  CODE. 

The  helicopter  subroutine  code  is  explicitly  depicted  in  the  flow  diagram  in 
Figure  6-34.  Notice  that  the  routine  contains  numerous  loops,  checks  and 
subroutines. 

A  listing  of  major  variables  by  subroutine  is  found  in  Table  6-10.  Table  6- 
14  contains  a  listing  of  the  ground  combat  code, 
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Figure  6-34. 


Functional  flow  of  helicopter  attrition  module. 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued) 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued). 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued). 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued). 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued) 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued) 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued) 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued). 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued) 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued). 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (continued) 
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'-34.  Functional  flow  of  helicopter  attrition  module  (continued) 
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Figure  6-34.  Functional  flow  of  helicopter  attrition  module  (concluded). 
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Pk_fe_a(S, I,M, J)/  A,  B,  and  C  coefficients  of  a 
PK_fe_J>(S»I.M,J)/  quadratic  equation  used  to  calculate 

Pk_fejc(S,I,M,J)  the  probability  of  kill  of  fully 

exposed  targets  of  category  J  based 
on  munition  M,  Side  S,  Helo  type  I. 


Table  6-10.  Helicopter  Subroutine  table. 
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for  mission  M  (1-3)  based  on  terrain. 


Table  6-10.  Helicopter  Subroutine  table. 
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Fad(S,I)  Flyout  velocity  of  AD  1's  munition 

(m/sec) . 


Table  6-10.  Helicopter  Subroutine  table. 
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FF.  Df  sen  otr(S,I)  Sensor  (  1-optical;  2-thermal) 

that  direct  fire  tfpe  I  (1-20) 
of  side  S(l-2)  uses. 


Table  6-10.  Helicopter  Subroutine  table. 
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D£  avg_£ired  Calculate  the  average  A.  Df_avg_fired(I, J)  Average  number  of  rounds 
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by  Direct  Fire  systems  at  helicopter  J. 
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Section  VI.  Precision  Guided  Munitions  Attrition 


1.  PURPOSE. 

The  precision-guided  munitions  (PGM)  attrition  module  calculates  losses  to 
target  elements  due  to  cannon-launched  guided  projectiles  (CLGP)  and  guided 
antiarmor  mortar  projectiles  (GAMP). 


2.  GENERAL. 

A.  CLGP  are  Blue  indirect  fire  weapon  systems  that  fire  at  point 
targets.  Guidance  for  the  CLGP  rounds  is  assumed  to  be  provided  by  a  ground 
locator  laser  designator  (GLLD)  or  may  be  specified  to  have  remotely  piloted 
vehicle  (RPV)  guidance.  Smoke  does  not  degrade  the  allocation  of  targets  to 
CLGP.  GAMP  attrition  is  applied  in  a  similar  manner,  but  without  the  choice 
of  guidance.  Smoke  is  also  assumed  not  to  degrade  the  allocation  of  targets 
to  GAMP.  Both  PGMs  fire  only  under  close  support  artillery  munitions. 

B.  Currently,  only  Blue  PGMs  are  used  against  Red  targets  in  DIME. 


3.  DATA  FLOW. 

A.  Data  received  from  the  ground  combat  driver  program  include  which 
PGMs  fire,  number  of  rounds  to  be  fired,  visibility  range,  terrain  type,  PGM 
sensor  types,  cloud  height  in  meters,  atmospheric  (dust)  degradation,  and 
the  targets  available. 

B.  All  other  data  are  specified  in  external  data  files.  This 
information  includes  weighted  values  for  target  preference,  single-shot  kill 
probabilities,  masks  displaying  which  targets  may  be  fired  upon,  and 
designator  degradation  factors. 

C.  The  data  flow  is  represented  in  Figure  6-35. 

4.  FILE  STRUCTURE. 

External  files  are  as  follows: 

A.  The  Tgt_value  (I,J)  file  contains  numbers  from  0  to  10  (10  being 
highest  preference)  which  represent  the  preference  of  the  Ith  PGM  firing  on 
the  target  where: 
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Data  from 
ground  canbat 
mainline: 


Internal 
data : 


PGM  types  firing 
rounds  to  be  used 
visibility  range 
terrain  type 
sensor  types 
cloud  height 
dust  degredatlon 
targets 


Resul ts: 


PGM 

Kills 

Attrition 

- > 

due  to 

Modul  e 

PGMs 

target 
preferences 
single  shot 
kill  probabilities 
target  masks 
Designator 
degredatlon 
factors 


Figure  6-35.  PGM  data  flow. 


1=1-  CLGP 
2  -  GAMP 

J  =  1  to  70  system  elements 

The  Sskp  (I, J)  file  contains  the  single-shot  kill  probability  (SSKP) 
for  the  Ith  PGM  firing  on  the  Jth  target.  All  CLGP  SSSCPs  depend  on  the 
guidance  system.  Therefore,  Sskp(l,J),  for  J=1  to  70,  contain  zeros.  The 
array  Sskp_clgp(J)  is  selected  according  to  the  guidance  system. 

C.  Tgt  maskl(I.J)  represents  the  firing  ability  of  the  Ith  PGM  to  fire 
upon  the  JTtl  target.  A  zero  means  the  target  may  not  be  fired  upon;  a  1 
means  the  target  may  be  fired  upon. 

D.  The  following  data  refers  only  to  CLGP: 

(1)  Terr__factor(I)  is  CLGP's  designator  degradation  factor  based  on 
terrain  type  where: 


1=1-  Open 

2  -  Rolling 

3  -  Hilly 

4  -  Mountainous. 

(2)  Prob_dustabort(I,J)  is  CLGP’s  designator  degradation  factor  where: 

1=1-  Light  atmospheric  (dust)  obscuration 

2  -  Medium  atmospheric  (dust)  obscuration 

3  -  Heavy  atmospheric  (dust)  obscuration 

J  =  1  -  7  km  visibility 

2  -  5  km  visibility 

3  -  2  km  visibility 

4  -  1  km  visibility. 

(3)  Clgp_jnask(J)  partitions  the  combined  mask  of  Tgt_maskl(*)  into  a 
mask  which  specifies  the  sensor  designator.  Clgp_mask(J)  may  be  chosen  to 
represent  GLLD  or  RPV  accordingly.  J  represents  the  70  target  types. 

(4)  Prob__desg(I, J)  is  the  CLGP  designator  degradation  factor  where: 

I  =  1  -  Up  to  1500  feet 

2  -  1500-2000  feet 

3  -  2000-2500  feet 

4  -  2500-3000  feet 

5  -  3000-4500  feet 

6  -  Over  4500  feet 

J  =  1  -  7  km  visibility 

2  -  5  km  visibility 

3  -  2  km  visibility 

4  -  1  km  visibility 
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5. 


ALGORITHMS 


A.  Figure  6-36  represents  a  generalized  logic  flow  of  the  processes 
occurring  in  the  PGM  attrition  module.  This  module  involves  a  slice 
methodology  like  that  in  Chapter  6,  section  IV,  which  is  the  direct  fire 
attrition.  This  slice  methodology  is  used  to  bring  about  a  more  accurate 
representation  of  fire  during  battle.  It  allows  the  attrition  to  occur  in 
15  slices  during  a  30-minute  period  rather  than  one  large  mass  of  fire  in 
one  moment  for  a  30-minute  period.  PGMs  do  not  use  range  bands  as  does  the 
direct  fire  algorithm. 

B.  Calculations  occurring  during  each  slice  consist  of  the  following: 

(1)  Calculate  weighted  sum. 


T 

y  (Tvpt  *  Pst  *  Ntt  *  Tmpt  *  Des)  (Eq.  6-81) 
t=l 


the  weighted  target  sum  for  the  pth  PGM. 
total  number  of  target  systems. 

the  target  value  of  the  pctl  PGM  firing  on  the  ttl1 
target. 

the  current  probability  of  survival  for  the  tth  target 
during  the  current  slice. 

the  number  of  targets  in  the  t^  target  element. 

the  target  mask  for  the  p1-*1  PGM  firing  on  the  t1-*1 

target. 

the  designator  discriminating  factor  for  discriminating 
between  high  and  low  probability  of  kill  (PK)  targets. 


where : 


W 


? 


Tv 


Pt 
Pst  = 

Ntt  - 
Tmpt  =* 

Des  * 


(2)  Calculate  rounds  fired  per  slice.  These  rounds  are  calculated 
per  slice  for  each  firer  firing  on  one  type  target  system.  The  formula 
below  is  used  only  if  Tmpt  *  Ctt  is  greater  than  zero: 

Rpt  =  [(Ctt  *  Tvpt  *  Des)/Wp  ]  *  (Nrp  /Ns)  (Eq.  6-82) 

where : 

Rpt  ■  the  rounds  fired  by  a  PGM  firing  on  one  type  target  system. 

Ctt  “  current  number  of  targets  available  to  fire  upon  for  this 

slice. 

Nrp  «  the  number  of  rounds  the  pc^  PGM  is  to  fire. 

Ns  -  the  number  of  slices;  set  to  15. 
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Slice  Loop: 


Figure  6-36.  PGM  logic  flow. 
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These  rounds  are  then  multiplied  by  all  degradation  factors  to  represent  the 
number  of  rounds  which  hit  the  targets.  The  number  of  rounds  which  hit  the 
targets  is  shown  as  Rh  below. 


Rhpt  *  Rpt  *  Td  *  Pd  *  Pda  (Eq.  6-82a) 


where : 

Td  »  degradation  due  to  terrain. 

Pd  »  designator  degradation  due  to  clouds  and  visibility. 
Pda  -  designator  degradation  due  to  dust  and  visibility. 


(3)  The  probability  of  survival  for  each  target  being  fired  upon  by 
each  PGM  is: 

Ppt  -  (1  -  Pkpt  *  Lr/D)  t  Rhpt  (Eq.  6-83) 

where : 

Ppt  *  the  probability  of  survival  for  the  tth  target  being  fired 
upon  by  the  p1^  PGM. 

Pkpt  -  the  single-shot  kill  probability  of  the  pth  P©1  firing  on 
the  t£6  target. 

Lr  ■  the  laser  designator  reliability  factor. 

D  ■  the  maximum  of  1  and  the  current  number  of  available 
targets  for  this  slice  (CT)  multiplied  by  the  smoke 
degradation  factor  which  is  set  to  1. 

Rhpt  »  number  of  rounds  which  hit  the  targets. 


The  value  Ptk  is  the  probability  of  target  t  surviving  the  lethality  of  all 
PGMs  for  slice  K. 


Ptk  *  ff  pptk  (Eq.  6-84) 

P-1 


The  value  Ptk  is  accumulated  across  all  slices  by: 


Ns 

Pst  -  TT  ptk  (Eq.  6-84a) 

k-1 

giving  the  probability  of  survival  (Ps^)  per  target  over  all  slices  (Ns)  and 
over  all  PGMs. 
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(4)  Now  it  is  possible  to  calculate  the  losses  to  each  target  system. 
The  formula  is  as  follows: 


Lt  =  (1  -  Pst)  *  Ntt  (Eq.  6-85) 


where : 


Lt  =  losses  to  target  elements  due  to  PGMs. 

Pst  =  the  probability  of  survival  per  target  element  over  all 
slices  and  over  all  PGMs. 

Ntt  =  the  number  of  targets  in  the  t*-*1  target  element. 


6.  "UNITFILE"  IMPACT. 

This  module  does  not  directly  impact  the  unit  status  file  ("UNITFILE") . 
Kills  calculated  in  this  routine  are  returned  to  the  ground  combat  mainline 
and  then  decremented  from  the  "UNITFILE". 


7.  CODE. 

A.  Introduction.  This  section  contains  information  on  the  PGM  attrition 
code.  The  functional  areas  discussed  in  the  following  paragraphs  are 
represented  in  Figure  6-37. 

B.  PGM  attrition  functional  areas. 


(1)  The  data  received  from  the  ground  combat  mainline  include  PGMs 
which  fire,  number  of  rounds  to  be  fired,  visibility  range,  terrain  type, 
PGM  sensor  types,  cloud  height  in  meters,  atmospheric  (dust)  degradation 
flag,  and  available  targets. 

(2)  Data  files  are  read  for  both  CLGP  and  GAMP. 

(3)  Initialization  of  variables,  such  as  the  number  of  slices,  the 
number  of  possible  firers,  and  the  number  of  possible  target  elements, 
occurs.  Before  accumulation  of  the  probability  of  survival,  it  must  be 
initialized  to  1. 

(4)  Files  specifically  set  up  for  CLGP  are  now  read.  To  do  this, 
flags  are  set  to  determine  the  guidance  system  so  the  appropriate  data  may 
be  used. 

(5)  Due  to  the  two  sets  of  mask  files  and  SSKP  files  set  up  for  CLGP, 
it  is  necessary  to  combine  the  two  sets  of  files  into  one  set  of  usable 
files: 
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The  Tgt_maskl( 1 , J)  and  the  Clgp_mask(J)  files  are  combined  giving 
Tgt_mask( 1 , J) .  At  the  same  time,  Tgt_maskl(2, J)  is  placed  into 
Tgt_mask(2, J) .  Then  the  Sskp_clgp(J)  replaces  the  zeros  originally  in 
Sskp(l,J).  The  J  represents  the  70  weapon  elements. 


(6)  Using  the  slice  methodology  discussed  in  the  algorithm  portion  of 
PGM  attrition,  the  calculations  occurring  within  the  slice  loop  consist  of 
the  following: 

(a)  Weighted  sum  of  current  targets  for  each  firer. 

(b)  Specific  degradation  factors  determined  for  both  CLGP  and  GAMP. 

(c)  Current  available  targets.  This  represents  the  slice  losses  to 
all  targets. 

(d)  Rounds  fired  per  slice.  These  are  calculated  within  the  slice 
loop.  Degradation  factors  are  then  multiplied  to  the  rounds  fired.  This  is 
done  to  represent  the  number  of  rounds  which  hit  targets.  Actual  rounds 
used  are  calculated  in  the  ground  combat  mainline. 

(e)  Probability  of  survival  per  slice  for  each  firer  firing  on  each 
target.  This  probability  is  then  accumulated  for  all  firers  firing  on  each 
target  over  all  slices. 

(7)  The  accumulated  probability  of  survival  for  each  target  is  used  to 
calculate  losses  due  to  PGMs. 


C.  The  primary  variables  for  the  PGM  attrition  module  are  shown  in  Table 
6-11.  Each  variable  is  accompanied  by  a  short  description.  See  Table  6-14 
for  the  ground  combat  code  listing. 


6-VI-9 


Table  6-11.  PGM  subroutine  table 
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Fir_typ  (I)  Flag,  whose  value: 

1  ■  PGM  is  being  fired 

2  ■  PGM  not  fired 
indicates  the  play  of  PGM  I, 
I  -  1  -  CLGP 
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Table  6-11.  PGM  subroutine  table 
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the  preference. 


Subroutine  called  Subroutine  functlon(a)  Primary  variables  Variable  descriptions 
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Section  VII.  Infantry 


1.  PURPOSE. 

The  purpose  of  the  infantry  module  is  to  calculate  the  Red  and  Blue  direct 
fire  infantry  losses  during  a  30-minute  interval. 


2.  GENERAL. 

A.  The  infantry  module  combines  gamer  inputs  passed  in  through  the  main 
driver  routine  with  firepower  scores  and  a  force  multiplier  to  compute  a 
firepower  ratio  for  each  force. 

B.  The  firepower  ratio  is  used  to  compute  the  total  infantry  attrition 
suffered  by  each  force  during  a  30-minute  interval. 

C.  For  each  30-minute  interval,  the  main  driver  routine  combines  the 
infantry  losses  with  all  other  losses  to  determine  a  total  ground  combat 
attrition  suffered  by  each  force  for  that  period. 

3.  DATA  FLOW. 

A.  The  infantry  module  uses  driver  inputs  passed  from  the  ground  combat 
driver  program  to  access  the  appropriate  firepower  scores  and  force 
multipliers  for  each  force. 

(1)  Driver  inputs.  The  main  driver  routine  passes  the  following  data 
into  the  infantry  module. 

(a)  Sys(I,J).  A  6x70  array  which  contains  the  current  status  of 
all  units  in  conflict,  where: 

I  =  1  -  Blue  targets 

2  -  Blue  losses 

3  -  Red  targets 

4  -  Red  losses 

5  -  Blue  direct  fire  elements 

6  -  Red  direct  fire  elements 

J  =  1  -  70  -  weapon  systems 

NOTE:  The  only  J  used  in  this  subroutine  is  when  J  =  36  -  47,  since  these 
elements  on  the  weapons  list  contain  the  infantry  position. 

(b)  Force.  An  integer  value  of  1  or  2  which  identifies  the  force 
type,  where: 
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1  -  Light  force 

2  -  Heavy  force. 

(c)  Cstat(I).  An  integer  value  of  1  to  10  which  identifies  the 
mission  for  force  I  where: 

I  ■  1  -  Blue  force 

2  -  Red  force 

Mission  ■  1  -  Movement  to  contact 

2  -  Indirect  fire 

3  -  Movement 

4  -  Frontal  attack 

5  -  Envelopmental  attack 

6  -  Delay 

7  -  Hasty  defense 

8  -  Prepared  defense 

9  -  Rear  area 
10  -  Ambush. 


(d)  Attacker.  An  integer  value  of  1  or  2  which  identifies  the 
attacking  force,  where:  1  -  Blue  attacking  2  -  Red  attacking. 

(e)  Hr_conflict.  A  real  value  which  contains  the  time,  in  hours, 
for  assessment  of  infantry  battle. 


(2)  Firepower  scores.  The  firepower  scores  are  simply  numerical 
values  assigned  to  weapon  systems  to  quantify  their  potential  to  inflict 
damage. 


(a)  The  firepower  scores  used  in  the  DIME  game  were  derived  from 
the  Concepts  Analysis  Agency's  (CAA)  Weapon  Effectiveness  Indices/Weighted 
Unit  Values  (WEI/WUV)  methodology.  The  DIME  firepower  scores  are  classified 
and  may  be  found  in  volume  III  of  this  report. 

(b)  The  firepower  scores  file  consists  of  two  records  containing 
the  firepower  score  for  the  Blue  (record  1)  and  the  Red  (record  2)  forces. 
Each  record  is  a  three  dimensional  array,  where: 

I  *  1  to  70  weapon  systems 

J  *  1  -  light  force 
2  -  heavy  force 

K  =»  1  -  Red  attacking/Blue  defending 
2  -  Blue  attacking/Red  defending. 
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(3)  Force  multiplier.  A  real  value  which  reflects  an  adjustment 
factor  for  maneuver  unit  weapons  is  either  an  attack  or  defend  posture. 
Table  6-12  contains  a  list  of  the  force  multipliers  by  battle  posture  and 
mission.  These  multipliers,  dependent  on  attacker/defender  and  mission 
status,  are  established  as  equations  within  the  code. 


Table 

Tactical 

6-12.  Infantry  force  multipliers. 

Battle  posture 

Situation 

Attacker 

Defender 

Movement  to  contact 

1.5 

1.0 

Indirect  fire 

1.5 

1.0 

Movement 

1.5 

1.0 

Frontal  attack 

1.5 

1.0 

Envelopmental  attack 

1.5 

1.0 

Delay 

1.5 

1.0 

Hasty  defense 

1.5 

1.2 

Prepared  defense 

1.3 

1.5 

Rear  area 

2.0 

0.5 

Ambush 

1.0 

4.5 

B.  The  infantry  module  returns  the  total  losses  for  both  Blue  and  Red 
forces. 

C.  Figure  6-38  indicates  the  generalized  data  flow  for  the  infantry 
module. 
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MAIN  DRIVER  INPUTS: 
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Figure  6-38.  Infantry  data  flow. 


4.  FILE  STRUCTURE. 


The  only  data  stored  in  an  auxiliary  file  are  the  firepower  scores.  The 
firepower  scores  are  read  into  two  on-line  data  arrays,  Fpsb(*)  and  Fpsr(*). 

A.  Fpsb  (I,J,K).  An  array  with  dimensions  (70,2,2)  which  contains  the 
Blue  firepower  scores  for  the  70  weapon  elements  assigned  to  one  of  two 
force  types,  either  attacking  or  defending. 


I  =  1  to  70  weapon  systems 

J  »  1  -  light  force 
2  -  heavy  force 

K  *  1  -  Red  attacking/Blue  defending 
2  -  Blue  attacking/Red  defending. 


B.  Fpsr  (I,J,K).  An  array  containing  the  Red  firepower  scores.  The 
definitions  of  I,  J,  and  K  are  the  same  as  above. 


5.  ALGORITHMS. 

A.  The  infantry  module  combines  the  gamer  inputs,  force  multiplier,  and 
firepower  scores  discussed  in  paragraphs  3  and  4  with  the  generalized  logic 
flow  shown  in  Figure  6-39  to  calculate  the  total  losses  suffered  by  each 
force. 


(1)  The  program  begins  by  calculating  a  firepower  ratio. 

(a)  A  firepower  ratio  is  a  measure  of  one  force's  capability  to 
inflict  damage  relative  to  the  capability  of  another  force.  In  forming  such 
a  ratio,  the  tactical  situation  of  the  maneuver  units  of  both  the  attacking 
and  defending  forces  are  considered,  and  the  firepower  scores  are  adjusted 
accordingly.  For  instance,  a  defending  force  would  expect  to  be  less 
vulnerable  if  it  were  occupying  a  fortified  defensive  position  than  if  it 
were  engaging  the  enemy  in  the  open.  Likewise,  an  attacking  force  would 
expect  to  inflict  greater  damage  executing  a  frontal  attack  against  a  unit 
in  a  hasty  defense,  as  a  unit  in  a  prepared  defense. 

(b)  The  unadjusted  total  firepower  score  for  each  force  is 
multiplied  by  the  appropriate  tactical  situation  adjustment  factor  (see 
Table  6-12,  infantry  force  multipliers).  The  attacker-to-defender  firepower 
ratio  is  then  calculated.  The  firepower  ratio  calculation  is  expressed 
algebraically  as: 
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I 


Figure  6-39.  Generalized  infantry  logic  flow. 
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*  Atsaf 


where: 


Fpr  *  the  firepower  ratio. 

Atsaf  »  the  attacker  tactical  situation  adjustment  factor  (see 
Table  6-12) . 

Dtsaf  *  the  defender  tactical  situation  adjustment  factor  (see 
Table  6-12). 

Dfpsi  *  the  firepower  score  of  the  defender’s  it*1  system. 

Afps^  *  the  firepower  score  of  the  attacker's  ic^  system. 

As^  »  the  number  of  attacking  systems  (i) 

Dsi  *  the  number  of  defending  systems  (i) 


(2)  This  calculated  firepower  ratio  is  used  to  compute  the  casualty 
rates  for  defending  and  attacking  forces. 

(a)  Defending  forces.  The  casualty  rate  for  a  defending  force 
is  a  function  of  the  combat  force  ratio  (FPR)  and  the  mission  of  the 
defending  force.  Figure  6-40  shows  a  graphical  representation  of  the 
casualty  rate  for  ground  combat  personnel  in  one  of  six  defense  missions. 
Combining  the  graphs  with  a  curve  fitting  equation  using  the  FPR,  the 
casualty  rate  is  calculated  by: 


Drate  *  A  +  B  *  Fpr  +  C  *  Fpr^  (Eq.  6-87) 

where : 

Drate  »  defending  force  casualty  rate. 

Fpr  -  firepower  ratio. 

A  ■  Y-intercept. 

B,C  »  constants  determined  from  curve  fitting  (see  Figure 
6-40). 


Defending  fore'  coefficients  have  been  calculated  as  follows: 

1 .  Defending  from  prepared  positions. 

A  -  .00919 
B  -  .004085 
C  -  .000097 
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2.  Defending  from  hasty  positions. 

A  -  .01274 
B  -  .0005 
C  -  .001 

3.  Defending  against  an  enemy  fighting  a  meeting  engagement. 

A  -  .001257 
B  -  .000857 
C  -  .001143 

4.  Defending  force  delaying  or  withdrawing  against  attackers. 

A  «  .003286 
B  -  .0034286 
C  «  0.0 


(b)  Attacking  forces.  The  casualty  rate  for  an  attacking  force  is 
a  function  of  the  combat  force  ratio  (FPR)  and  the  mission  of  the  attacking 
force.  Figure  6-41  shows  the  graphical  representation  of  the  attacking 
forces.  Again,  rate  is  calculated  by  combining  the  FPR  with  a  curve- 
fitting  equation: 


Arate  -A  *  Fpr-® 


(Eq.  6-88) 


where : 


Arate  ■  attack  force  casualty  note. 

Fpr  «  firepower  ratio. 

A,B  m  constants  determined  from  fitting  curve  (see  Figure 
6-41). 


Attacking  force  coefficients  have  been  calculated  as  follows: 

1.  Against  a  fortified  or  prepared  position: 

A  -  .0483 
B  «  .251 

2.  Against  a  hasty  position: 

A  -  .0401 
B  -  .237 
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Figure  6-41.  Ground  combat  personnel  casualty  rate  for  attacking  forces 


3.  Against  a  delaying  or  withdrawing  enemy  or  fighting  a 
meeting  engagement: 

A  -  .0384 
B  -  .2383 


(3)  Finally,  the  total  losses  suffered  by  each  force  are  calculated  using 
the  following  formula: 


Loss^  ■  Pers^  *  Frac_comtd  *  Rate^  *  Hr_conflict  (Eq.  6-89) 

where : 

i  -  1  -  Blue  force 
2  -  Red  force. 

Loss^  «  total  losses  per  battle. 

Pers^  *  total  personnel  assigned  to  unit. 

Frac_comtd  -  percent  of  unit  committed  to  fight  battle,  where  value  is 
defaulted  to  1.0. 

Rate^  «  casualty  rate  loss. 

Hr_conflict  -  time,  in  hours,  for  assessment  of  infantry  battle. 

B.  These  losses  are  returned  to  the  main  driver  routine  where  they 
are  combined  with  other  losses  to  determine  the  total  ground  combat  losses 
suffered  by  each  force. 


6.  "UHTTFILE"  IMPACT. 

The  infantry  module  returns  the  infantry  losses  to  the  ground  combat  driver. 
The  driver  then  deducts  the  personnel  losses  from  the  infantry  elements  of 
the  "UNITFILE". 


7.  CODE. 

A.  The  infantry  module  consists  of  a  driver  routine  and  two  subroutines. 

(1)  Main  driver.  The  main  driver  establishes  the  initial  parameters 
and  pointers  for  reading  in  the  appropriate  data  files. 

(2)  Once  the  correct  data  has  been  read  into  the  program,  the  main 
driver  routine  calculates  the  firepower  ratio  by  multiplying  the  firepower 
scores  by  the  force  multiplier. 
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(3)  The  main  driver  then  calls  two  subroutines:  Rate  and  Losses. 

(a)  Rate.  The  Rate  routine  uses  the  firepower  ratio  to  compute  the 
casualty  loss  rate. 

(b)  Losses.  The  Loss  routine  uses  the  casualty  J.03S  rate  to 
compute  the  total  personnel  losses  by  a  force  for  a  specified  battle  time. 

(4)  The  personnel  losses  are  returned  to  the  ground  combat  attrition 
module  where  they  are  used  to  compute  the  total  kills  for  the  30-minute 
battle  phase  being  evaluated. 


B.  The  primary  variables  for  the  infantry  module  are  shown  in  Table  6- 
13.  Each  variable  is  accompanied  by  a  short  description.  See  Table  6-14 
for  the  ground  combat  code  listing. 
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Table  6-13.  Infantry  subroutine  table 
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Blue  defending 
Red  defending. 


Table  6-13.  Infantry  subroutine  table 
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Bottom  The  total  adjusted  firepower 

scores  for  the  defending  force. 


Table  6-13.  Infantry  subroutine  table. 
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Fract_comtd  Fraction  of  unit  committed  to 

infantry  (default  «  1.0). 
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...  ..p4..  is  THE  GROUND  ATTRITION  MODUl F  FOR  THE'  DIVISION  MAP 

!  DATA  CHANGED  ON  21  MARCH  1985.  ROD  BEL FLOWER,  RDM 
1  EXPANDED  VERSION  —  JUNE  9.  1986  —  BY  OAO  CORP. 

‘  DECLASSIFIED  —  AUG  7.  1986  —  BY  OAO  CORP.  **  DC  ** 

!  HELICOPTER  METHODOLOGY  CHANGED  —  JUNE  1987  —  BY  OAO  CORP. 

OPTION  BASE  1 

DIM  Svs_dF 1  < 7 )  .  Svs_dF  s  ( 7 >  .  Svs_  i  F  (7)  .  Sys._ad  ( 7 )  .  Svs_sum  ( 7 > 

DIM  Svs_tot  (4.  70)  ,  Kv_r  (6,70),  Kv__b  (6.  70)  ,  Ri  F  _ammo  (15) 

DIM  Ci_kv_r (8,70) , Ci_kv_b (8,70 ,Svs (6,70) ,B_helo(3,6> ,R_helo<3,6) 

DIM  Ci  _hel  o_b  (3,6)  ,  Ci  _hel  o_r  (3,6)  ,  Ammo_wt  (2,  70)  ,  I F  ammo  ( 15)  ,  Bi  Fammo  (15) 
DIM  B_unit (12,74) ,R_unit(12, 74) ,S(70) , Wpn_tvpe (70) 

DIM  Svs_eF  F  (2,  70)  ,  B_i  ni  t  ( 13,  70)  ,  R_i  ni  t  ( 13,  70)  ,  Svs_ammo  ( 15)  ,  Bi  F_msn  (6) 

DIM  Ri  F  _msn (6) , Bi  4 _msn_tons (15,5) , Ri 4 _msn_tons (15,5) , Artv_30mi n_wt (2. 15) 
DIM  Bi F_Fired ( 15,5) ,Ri 4 _4 ired ( 15, 5) , Tot_artv (2, 15) ,Ds_start (4) . N ( 150) 

DIM  Advance_rate (4, 10) , MineF i el d  <3, 6) ,M 4  (4) . R_veh*C3503 , B_veh*C3503 
DIM  B_i  F_t  (2.  70)  ,  R_i  f  _t  (2,  70)  ,  B_dF_t  (2,  70) . R_dF_t  (2,70) 

DIM  B_i  F_dt  (2,70)  , R_iF_dt  (2,70)  .  B_dF_dt  (2, 70) .R_dF_dt  (2.70) 

DIM  B_4 (2,  70)  ,  R_F (2,  70)  ,  B_v<2,  70) , R_v(2, 70) , B_dv (2, 70) ,R_dv<2, 70) 

DIM  Eicon  ( 12,  70)  ,  R_con  ( 12,  70)  ,B_t.vpe(12>  .R_tvpe(12> 

DIM  Mi  Ft  (20)  ,  MdFt  (20)  ,  Mi  Fdt  (20)  ,  MdFdt  (20)  ,  T_1  ength  (2)  ,  T_width  (2) 

DIM  MFire(20) ,MdFire(20) ,Mvul (20) .Mdvul (20) , Target (2,70) ,Red_F_t (70) 

DIM  Phase_ct ( 3)  ,  Sys_mi ne (4,70), Svs_ar t y (4,70) . Baei e_)d(2,70>,Bl ue_(_t (70) 
DIM  Svs_di  rect  (2, 70)  ,  BF_mask  (70)  ,  RF_mask  (70)  ,  BdF  _mask  (5,  70)  ,  Rd-f  _mask  (5. 70 
DIM  BI  ue_vul  (70)  ,  Red_vul  (70) ,  B_<ammo  <2,  70) ,  R_ammo  (2,  70)  ,  Bstat  (2) 

DIM  Svs_hel o (2,  70)  ,  Sys_pgm (2,70) , Svs_i nF (2,70) , B_+ i rp_sv (70) , R_F i re_sv (70 
DIM  B_break_t ( 12) , R_break_t (12) ,B_dF (2, 70) . R_dF (2. 70) ,B_msn ( 1 > . R_msn ( 1 ) 
DIM  Volley (15.5) ,Saty(15) , A_wt (2,15) , Tot_vol ley ( 15) , Label*! 75 3 
DIM  B_arty_cap (7,5) , B_ml rs_cap (4,5) , B_mort_cap ( 4. 5) , H  taro ( 4. 70) 

DIM  R_arty_cap (7,5) , R_mlrs_cap (4.5) . R_mort_cap (4,5) 

DIM  Clgp_F act (70) , Gamp _4 act (70) , B_cl gp_cap (7) , B_gamp_cap (4) 

DIM  C _t ar g  (2, 70)  ,  C  t  (4,70)  ,  R_vi  s  <  3)  ,  B_vi  s  (3)  .  R_i  r.+  _save  (5)  .  B_i  n-f  _save  (5> 
DIM  B_engagements (20) , R_engagement s (20) , Bartv_30mi n ( 1 0. 15) 

DIM  Rartv_30mi n ( 10, 15) , B_smok_tons (11), R_smok_tons ( 1 1 > , Irvf  surv (5) 

DIM  Bsmkcap (11), R_smk_cap (11). Bada_hnd ( 12) . Bada_veh ( 12) , Rada_bnd ( 12) 

DIM  B_dsar tv_avai  1(7). B_dsar tv _f i re (7  > . B_  dsmort  _avai 1  (4) , B  dsmor t  + i r e ( 4  > 
DIM  R_dsar  tv_avai  1(7),  R  dsar  t  v_f  i  re  (7)  ,  R_dsmor  t_avai  1(4).  R_ dsmor  t. _F  i  re  <  4  ) 
DIM  B_asmk_used (7) . B_msmk_used (4) . R_asmk_used (7) . R_msmk_used (4) 

DIM  Frac_ar ty (7) , Frac_mor t (4 ) , Ds_at tempted ( 7 > . Mo_at tempt ed ( 4 ) 

DIM  Fir_typ(2), Sens_typ (2) ,N_rnds (2) . Rada _veh (12) .B_.nF (1.5) .R_irvf  (1,5) 
DIM  Incomi ng_arty (7) , Inco mi ng_ml rs ( 4) ,  I ncomi ng_mort ( 4 > , B_ecb (12), R_ech ( 1 2 
DIM  B_uni t_no (12) , R_uni t_no ( 12) , HF i 1 e (2, 12. 10) 

DIM  B_hel o_atkp roF (2) , R_hel  o_atkproF (2) , B_hel o_msn (2) , R_hel o_msn (2) 

DIM  B_atk_rg (2) .R_atk_rg (2) , H_d_* C 64 3 , H_msn* C32 D . Stnd_oF F  _ra (2. 3) 

DIM  Side*T2)  C23 ,  Hel  o_char  (3,8)  .  Desc*C83  .  P_det._i  nF  (3, 5,  2)  .P_det_tbar  (3,5.2 
DIM  Rmi  n  (8)  .  Rma>:  < 8 )  ,  Pk  (3, 20,  2)  ,Tim_me(6)  .  PreF  (20)  ,  PI  os  (8)  ,  Pd _i  nF _ad  (3.  2 ) 
DIM  Pd_tbar_ad  <3, 2) , Pk_ad (3, 2) , PreF_ad (3) , Cat20 (20) . Rg_msn* (3) 1 103 
DIM  At k_pr oF (2,3) , Hel o_mi s ( 2 . 3 ) ,P_deF (2.70) .Artv(2) -Ad.  helo(2> -Ad_sv(2) 
DIM  Veh_ada (?) , Hnd_ada (2) . Hel o_tgt (2.2.70). Sen_ptr (20) . Mun_ptr (20) 

DIM  DF_det_inF (3,2) ,DF_det_tbar (3,2) 

I 

INTEGER  I .  J  ,  K ,  B_uni  t_pct  <  12)  ,  R_un  i  t  _pct  ( 1  2  )  .St  ti  me.  Mi  nute.  Ear  1  l  est.  i  mn 
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Table  6-14.  Ground  combat  code  (continued). 

156  INTEGER  Del  nut  e,  R_rm  nut  e.  ft  jnj  nut  e,  R__prpp  1  j  me.  H  or  ep  1  mie 

15°  INTEGER  H_s i  de.  Muni  .  Jt.arg ,  M.  I  ad  .  Jmast 
162  ' 

165  COM  /Mines/  Mi ne_f ret (4 , 70) 

168  COM  /In-fantrv/  Convert  d  C 1  01  ,  Conver  t.a  (  10  .  lO)  .  Fpsh  (  70 . 2 . 2  )  .  Fpr-.r  ( 70 , 2 . 2  ) 

171  COM  /Ar tv/  B_area_band (5> . R_area_band (5)  . B  di sprsn  mast  (5.  1 0)  . R_di snr «in_r 
k  <3.  1  0)  ,  B_tgt  _  mask  <5,  72)  ,  R_tgt_mask  (5,  72)  ,  B_rd_wt  (15).  fi_rd__wt  {  1 5) 

174  COM  /Arty/  B_pfenl ^posture (2, 2> , R_psnl _post ure (2, 2) . T1 e (5) 

177  COM  /Smoke/  Amwtpp  (3.  1  1 )  ,  Iro-f  (3,  1  1 ) 

180  COM  /Pgm/  Tgt_val ue <2, 70)  , Tgt_maskl  (2,  70)  .  Terr  -f  act  or  (4)  .  Prob^  dust,  abort  (* 

1 iCl gp_msk_ns (70) , Cl gp_msk_g] ( 70 )  . Cl gp_msk_rp ( 70 ) 

183  COM  /Pgm/  Prob_dsg_ns ( 6 . 4 ) . Pr ob_dsg_ gl (6. 4) . prob_dsg_rp (6. 4 ) , Sskp_ns (70) . 
kp_gl (70) , Sskp_rp(70) 

186  COM  /Di rect_f i re/  B_cat (70) , R_cat (70) . E»_sen_d (70) . B_sen_n (70) • R_sen_d (70) 
_sen_n (70) , B_ammo_wt  (20) , R_ammo_  wt  (20) 

189  “COM  /No“hel os/  Cell (2,2,3)' 

192  * 

195  COM  /Hel  o_attr  i  te/  Hel  o_l  oad  <  2,  3 , 3)  ,  Pd_ 4  e_i  n-f  a  (2 . 3,  5)  .  Pd_ i e_  i  n-f  _b  ( 2 . 3. 5 ) 
d_-f  e_i  n-f  _c  (2,3,5),  Pd_hd_i  nt_a(2,3,5)  ,  Pd_hd_i  n-f  _b  (2.  3, 5) 

198  COM  /Hel o_attri te/  Pd_hd_inf _c  <2, 3. 5>7Pd^t e_tbar _a ( 2. 3, 5) . Pd_f e_tbar _b (2. 
5)  ,  Pd__-f  e_tbar_c  (2,  3.5),  Pd_hd_tbar_a  (2,3,5)  .  F'd_hd_tbar  __b  (2,3.5) 

201  COM  /Hel o_at tr i te/  Pd_hd_tbar _c <2, 3, 5) , Pd_rmi n (2, 3, 8) , Pd_rmax (2 , 3, 8) . Pk _4 
a  (2,  3,  3,20)  ,  Pk_-fe_b  (2,3,3,20)  ,Pk_-fe_c  (2,  3,  3,  20)  ,  Pk_hd_a  (2,3,  3720) 

204  COM  /Helo_attri te/  Pk_hd_b (2, 3, 3. 20) . Pk_hd _c (2, 3, 3, 20) . Pk_rmi  n (2, 3, 3) . Pk 
ax (2,3,3) , Np (2,3,3) , Fm ( 2 , 3 , 3 ) , Tm ( 2 , 3 , 3 ) , Te ( 2 , 3 , 3 ) 

207  COM  /Hel  o_attr  i  te/  PI  os  al  pha  ( 2,  3)  ,  PI  os_beta  ( 2.  3)  .  Pd_i  n-f  _ad_a  (2 . 7 . 2)  .  Pd_ : 
_ad _b  (2,7,2)  ,  Pd_i  n-f  _ad_c  (2. 7 , 2)  ,  Pd_tbar  _ari_a  (2, 7 , 2)  .  Pd_t.bar  _ad_b  (2.7.2) 

210  COM  /Hel o_attri te/  Fd_tbar _ad_c < 2 , 7, 2 ) , Fd_ad_r mi n ( 2. 7. 8) . Pd_ad_rmax ( 2 . 7 . E 
Pk  _ad_a (2,7,2), Pk_ad_b (2, 7, 2) ,Pk_ad_c (2,7,2) ,Pk_ari_rmi n (2, 7) . Pk_ad_rmax (2.7) 
213  COM  /Helo_attri  te/  Rr.d_wt.  (2.7)  .Rnds  (2,7)  .Fad  (2.7).  Pd_i  n-f  _df__a  <2. 2.  2)  .  Fd_ 
•f  _d-f  _b  (2.2,2)  ,  Pd_  i  n-f  _d-f  _c  (2,2,2)  .  Pd__tbar_d-f  _a  <2. 2,  2)  . Pd_tbar _dt_b  (2.2.2) 

216  COM  /Hel  o_attri  te/  Pd_tbar_d-f  _c  (2,  2,  2>  ,  Pd_df  _rmx  n  (2.  2.  8)  ,  Pd_df  _rma>:  (2. 1 . 
.  D-f  _rnds_eng  (2.2)  ,  F_d-.'  (2.2) 

219  COM  /Hel  o_att  r  i  te/  INTEGER  Mast  _mnt  (2. 3)  ,  Tgt.  _pre-f  (2, 3,  20)  .  Ad _nref  (2.  7 . 3  ) 
d _c at  (2.20) 

’-.'Sr-,  | 

225  COM  /Hel  o_i  n-f  o/  Bt  1  _rg .  Rg_avg  (2, 3,  20)  .  Rg_avg_pd  (2.  3.  5)  .  D-f  ammo  !  2>  .  D-f  _  f  i  r  r 
)  St  (2.  20,  3)  ,  D-f  ”pk  hel  o  (2.  20.  3.  2)  ,  INTEGER  D-f  .sen  ptr  (  2.  20)  .  Df  _mur,  l  ptr<2.20> 

223  • 

231  DIM  Disk*C50],Disk3*C50] 

234  D’  '  *=“:9134. 704,0" 

237  u  iki  M*[  1  6] .  NSC  163  !  ROB 

240  Di sk3*=" : 9134,704 , 0" 

243  Dcdisk*=":9134. 704.0"  1  **  DC  ** 

246  ASSIGN  6-Unitpsth  TO  "UN  I  TF I LE  "?<Di  sk* 

249  ASSIGN  i?Kvpath  TO  "KVFILE"!<Di  sk* 

202  ASSIGN  6-Hel  opath  TO  "HELOF  I  LE  "?<Di  sk* 

255  'ASSIGN  i-'Ammopath  TO  "  AMMOF  ILE"  J,Di  sk3* 

25B  ASSIGN  R'Advanpsth  TO  "  ADVANFILE"S<Di  sk* 

261  ASSIGN  il'F'niitie  TO  "NAMEFILE:  9134.  704. 0"  1  ROB 
264  ASSIGN  i*-Rnanie  TO  "NAMEF  I L  E:  9 1 34,  704.  O"  '  ROB 
267  ' 
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270 

273 

276 

279 

282 

285 

288 

291 

294 

297 

300 

303 

306 

309 

312 

315 

318 

321 

324 

327 

330 


336 

339 

342 

343 
348 
351 
354 
357 
360 
363 
366 
369 
372 
375 
378 
381 
384 
387 
390 
393 
396 
399 
402 
405 
408 
411 
414 
417 
420 
423 


Table  6-14.  Ground  combat  code  (continued). 

!  READ  IN  SMALL  PERMANENT  DATA  FILES 
GOSUB  Read_data 

Start_battle:  !  START  OF  THE  ATTRITION  MODULE 

PRINTER  IS  1 
PRINT  USING  "<?,#” 

PRINT  TABXY <30, 17) , "GROUND  COMBAT  MODULE" 

i 

PRINTER  IS  702 

!  CONDUCT  SECTOR  ATTRITION  ASSESSMENTS 


GOSUB  Zero_out 
GOSUB  Set_battle 
GOSUB  Set_condi ti ons 
GOSUB  Control _batt 1 e 
GOSUB  Print  fin  res 


INITIALIZE  VARIABLES 
INPUT  BATTLE  CONDITIONS 
SET  ALL  BATTLE  CONDITIONS 
CONTROLS  BATTLE  FLOW 
PRINTS  SECTOR  BATTLE  RESUL’ 


PRINTER  IS  1 

(  LET  GAMER  ANALYZE  RESULTS  FOR  PROPER  BATTLE  PORTRAYAL 
INPUT  "UPDATE  THE  HISTORY  FILE  WITH  THESE  RESULTS?  (Y  or  N) " ,  Q* 
IF  Q<<  > “ Y "  AND  Q*<>“N"  THEN  327 


!  WRITE  SECTOR  RESULTS  TO  THE  HISTORY  FILE 
IF  Q*="Y"  THEN 

GOSUB  Appart_wri_loss 
END  IF 


GOSUB  Close_-files 

I 

f  CHECK  FOR  MORE  COMBAT 
INPUT  "MORE  SECTORS  TO  PROCESS'!’  <Y  or  N)".Ot 
IF  Q<<  >“ Y"  AND  Q*<  >"N"  THEN  360 
IF  QS="Y"  THEN  LOAD  "NEW_P4"S<Di  sk* 

!  IF  COMBAT  IS  DONE,  MAKE  A  FILE  COPY.  IF  NOT.  GO  BACK  TO  MAIN  MENU 
INPUT  "IS  ALL  COMBAT  ASSESSED  FOR  THIS  TURN-7  <Y  or  N)".Q* 

IF  Q*<  >“ Y“  AND  Q»0"N"  THEN  375 
IF  Q*="N"  THEN 

LOAD  "DIME:9134, 704,0" 

DISP  "GOING  BACK  TO  DIME  MENU" 

GOTO  Halt 
ELSE 

! OPTIONAL  UNITFILE  BACKUP  MAY  BE  PLACED  HERE. 

LOAD  "DIME: 9134, 704.0" 

GOTO  Halt 
END  IF 

■  ********************  END  OF  MAIN  PROGRAM  *************************** 

Read_dat.a:  1  THIS  SBR  READS  SMALL  ARRAYS  INTO  THE  PROGRAM 

I 

1  **  DC  ** 
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Table  6-14.  Ground  combat  code  (continued). 

42<s  1 

429  ASSIGN  C"Psvse4  f  TO  "SVS_EFF"^Dcdi  sk* 

432  ENTER  E'Psysef  f  ,  1 ;  Sys_ef f  (  *  )  1  FIREPOWER  SCORE  OF  RED/BLUE  WEAPOt 

435  ASSIGN  E'Psyseff  TO  * 

438  ! 

441  ASSIGN  E'Pwpntyp  TO  ,,WPN_TYPE"?<Dodi  sk$ 

444  ENTER  EPwpntyp,  1 ;  Wpn  tvpe(t)  '  1=DF  2=IF  3=AD 

447  ASSIGN  E'Pwpntyp  TO  * 

450  1 

453  ASSIGN  EPammowt  TO  "AMMO_WT"?-Dcdi  sk* 

456  ENTER  E-Pammowt , 1 ; Ammo_wt ( * )  1  PACKED  WT  OF  INDIV  RD/BURST  OF  AMMt 

459  ASSIGN  EPammowt  TO  * 

462  • 

465  ASSIGN  E'Pbasld  TO  "BASIC__LD"lkDcd  j  sk* 

468  ENTER  (?Pbasl  d ,  1 ;  Basi  c_l  d  <  *  > 

471  ASSIGN  E'Pbasld  TO  * 

474  ! 

477  ASSIGN  PPartrt  TO  "ARTY_RATE''?<Dcdi  sk* 

480  ENTER  E'Partrt ,  1 ;  Artv_30mi  n_wt.  <  *  ) 

483  ASSIGN  EPartrt  TO  *  '  RED  BLUE  30  MIN  WT  DEFINED  AT  THIS  POINT  FOR  At 

DSTRBTN 
486  ! 

489  ASSIGN  EPartwt  TO  "ARTY_WT"?-Dcdi skt 

492  ENTER  ©Partwt , 1 ; A_wt ( * >  *  WT  OF  IF  ROUND/PACKAGED  WT  -  VOLLEY  WT.  FOF 

BATTERIES 

495  ASSIGN  E'Partwt  TO  * 

498  ' 

501  ASSIGN  E'Pi  f  mask  TO  " BFMASK"?<Dcd isk$ 

504  ENTER  @Pi f mask , 1 ; BP _mask < * > 

507  ASSIGN  PPifmask  TO  * 

510  ! 

513  ASSIGN  PPifmask  TO  "RFMASK"S<Dcdi  sk* 

516  ENTER  E'Pi  f  mask,  l;Rf_mask<*> 

519  ASSIGN  EPifmask  TO  * 

522  ' 

525  ASSIGN  E'Pdfmask  TO  ,,BDF_MASK"S<Dcdi  skt 
528  ENTER  E'Pdfmask  .  1  ;  Bdf_mask  (  *  > 

531  ASSIGN  E'Pdfmask  TO  * 

534  ' 

537  ASSIGN  E-Pdf  mask  TO  "RDF_MASK"&Dcdi  sk* 

540  ENTER  ©Pdfmask , 1 ; Rdf  mask ( # ) 

543  ASSIGN  E'Pdfmask  TO  * 

546  I  **  END  DC  ** 

549  B_veh*C 1 , 1253="DF  FAV-TM551  FAV40HMV-GDF  DRAGNLAW  DF  CMD-VDF  DF 

DF  DF  DF  HMV40DF-ICDF-ICDF-ICDF  — ICAR'TY  ARTY  ARTY  ARTY  ARTY  “ 

552  B_veh*  C 126, 2503  =  " ARTY  ARTY  MORTRMORTRMORTRMORTRMLRSTMLRSTMLRSTMLRST I NF  I 
INF  INF  INF  SARMSSARMSSARMSSARMSS ARMSSARMSSARNSVULCNAVNGR I  HAWK " 

555  B_veh*C251 . 3501="ADA  ADA  ST INGADAHHF-TRK J 4TRKWATERCG0-TNATRK EWTRk EWTF.t  E 
R  OBSCEAVLB  PONBRENGEOENGFQMATHEMATHEAATHE" 

558  R_veh*  C 1 . 1 25 1  = " T55  2r  BMP73DF  BRDM3BRDM5AT-75AGS 1 7T 1 2  CMD-VDF  DF 

DF  DF  DF  BMPATBTR  DF- 1  CDF- 1 CDF- 1  CART Y  ARTY  ARTY  ARTY  ARTY  " 

561  R_veht C 126. 250 1  =  "ARTY  ARTY  MORTRMORTRMORTRMORT RMRL  MR l  MRL  MRL  INF  I 
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Table  6-14.  Ground  combat  code  (continued). 

INF  INF  INF  SARMSSARMSSARMSSARMSSARMSSARMSSARMS7  SI.I-  XSA- 1  3SA-6  " 

564  R_veh*I 251 . 350]=" ADA  ADA  3A- 1 4ADAHHF-TRF J 4TRKWAT ERCGO-TNATRKEWTRKEWTRK.Et 
R  OBSCEAVLB  F'ONBRENGEQENGEQMAl  HEMA7HEAATHE'" 

567  ■ 

570  1  **  DC  *# 

573  1 

576  ASSIGN  ©Pdsst  TO  ,,DS_START“?<Dcdi sk* 

579  ENTER  ©Pdsst ,  1  ;  Ds._start.  <  *  >  'START  RANGE  FOR  ARTY  DS  (CLOSE  SPT ) 

582  ASSIGN  ©Pdsst  TO  * 

585  1 

588  ASSIGN  ©Partaloc  TO  "BARTYALLOC"!<Dcdi  sk* 

591  ENTER  ©Par tal oc , I ; Bar ty_30mi n < * ) 

594  ASSIGN  ©Partaloc  TO  * 

597  ' 

600  ASSIGN  ©Partaloc  TO  “RARTYALLOC'&Dcdi  sk* 

603  ENTER  ©Par tal oc , 1 ; Rarty_30mi n ( * ) 

606  ASSIGN  ©Partaloc  TO  * 

609  !  **  END  DC  ** 

612  RETURN 
615  1 

618  ! - 

621  ! 

624  Zero_out :  !  THIS  SBR  INITIALIZES  VARIABLES  USED  IN  THE  COMBAT  MODULE 


627 

t 

630 

Dc=0 

633 

i 

636 

FOR  1=1  TO  12 

639 

B_uni t_no  < I ) =0 

!  UNIT#  OF  SECTOR  UNITS 

642 

R_uni t_no ( I ) =0 

645 

B_uni t_pct < I ) =0 

!  7.  OF  UNIT  COMMITTED  TO  SECTOR 

648 

R  unit  pet ( I ) =0 

651 

NEXT  I 

654 

Ini t  _b_eF  F  =0 

!  BLUE  INITIAL  FIREPOWER  SCORE 

657 

B_df_ammQ=0 

!  DIRECT  FIRE  AMMO  AVAILABLE  TO  FIRE 

660 

B_ad_ammo=0 

'  AIR  DEFENSE  AMMO  AVAILABLE  TO  FIRE 

663 

Ini t_r _e+  F  =0 

666 

R_dF  _ammo=0 

669 

R_ad_ammo=0 

672 

FOR  1=1  TO  15 

675 

Bi F_ammo ( I ) =0 

'  INDIRECT  FIRE  AMMO  AVAILABLE  IN  THIS  SECT 

678 

Rif  _ammo ( I ) =0 

681 

NEXT  I 

684 

FOR  1=1  TO  3 

687 

Phase  ct  < I ) =0 

690 

NEXT  I 

693 

FOR  1=1  TO  12 

696 

FOR  J=1  TO  74 

699 

R_uni t ( I , J ) =0 

'  CURRENT  SYSTEMS  ALIVE  BY  UNIT#  AND  SYSTEM 

702 

B_um  t.  ( I .  J  >  =0 

705 

NEXT  J 

708 

NEXT  I 

711 

FOR  1=1  10  70 

< 


t 


1 


\ 
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Table  6-14.  Ground 

combat  code  (continued). 

714 

FOR  j=i  io  6 

717 

Kv_r ( J . I ) =0 

1  IV  TABLES  FOR  SECTOR  RATTLF 

720 

Kv^b (J. I ) =0 

723 

Sys  < J . I ) =0 

'  SUBPROGRAM  PASSING  ARRAY  FOR  SYSTEMS 

726 

NEXT  J 

729 

FOR  J=1  TO  4 

732 

Sys  tot ( J, I ) =0 

'  CUMULATIVE  SYSTEM  STATUS 

735 

NEXT  J 

738 

FOR  J  =  1  TO  12 

741 

B_i ni t  < J , I ) =0 

'  INITIAL  UNIT  SYSTEMS  BY  UNIT  <J>.  SYS  (I: 

744 

R_inl t ( J , I ) =0 

747 

R_con ( J , I ) =0 

750 

B_con ( J . I ) =0 

753 

NEXT  J 

756 

B_init (13, I>=0 

759 

R_i ni t  < 13, 1 ) »0 

762 

NEXT  I 

765 

FOR  1=1  TO  3 

768 

FOR  J  =  1  TO  6 

771 

R_hel o  < I , J ) =0 

1  HELICOPTER  RESULTS 

774 

B_hel o ( 1 , J ) =0 

777 

Mi  ne-f  i  el  d  ( I ,  J  )  =0 

'  SECTOR  MINEFIELD  INFO 

780 

NEXT  J 

783 

NEXT  I 

786 

T i me_seg=0 

!  #  OF  THE  CURRENT  30  MIN  TIME  SEGMENT 

789 

Last_bah l_seg=0 

792 

Last_bah2_seg=0 

1  time  segment  when  helicopter  last  FLOWN 

795 

Last_bsct_seg=0 

798 

Last_rahl_seg=0 

801 

Last_rah2_seg=0 

804 

Last_rsct_seg=0 

807 

Rah  1 _seg=0 

8 1 0 

Rah2_seg=0 

813 

Rsct_seg=0 

816 

Bah  1 _  seg=0 

1  # • OF  HELO  MISSIO  IS  FLOWN  IN  CELL  =  3  STATU? 

819 

Bah2_seg=0 

822 

Bsct_seg=0 

Q^CT 

FOR  1=1  TO  7 

828 

B_dsarty_-f  i  re  ( I )  =0 

831 

ION 

R_dsarty_-f  i  re  ( I )  =0 

•  #  OF  TONS  OF  AMMO  FIRED  FIRED  IN  CS  M : 

834 

NEXT  I 

837 

FOR  1=1  TO  4 

840 

B_dsmort_+ ire ( I  ) =0 

843 

R_dsinort  -fire(I>=0 

846 

NEXT  I 

849 

Bar ty_f i re=0 

852 

Rart  y  _-f  i  r  e=0 

855 

Mi  ne_del ay=0 

1  TIME  DELAY  DUE  TO  MINES 

858 

Fi  rst_d-f=0 

'  POINTER  FOK  1ST  ENTRY  INTO  DIRECT  FIRE  R 

861 

1 

864 

FOR  1=1  TO  15 

6— V 11—21 
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Table  6-14.  Ground  combat  code  (continued). 

867  FOR  J=1  TO  5 

870  Bi f _msn_tons ( I , J > =0 

873  Ri -f _msn_tons ( I , J ) =0 

876  NEXT  J 

879  NEXT  I 
882  ! 

885  RETURN 
888  • 

891  ' - 

894  ' 

897  Set_battle:  '  THIS  SBR  ALLOWS  INPUT  OF  THE  SECTOR  WORK  SKEET 

900  1 

903  PRINTER  IS  1 
906  Start_inpi.it:  1 

909  GOSUB  LI 
912  GOSUB  L2 
915  GOSUB  L3 
918  GOSUB  L4 
921  GOSUB  L5 
924  GOSUB  L6 
927  GOSUB  L7 
930  GOSUB  L8 
933  GOSUB  L9 
936  GOSUB  L 10 
939  GOSUB  Lll 
942  GOSUB  L 1 2 
945  Bea=l 

948  End=No_mi  ne-f  l  el  ds 

951  GOSUB  Lmines 

954  Auto: FR INTER  IS  1 

957  PRINT  "GROUND  COMBAT  INPUT:" 

960  GOSUB  Dump_inpi.it 
963  REPEAT 

966  INPUT  "IS  I NFUT  CORRECT"’  (Y/N)  ".Answer* 

969  UNTIL  Answer*="Y"  OR  Answer*="N" 

972  IF  Answerl="N"  THEN 
975  REPEAT 

978  INPUT  "NUMBER  OF  INCORRECT  LINES"’".  Num 

981  UNTIL  Nu<n>=0  AND  Num<=15 
984  IF  Num=0  THEN  Auto 

987  FOR  Nums= 1  TO  Num 

990  INPUT  "LINE  TO  BE  CORRECTED?  Nate:  line  2  is  blue  units,  line  3  is  re c 

"  .  Nul 

993  ON  Nul  GOSUB  LI . L2, L3. L4 . L5. L6, L7. L3, L9, L 10, LI 1.L12.L13.L14.L15 

996  NEXT  Nums 

999  GOTO  Auto 

1002  END  IF 

1005  GOSUB  Ad_sup 

1 008  REPEAT 

1011  INPUT  “DO  YOU  WANT  A  HARD  COPY  OF  THE  INPUT"?  ( Y /N Answer  % 

1014  UNTIL  Answert="Y"  OR  Answer$="N" 

1017  IF  Answer *="Y"  THEN 


6-VII-22 


Table  6-14.  Ground  combat  code  (continued). 

1020  PRINTER  IS  702 

1023  PRINT  USING  "B,#" 

1026  PRINT  "GROUND  COMBAT  INPUT:" 

1029  GOSUB  Dump_input 

1032  PRINTER  IS  1 

1035  END  IF 
1038  PRINTER  IS  1 
1041  PRINT  USING  "B,#“ 

1044  PRINT  TABXY (30, 17) . "GROUND  COMBAT  MODULE" 

1047  PRINT 

1050  PRINT  "  **  BATTLE  HISTORY  **" 

1053  PRINTER  IS  702 

1056  FOR  1=1  TO  70 

1059  Sys_tot ( 1 , I >  =B_i ni t  < 13, I > 

1062  Sys_tot(3, I)=R_init (13, I> 

1065  NEXT  I 
1068  ! 

1071  •  DETERMINE  INFANTRY  LOAD  FACTORS 

1074  Si de=l 

1077  GOSUB  Ready^load 

1080  CALL  Load_i  nf antry  (Sys_tot  (  *  )  ,  B_msn  ( 1 )  ,  Si  de_pt ,  Sum_i  nf ,  Sumdf  ,  B_I  d_f  act 

1083  Si de=2 

1086  GOSUB  Ready_load 

1089  CALL  Load  _i  n-f  antry  (Sys_tot  (  * )  ,  R_msn  ( 1 )  ,  Si  de_pt ,  Sum_i  nf  .  Sumd-f  .Rldfact 
1092  !  DETERMINE  BLUE  ELEMENT  PERCENTAGES 

1095  INPUT  "DO  YOU  WANT  TO  CHANGE  BLUE  MISSION  TEMPLATE  F ILES'>" . Chgbmts 

1098  List op =0 

UOl  IF  Chgbrot*="Y"  THEN 

1104  INPUT  "DISPLAY  VALUES  TO  1=SCREEN  ONLY,  2=SCREEN  S<  PRINTER  ?".Listop 
1107  IF  Listop=2  THEN 
1110  PRINTER  IS  702 

1113  PRINT  USING  "B" 

1116  END  IF 
1119  END  IF 
1 122  Si de= 1 
1125'  FOR  1=1  TO  2 
1 128  J=B_msn ( 1 ) 

1131  ASSIGN  BP  TO  "BIFTARG"*<Disk3* 

1134  ENTER  BP,J:Mift<*) 

1137  ASSIGN  BP  TO  "BDFTARG"!<Di  sk3S 
1140  ENTER  BP.  J : Mdf t ( *  > 

1143  ASSIGN  BP  TO  "BIFDT"S<Disk3* 

1146  ENTER  BP, J ; Mi f dt ( * ) 

1149  ASSIGN  BP  TO  "BDFDT" !<Di  sk3* 

1152  ENTER  BP , J ; Mdf dt ( * ) 

1155  ASSIGN  BP  TO  "BFIRE"«<Di  sk3* 

1158  ENTER  BP, J ; Mf i r e ( * ) 

1161  ASSIGN  BP  TO  "BDF I  RE  "S<Di  sk3* 

1164  ENTER  BP . J ; Mdf i r e ( * ) 

1167  ASSIGN  BP  TO  "BVllL"&Di  sk3* 

1170  ENTER  BP. J ; Mvul < * > 

1173  ASSIGN  BP  TO  "BDVUL"*.<Di  sk3* 
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Table  6-14.  Ground  combat  code  (continued) 


1176  ENTER  t?P ,  J  ;  Mdvu  1  (  *  > 

1179  < 

1 182  FOR  1=1  TO  2 
1185  FOR  K=1  TO  No_b_unit 
1  188  T=B_type(K)+B  ech(K) *10 

1191  Hfiled.K, l)=Mift(T) 

1194  Hfile(I,K,2)  =Mdf  t  ( T ) 

1197  Hfile(I,K,3)=Mifdt(T) 

1200  Hfiled.K, 4>=Mdfdt(T> 

1203  H-f  i  1  e  ( I ,  K,  5)  =Mf  i  re  (T) 

1206  Hf  i  1  e  ( I ,  K,  6)  =Md-f  ire(T) 

1209  Hf  i  1  e  (I ,  K,  7)  =Mvul  <T) 

1212  Hf  i  1  e (I , K, 8) =Mdvul  (T) 

1215  IF  Chgbmt*=“Y“  THEN 

1218  CALL  Missn_tmpls (Side,  <I>  ,  (T)  ,  (K)  .  B_uni  t  .no  (  * )  ,Hfile<*>  ,  Li  stop) 

1221  END  IF 

1224  FOR  E=1  TO  70 

1227  B_i  f  _t  ( I ,  E)  =Hf  i  1  e  ( I ,  K,  1 )  *B_con  (K,  E)  +B_if _t  ( I  ,E> 

1230  B_df _t  ( I ,  E)  =Hf  i  le  <  I ,  K,  2)  *B~con  (K,  E>  +B_df _t  (I,E) 

1233  B_i f _dt (I , E)  “H-f  i  le  ( I ,  K,  3)  *B_con  (K.  E)  +B_i  f  _dt  d  ,  E) 

1236  B_df _dt  <  I ,  E) =Hf i  1  e  <  I ,  K,  4)  *B_con  (K,  E)  +B_dF  _  dt  (I,E> 

1239  B_f  d,E)=Hfiled,K,5)*B_con(K.E>-H=>_f  (I.E) 

1242  B_df  (I.E)  =Hf  i  le  ( I  ,K,  6)  *B_con  (K,E>  +B_.df  (I.E) 

1 245  B_v ( I , E) =Hf i 1 e ( I , K, 7> *B_con  <K, E>  +B_v (I.E) 

1 248  B_dv < I , E) =Hf  i  1 e ( I , K, 8) *B_con (K, E) +B_dv (I.E) 

1251  NEXT  E 

1254  NEXT  K 
1257  NEXT  I 

1260  1  CALCULATE  RED  TARGET  PARAMETERS 

1263  INPUT  "DO  YOU  WISH  TO  CHANGE  RED  MISSION  TEMPLATE  FILES'7" , Chgrmtt 
1266  IF  Chgrmt*="Y"  AND  Listop=0  THEN 

1269  INPUT  "DISPLAY  VALUES  TO  1=SCREEN  ONLY.  2=SCREEN  PRINTER  ?”,Ustop 
1272  IF  Li stop=2  THEN 
1275  PRINTER  IS  702 

1278  PRINT  USING  "i?" 

1281  END  IF 
1284  END  IF 
1287  Si de=2 
1290'  FOR  1=1  TO  2 
1293  J=R_msn(l) 

1296  ASSIGN  eP  TO  "RIFTARG"$<Di  sL3* 

1299  ENTER  8P .  J ;  Mi  f  t  <  *  > 

1302  ASSIGN  i?p  TO  MRDFTARG"M)i  sk3* 

1305  ENTER  <?P,  J  ;  Mdf  t  (  *  ) 

1308  ASSIGN  t?P  TO  "RIFDT“&Da  sk3* 

1311  ENTER  f?P,  J;Mifdt  (*) 

1314  ASSIGN  @P  TO  "RDFDT"«<Di  sk3* 

1317  ENTER  <?P,  J  :  Mdf  dt  (  *  ) 

1320  ASSIGN  l?P  TO  "RF IRE "S^Di  sk3* 

1323  ENTER  i?P.  J ;  Mf  i  re  ( *  > 

1326  ASSIGN  (?P  TO  "RDF IRE "S/Di  sk 3* 

1329  ENTER  G'P ,  J  ;  Mdf  i  r  e  ( *  > 
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Table  6-14.  Ground  combat  code  (continued). 

1332  ASSIGN  i?P  TO  ,,RVUL"S<Di  sl;3S 
1335  ENTER  6'P,  0  -.  Mvul  (  *  ) 

1338  ASSIGN  i*P  TO  "RDVUL"S<Di  sk3* 

1341  ENTER  <?P,  J :  Mdvul  (#) 

1344  ASSIGN  i;P  TO  * 

1347 

1350  FOR  1=1  TO  2 
1353  FOR  k=l  TO  No_r_unit 
1 356  T =R_t ype ( I  >  +R_ech (K ) *  1 0 

1359  Hf  ile(  I  ,K,  1  >=Mift  (T) 

1362  Hf  ile(I,K.2)=Mdft  (T) 

1365  Hf  i  1  e  ( I ,  k,  3)  =Mi  fdt  (T> 

1368  Hf  l le ( I , k. 4) =Mdfdt (T) 

1371  Hf  i  1  e  ( I ,  k,  5)  =Mf  i  re  (T) 

1374  Hf  i  1 e ( I . k, 6)  =Md-f  ire(T) 

1377  Hf l 1 e ( I . k , 7 ) =Mvul (T) 

1380  Hf i 1 e ( I , k. 8) =Mdvul (T) 

1383  IF  ChgrmtS="Y"  THEN 

1386  CALL  Missn_tmpl s (Side,  (  I  > ,  ( T  >  ,  < K > , R_unit_no ( * ) . Hf i 1 e ( *  1 . Li  stop ) 

1389  END  IF 

1392  FOR  E= 1  TO  70 

1395  R_i f  _t  < I .  E ) =Hf ile(I.K.l) *R_can <K. E  > +R  if_t(I.E) 

1398  R_df  _t ( I . E ) =Hf i  1  e  < I , K . 2 ) *R_con (K.E) +R_df _t ( I , E) 

1401  R_i f  _dt i I ,  E ) =Hf  i  le( I .K, 3) *R_con (k . E ) +R_i f _dt ( I . E > 

1404  R_df _dt  (I,E)=Hfi  le(I,k. 4) *R_con (k, E) +R_df _dt (I.E) 

1407  R_f (I.E)=Hf  l  le! I.k.5) *R_con (k,E)+R  f(I.E> 

1410  R_df ( I . E>=Hf i let  I ,k.6> *R_con (k.E) +R  df  (I.El 

1413  R_v (I.E) =Hf  ile(I,k,7) *R_con (k, E) +R_v (I . E) 

1416  R_dv (I.E) =Hf i 1 e ( I . k. 8) *R_con (k , E> +R_dv ( I , E > 

1419  NEXT  E 

1422  NEXT  K 

1425  NEXT  I 

1428  End _ i nput : RETURN 

1431  ' - 

1434  Readv_l oad :  1  READY  INFANTRY  AND  DIRECT  FIRE  LOADS 

1437  Si de_pt=2*Si de-1 

1  440  Sum  i  nf  =Sys_tot  < Si  dept ,  36)  +Sys_tot  (Si  de_pt ,  37 )  +Sys_tot  (Si  de_pt. ,  38)  +Svs_t  r 
(Si de_pt . 39) +Sys_tot (Si  de  pt . 40) 

1 443  Sum_df  =Sys  tot (Side_pt,  l6)+Sys_tot (Side_pt. 17)+Sys_tot (Side_pt. 18) +Svs_tat 
Si  de_pt.  ,19)  +Sys_  tot  <Side_pt,  20) 

1446  RETURN 

1449  ' - 

1452  1 

1455  LI:  ' 

1458  INFUT  "ENTER  LINE  1 Turn ,  Sector , No  b_un i t , No_r _un i t , St _t i me . End_t  l  me 
1461  CALL  C)  _  var  (  "#  RLUE  UNITS"  ,  "TO"  ,  No_b  iini  t .  0,  1  2) 

1464  CALL  Cl-_var("#  RED  UNITS"  ,  "TO"  .  No  _r  _uni  t .  0,  12) 

1467  Ml nute=St_t i me  MOD  100 

1470  IF  St  _t  l  me*.  0  OF:  St  time -2345  OR  Minute  45  THEN 
1473  FRINT 

1476  PRINT  •***  ERROR:  START  TIME  MUST  BE  BETWEEN  00-2345  HRS  :  RE-ENTER  1.  1  Nf 
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1479 
1 482 
1485 
1488 
1491 
1494 
1497 
1500 
1503 
1506 
1509 
1512 
1515 
1518 
1521 
1524 
1527 
1530 
1533 
1536 
1539 
1542 
1545 
1548 
1551 
1554 
1557 

1 560 
1563 
1566 
1569 
1572 
1 575 
1578 
1581 
1584 
1587 
1590 
1593 
1596 
1599 
1602 
1605 
1608 
161  1 
1614 
1617 
1620 
1623 
1626 
1629 


Table  6-14.  Ground  combat  code  (continued). 

GOTO  Start_input 
END  IF 

IF  End_t i me"  St_ 1 1 me  THEN  End_t i me=End_t i me+2400 
RETURN 


L2:  ! 

FOR  Ij  =  l  TO  12 
B_uni t_no  < I j  > =0 
B_uni t_pct ( I j ) =0 
NEXT  Ij 

FOR  I  i  *=  1  TO  70 
B_ini t  < 13, I i ) =0 
NEXT  Ii 
B_ad_ammo=0 
B_df _ammo=0 
FOR  J j*l  TO  15 
Bi f _ammo ( J  j ) =0 
NEXT  J  j 

!  INPUT  BLUE  UNITS 

i 

FOR  1=1  TO  No_b_uni t 

INPUT  "ENTER  BLUE  UNIT,  PERCENT  COMMITTED" . B_uni t_no < I >  .  B_uni  t_pct ( I ) 
IF  B_uni t_no ( I ) <0  OR  B_uni t_no < I > >191  THEN 
PRINT 

PRINT  "**  ERROR:  UNIT  #  " . B_un i t _no ( I ) , "  NOT  ALLOWED,  IT  MUST  BE  1-: 

GOTO  1548 
END  IF 

IF  B_uni t_pct  < I >  <0  OR  B  unit  pet < I) >100  THEN 
PRINT 

PRINT  I,"**  ERROR:  PERCENT  NOT  ALLOWED.  IT  MUST  BE  0-100.  " 

GOTO  1548 
END  IF 
NEXT  I 

FOR  1=1  TO  No_b_uni t  1  READ  BLUE  UNITS 

ENTER  ©Uni  tpath,  B_uni  t_no  <’l )  ;  N  (  *) 

8_ech ( I >  =N  <76) 

! RESET  DETECTION  STATUS  ROB 
N  <  91 )  =.2 

IF  N (92) <3  THEN  N<92>=3 

OUTPUT  ©Uni tpath, B_uni t_no ( I ) ;N  <  *  > 

FOR  J=1  TO  70 

B_uni t  < I , J ) =N ( J ) *B_uni t_pct  < I > / 100 
B_i ni t ( I , J ) =B_uni t  < I , J ) 

B_ini t ( 13, J) =B_ini t ( 13, J) +B  ini  t  <  I ,  J.) 

NEXT  J 

B_uni t  < 1 , 71 ) =INT ( <  <N<78> -I NT  <N (78) ) ) *  10) +. 01 ) 

B_uni t ( I , 72) =N (131) *B_uni t_pc t  < I ) / 1 00 
B_uni t  < 1 , 73) =N ( 1 32 ) #B_uni t _pct  < I ) / 1 00 
B_un it (1,74) =N ( 1 33 ) *B_un i t  _ pet ( I ) / 1 OO 
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Table  6-14.  Ground  combat  code  (continued) 


1632  B_type  ( I  )  =  B_um  t  ( 1 , 71  )  +1 

1635  Bjj-f  ammo=B  df  _ammo+B_uni  t  (1.72) 

1 638  B_ad_ammo=B_ad_  a<T)mo+B_un it  (1.74) 

1641  Badahnd ( I ) =INT (N (80) )/100 

1644  Bada_veh ( I >  =N (SO) - <Bada_hnd ( I ) *100> 

1647  Si de=l 

1 650  1 

1653  !  CALCULATE  AMMO  AVAILABLE 

1656  GOSUB  Ammo_breakdown 

1659  FOR  J  =  1  TO  15 

1662  Bi  -f  _ammo  < J ) =Bi  -f  _ammo  (J )  +1  f  _ammo  <  J  >  *B_uni  t  pct  (  I  >  /1 00 

1665  NEXT  J 
1668  NEXT  I 

1671  Bd-f  _anrnio_sv=B_d-f  _ammo 
1674  Bad_ammo_sv=B_ad_ammo 
1677  RETURN 
1680  ! 

1 683  ! - 

1686  ! 

1689  L3:  ! 

1692  FOR  Ij=l  TO  12 

1695  R_uni t_no ( I j ) =0 

1698  R_unit_pct (I j ) =0 

1701  NEXT  Ij 

1704  FOR  I i = 1  TO  70 

1707  R_i ni t ( 13. I i ) =0 

1710  NEXT  Ii 

1713  R_ad_ammo=0 

1716  R_d-f_ammo=0 

1719  FOR  Jj=l  TO  15 

1722  Ri  -f  _ammo  ( J  j  )  =0 

1725  NEXT  Jj 

1728  1  I NF'UT  RED  UNITS 

1731  ' 

1734  FOR  1  =  1  TO  No_r_umt 

1737  INPUT  "ENTER  RED  UNIT.  PERCENT  COMMITTED"  .  R_uni  t_no  ( I ).  R_un i  t  _pct.  (  I  ) 

1740  IF  R_uni  t_no  (IX  192  OR  R_uni  t  _no  ( I  >  >400  THEN 
1743  PRINT 

1746  PRINT  "*#  ERROR:  UNIT  #  " . R.um t _no (I ) . "  NOT  ALLOWED.  IT  MUST  BE  192— 

O .  " 

1749  GOTO  1737 

1752  END  IF 

1755  IF  R_uni t_pct ( I ) <0  OR  R_uni t_pct ( I ) >100  THEN 

1758  PRINT  I,"**  ERROR:  PERCENT  NOT  ALLOWED.  IT  MUST  BE  <‘>-100." 

1761  GOTO  1737 

1764  END  IF 
1767  NEXT  I 
1  770  ' 

1773  FOR  1=1  TO  No_r_unit  ’  '  READ  RED  UNITS 

1776  ENTER  ©Uni tpath . R_ uni t _no < I ) : N ( * > 

1779  'RESET  DETECT I 0N_ STATUS  ROB 

1782  N ( 9 1 >  = . 2 
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Table  6-14.  Ground  combat  code  (continued) 


1/85  R_e*ch  <  I  )  =N  i  76 ) 

1788  'RESET  DETECTION  STATUS  ROB 
1791  N<91)=.2 

1794  IF  N<92>  <3  THEN  N<92)=3 

1797  OUTPUT  E'Uni  t  pat  h ,  R_uni  t_no  ( I )  ;  N  ( # ) 

1800  FOR  J=1  TO  70 

1803  R_cinit  <1. J)=N(d) *R_unit_pct <I) 7100 

1806  R_1 ni  t ( I , J ) =R_uni t  <  I ,  J  >  ~ 

1809  R_init <13, J)=R  ini t < 13. J) +R_ini t < I . J > 

1812  NEXT  J 

1815  R_uni t  < 1 , 7 1 >  =  INT  < <  <N < 78 ) -INT <N <78 ) > ) *  1 0 ) + . 0 1 ) 

1818  R_uni  t  <  1 , 72)  =N<  131 )  *R_uni  t_pct.  <  I )  7100 
1821  R_uni t < 1 , 73) =N < 132) *R_uni  t_pct  < I > 7100 
1824  R_uni t  ( 1 , 74) =N (133) *R_uni t _pct ( I ) 7100 
1827  R_type ( I > =R_uni t ( I , 7 1 ) +1 

1830  R_d  +  _ammo=R._clf  _ammo+R_uni  t  <  1 , 72) 

1 833  R_ad_ammo=R_  ad_ammo+R_t_ini  t  <  1 , 74) 

1836  Rada'hnd ( I ) =  INT (N (80) >  7 100 

1839  Rada  veh < I ) =N (80) - (Rada_hnd < I > *  100) 

1842  Si de=2 

1845  !  CALCULATE  RED  AMMO  AVAILABLE 

1848  G0SU8  Ammo_br eakdown 
1851  FOR  J=1  TO  15 

1 854  Ri  i  _ammo  ( J  )  =Ri  <_ammo  <  J  )  + 1  -f  _am<no  <  J  )  IR  uni  t _pc t  ( I  )  /  1 00 

1857  NEXT  J 
1860  NEXT  I 
1863 

1866  RETURN 
1869  1 

1  872  1 - 

1875  ' 

1878  Ad_sups  ! 

1831  1  CALCULATE  PERCENTAGE  OF  AIR  DEFENSE  SUPPRESSED 
1884  Bhnd_sup=0 

1887  Bveh_sup=0 
1890  Rhnd_sup=0 
1893  Rveh_sup=0 
1896  FOR  1=1  TO  No_b_cmi t 

1899  IF  B_i ni t  < 13, 53) +B_i ni t  ( 13, 54)  <  =  .  1  THEN  Bve>h_ada 

1902  Bhnd_sup  =  Bhnd_<5up-*-Bada_hnd < I ) *  <B_ini t (1,53) +  B_i  m  t < 1 , 54 ) ) 7  < B_ ) n i t  <13.5? 

B_i  m t ( 1 3. 54 ) ) 

1905  Bveh_ada:  ' 

1908  Tot_i  ni  t_13=B_i  nit  <  1 3 . 48 )  +B_i  n  i  t  <  1 3 , 49  >  -t-B  imt(  13.50)  +B_i  ni  t  <  1 3 . 5 1  )  +B_i 

t (13,52) 

1911  IF  Tot_i  ni  t_  1  3<-  =  .  1  THEN  End_supb 

1914  Tot_init_i=B_init(I,48)+B_init<I.49)-t-B  init  (I.  50)  +B_imt  ( 1 . 51 )  +B_i  ni  t  <  1 
2) 

1917  Bveh  _sup  =  Bveh_sup-*-Bada_veh  (  I  )  #Tot _i  n l  t  i  7Tot._i  ni  t_  1  3 

1920  End _=,upb:  NEXT  I 

1923  FOR  1=1  TO  No_r _un i t 

1926  Rhnd  _ada : I F  R  i ni t < 1 3 . 53 ) -*-R _i ni t < 1 3, 54 ) v = ]  THEN  Rvnh_ada 

1929  Rhnd  sup =Rhnd_  <3i  ip+ftada  _hnd  (  I  )  *  (ft_ini  t  (  1.53)  +R_  i  n  i  t  <  1.54)  )  /  (Rim  t  t  1  T  .  5  ' 
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R_i m  t  (13.54)  ) 

1932  Rveh_ada:  1 

1935  Tot  _  i  ni  t  l3=R_i  nit  (13.48)  +F:_ini  t  ( 13. 49)  +R_  ini  t  <  13.50)  +R_i  ni  t  (13.51 
t.  (  13.  52) 

1938  IF  Tot  i ni t _13< =  . 1  THEN  End_eupr 

1941  Tot  _i ni t  i=R_ini  t  (1,48)  -t-R_ini  t  (  1 , 49) +R_i  nit  (  I  ,  50)  +R_init  (1.51)  +R_i 
2 ) 

1944  Rveh_sup=Rveh_sup+Rada_veh  (  I)  *Tot_  _i ni t_i  /Tot_init_13 
1947  End_supr : NEXT  I 
1 950  ! 

1953  Rdf _ammo_sv=R_d-f _ammo 
1956  Rad_ammo_sv=R_ad_ammo 

1959  !  CALCULATE  BLUE  TARGET  PARAMETERS 

1962  FOR  1=1  TO  No_b_unit 
1965  FOR  J=1  TO  70 

1968  IF  B_i  nit  (13,  J  )  =0  THEN  B_.dem_0 

1 971  B_con ( I , J ) =B_uni t  ( I ,  J  ) /B_i ni t ( 13. J ) 

1974  B_dem_0: NEXT  J 
1977  NEXT  I 

1980  •  CALCULATE  RED  TARGET  PARAMETERS 

1983  FOR  1=1  TO  No_r_unit 
1986  FOR  J=1  TO  70 

1989  IF  R_init (13, J ) =0  THEN  R_dem_0 

1992  R_con ( I , J ) =R_uni t(I.J)/R_init(l3.J) 

1995  R_dem_0: NEXT  J 
1998  NEXT  I 
2001  RETURN 
2004  1 

2007  ' - 

20 1 0  1 
2013  L4 :  1 

2016  !  ENTER  BATTLE  PARAMETERS 

2019  INPUT  "ENTER  LINE  4 :  "  ,  At k_def  .  I  n i  t _rg  .  D-f  _ rg  .  No_mi  ne-f  l  el  ds ,  Ri  de .  Di  e 
2022  CALL  Ck_var < "BL/R  ATKR" . "OR" , AtL_def ,0. 1 ) 

2025  CALL  Cl:~  var  (  "  I  NIT  RG  (m)  ",  "THRU”  .  Ini  t_cq,  O.  40000) 

2028  IF  Init~rg«'  =3000  THEN 
2031  Li  mi t _df _rg= Ini t_rq 
2034  ELSE 

2037  Limit_df  rg=3000 
2040  END  IF 

2043  CALL  Ck_var("DF  RG  (m)  "  .  "THRU"  .  D-f  _rg,  O,  Li  mi  t_df  _rg  ) 

2046  CALL  Ck_var("#  OF  MINEFIELDS" . ” TO” . No_mi net i el ds, O, 3 ) 

2049  CALL  C);~var  (  "MTD/DISM"  .  "OR"  ,  Ri  de.  O,  1 ) 

2052  CALL  Ck_var ("INF  DISM" . "OR" . Di s_i n( , O, 1 > 

2055  FOR  I  i  =No_mi  ne-f  i  el  ds+ 1  TO  3 
2058  FOR  Jj=l  TO  6 
2061  Minefielddi  ,Jj)=0 

°064  NEXT  J  j 
2067  NEXT  Ii 
2070  RETURN 
2073  1 

, - 
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2079  ' 

2082  L5:  ! 

2085  INPUT  "ENTER  LINE  5: " , Vi s . Cl oud _ht . I r h 
2088  CALL  Ck_var (“VISIBILITY", "TO" .Vis.  1 .  4  > 

2091  CALL  Ck  varC'CLOUD  HT  <m>  "THRU"  .  C)  oud.  ht .  O.  999999999) 

2094  CALL  Ck^varC'REL  HUM  I D"  ,  "OR  "  ,  I  r  h ,  1 . 2) 

2097  Vi  s_baiind*= "  " 

2100  SELECT  Vis 
2103  CASE  1 
2106  '  Vi  si b  =  7 
2109  Vi  si bi 1  i  tv=5 

2112  Vi s_boundt=">" 

2115  CASE  2 
2118  '  Vi  si b=5 
2121  Visibili ty=5 
2124  CASE  3 
2127  1  Vi s i b=2 
2130  Vi  si bi 1 i ty=2 
2133  CASE  4 
2136  1  Vi  si b  =  l 
2139  Visibili t y= 1 

2142  CASE  ELSE 

2145  PRINT  "  NO  VISIBILITY  " 

2148  STOP 
2151  END  SELECT 

2154  IF  Vi s=3  OR  Vi s=4  THEN  'SUPPRESS  ALL  HAND  HELD  ADA 

2157  Bhnd_sup=l 

2160  Rhnd_sup=l 

2.163  END  IF 

2166  RETURN 

2169  ' 

2172  1 - * - 

2175  ' 

2178  L6 : 

2181  INPUT  "ENTER  LINE  6:".Ialb 

2184  CALL  Ck_var < "ATTACKER  SPECIAL  TASK" , "TO" . I al b. O. 4) 

2187  Bal b= 1 
2190  Ra l b= 1 
2193  SELECT  Atk_def 
2196  CASE  O  'RED  ATTACKER 
2199  Bal b= I al  b+ 1 

2202  CASE  1  ' BLUE  ATTACKER 

2205  Ra 1 b= I  a 1 b  + 1 

2208  END  SELECT 
2211 

2214  RETURN 
2217 

2220  ' - - - 

o  "I  o  ~rt  \ 

2226  L  7 : 

2229  INPUT  "ENTER  LINE  7 : " . B_msn ( 1 ) . Bter r . B_r q  br eak . B_pc t wd . B  mopp , T 
1  )  .  7  _wi  dthi  (  1  )  ,  B_break_t  <  1  )  .  B  cas  break 


1  enat 
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Table  6-14.  Ground  combat  code  (continued) 


2232  CALL  Ck  _vsr < " BLUE  M I  SSI ON" , " TO" , B_msn ( 1 > , 0 . 9 ) 

2235  CALL  Ck_var ( "BLUE  TERRAIN" , ” TO" . B_terr , 1 . 4 ) 

2238  CALL  Ck_var  <"BL  RG  BRK/PT" , "THRU" , B_rg_break .0.  Ini t  rg-.oon 
2241  CALL  Ck_ var  < "BLUE  ADV.  GUARD", “THRU" , B_pct_  fwd,  O.  1 > 

2244  CALL  Ck_var ( "BLUE  MQPP/FAT IGUE" . "THRU" . Bmnpp . O. 1  <X> ) 

2247  ‘CALL.  Ck._var  <  “BLUE  SECTOR  LENGTH"  ,  "THRU"  .  T  1  ength  ( 1 ).  O.  25) 

2250  'CALL  Ck_var ( "BLUE  SECTOR  WIDTH" . "THRU" , T_ width! 1 ) .0. 25 ) 

2253  CALL  Ck_var("BLUE  W/DRAW  TIME" , "THRU" . B_break_t < 1 ), O, 30) 

2256  CALL  Ck_var < "BLUE  CAS  BRk /PT" . " THRU" . B_cas_break . O, 1 ) 

2259  ! 

2262  ' T_1 enoth ( 1 ) =T_1 ength < 1 >  *1000 
2265  ! T_wi dth < 1 ) =T_wi dth  (  1 ) *  1 000 
2268  B_msn ( 1 ) =B_msn ( 1 ) + 1 
2271  ' 

2274  RETURN 
2277  ' 

2280  ! - 

2283  ! 

2286  L8:  ' 

2289  INPUT  "ENTER  LINE  8:  “  .  R_msn  ( 1  )  ,  R_  t er r  .  R_rg_br  eak  ,  R  pct  -f  wd  .  R  mopp .  T_1  engi 

2) ,T_width<2> ,  R_break_t.  < 1 ) , R_cas_break 

2292  CALL  Ck_var("RED  MISSION" , "TO" , R_msn ( 1 ), O. 9) 

2295  CALL  Ck _var ( "RED  TERRAIN" , "TO" , R_terr, 1 , 4) 

2298  CALL  Ck_vari"RD  RG  BRK/PT" . "THRU" , R_rg_break , O, Ini t _rg-. 001 ) 

2301  CALL  Ck_var ( "RED  ADV.  GUARD" THRU" , R_pct_twd , O, 1 ) 

2304  CALL  Ck_var("RED  MOPF/FATIGUE"  THRU" , R_mopp . 0. 100 ) 

2307  ‘CALL  Ck_var("RED  SECTOR  LENGTH" , "THRU" . T_1 ength (2> , 0. 25) 

2310  'CALL  Ck_var < "RED  SECTOR  WIDTH" . "THRU" . T_wi dth (2) , O, 25) 

2313  CALL  Ck_var ( "RED  W/DRAW  TIME" , "THRU" , R_break_t ( 1 ). O, 30) 

2316  CALL  Ck I var ("RED  CAS  BRK/PT".  "THRU” . R_cas_break. 0. 1 > 

2319  *  ~ 

2322  '  T_wi dth  (2) =T_width  (2)  *1000 
2325  ! T_1 ength (2 ) =T_l ength (2> *  1000 
2328  R_msn  ( 1  >  =F:_msn  (  1  )  +•  1 
2331  ' 

2334  RETURN 
2337  ! 

2340  ! - 

2343  ! 

2346  L9:  ! 

234F  PRINT  TABXY<  1  ,  14)  .  "**  NOTE:  Helicopter  stando-f-f  ranges  l  nput  on  lines  9  ' 
O  are  ranges  from" 

2352  PRINT  TABX Y ( 1 , 1 5 ) . " * *  attack  helicopters  to  primary  mission  targets." 

2355  INPUT  "ENTER  LINE  9: " , B_hel o ( 1 , 1 ) , B_hel o ( 2, 1 ) , B_hel o (3, 1 ) , B_hel o ( 1 . 3) . B. t 
o(2,3>  ,  B_hel  o_at  kproF  (  *  )  ,  B_hel  o_del  ay ,  B_hel  o_rc._del  ay ,  B_hel  o  _msn  (  * )  .  B_atk_r  ci  (  » 
2358  IF  B_hel o  < 1 , 1 ) >0  AND  B_hel o ( 1 , 3) =0  THEN 

2361  PRINT  "**  ERROR:  CANNOT  HAVE  AH-64’S  WITHOUT  CELLS;  RE-ENTER  LINE  9" 
2364  GOTO  L9 
2367  END  IF 

2370  IF  B_hel o < 1 . 1 )  0  AND  B_hel o (3. 1 ) >0  AND  B  hel o_msn ( 1 ) =2  THEN 

2373  'SCOUTS  ARE  LASING  FOR  AHl’S  AND  ON  AN  AIR  MISSION?  CAN'T  DO  THAT 

2376  PRINT  “**  ERROR:  SCOUTS  CANNOT  LASE  ON  AN  AIR  TO  AIR  MISSION.  WILL  IGN1 


6— VI 1—3 1 


Table  6-14.  Ground  combat  code  (continued) 


SCOUTS" 

2379  R_helo<3.  1  > =0  ‘ZERO  OUT  SCOUTS 
2382  END  IF 

2385'  IF  B_hel o ( 1 ,  1  >  >0  THEN  B_tiel  o_at  kpr o-f  ( 1  )  =  1 

2388  CALL  Ck_var("#  OF  LCH"  .  "THRU"  .  B_hel  o  (  1 .  1  >  .  0. 99) 

2391  CALL  Ck~ var ( " #  OF  AH IS" , "THRU” . Bhel o <2 . 1 ) . 6. 99) 

2394  CALL  Ck~var("#  OF  SCOUTS"  ,  "THRU"  .  B_hel  o<  3.  1  >,  0.  99  ) 

2397  CALL  Ck_var < "  LCH  CELLS" , “TO" , B_helo  <1.3) .0.4) 

2400  CALL  Ck_var ( " AH1S  CELLS" , "TO" , B_hel o <2, 3) , 0, 4 ) 

2403  CALL  Ck_var<"BLUE  ATK  PROF"  ,  "TO"  .  B_hel  o_at  kpro-f  ( 1 )  .  0.  7) 

2406  CALL  Ck~var  ("BLUE  ATK  PROF",  “TO",  B_he»l  o_atkpro+  (2)  ,  0,  7) 

2409  CALL  Ck_var("BLUE  TIME  DELAY" , "THRU" , B_hel o_del ay . O. 530) 

2412  CALL  Ck_var("BLUE  ATK  RG“ , "THRU" , B_hel o_rg_del ay , 0, Ini t  rg ) 

2415  CALL  Ck_var ( "BLUE  HELO  MSN" . "TO" . B _hel o_men < 1 ) . 0. 3) 

2418  CALL  Ck_var ( "BLUE  HELO  MSN" , "TO" , B_hel o_msn  <2) ,0.3) 

2421  CALL  Ck_var  (  “BLUE  STANDOFF  RG"  .  “THRU"  ,  B_atk_rq  (  1  >.  0.  Ini  t_rg  ) 

2424  CALL  Ck^var  <  " BLUE  STANDOFF  RG" . "THRU" . B_at k_r g < 2 > . 0, I ni t ~rg > 

2427  IF  B_helo<3, 1 > >0  THEN 
2430  B_hel o (3,  3) =B_hel o ( 1 , 3) 

2433  END  IF 
2436  RETURN 
2439  ' 

2442  ! - 

2445  1 

2448  L10:  ! 

2451  INPUT  "ENTER  LINE  10s " , R_hel o < 1 , 1 > . R_hel o <2. 1 ) , R_hel o (3. 1 ) , R_hel o ( 1 ■ 3 > . R_t 
lo(2,3)  ,R_hel  o_at  kpro-f  <  *  )  . R_hel  o_del  ay,  R_hel  o_r g_del  ay  ,  F:_hel  o_msn  (  *  )  . R_  at l  _rg  ( > 
2454  IF  R  heloU,  1)  >0  AND  R~helo < 1,3) =0  THEN 

2457  PRINT  "**  ERROR:  MUST  SPECIFY  #  OF  CELLS;  RE-ENTER  LINE  10" 

2460  GOTO  L10 
2463  END  IF 

2466  IF  R_hel o  < 1 , 1 >  >0  AND  R_helo (3, 1 ) >0  AND  R_hel o_msn ( 1 ) =2  THEN 
2469  ‘SCOUTS  ARE  LASING  FOR  AH1  ’  S  AND  ON  AN  AIR  MISSION'’  CAN'T  DO  THAT 

2472  PRINT  "**  ERROR:  SCOUTS  CANNOT  CASE  ON  AN  AIR  TO  AIR  MISSION.  WILL  IGNOF 

SCOUTS" 

2475  R_heIo (3.1) =0  ‘ZERO  OUT  SCOUTS 
2478  END  IF 

2481'  IF  R_hel o  <2, 1 >  >0  THEN  R_hel o_at kprof <2 > =3 
2484  CALL  Ck_var<"#  OF  HIND" , “THRU" , R_hel o < 1 , 1 ) , 0, 9?) 

2487  CALL  Ck_var("HIND  CELLS" , "TO" , R_hel o ( 1 . 3) . 0, 4 ) 

2490  CALL  Ck_var("H  OF  AH2S" , "THRU" , R_hel o ( 2 , 1 > , 0 , 99 > 

2493  CALL  Ck_var("AH2  CELLS" , "TO" , R_hel o < 2 , 3 ) , 0 . 4 > 

2496  CALL  Ck_var("RED  ATK  PROF  " ,  "  TO"  ,  R_hel  o_at  kpr  o-f  (  1  )  .  0 . 7 ) 

2499  CALL  Ck_var<"RED  ATK  PROF  ",  "TO"  ,  R_hel  o~at  kpro-f  (2)  ,0,  7 ) 

2502  CALL  Ck_var("RED  TIME  DELAY"  ,  "THRU"  ,  R_hel  o_dt?l  ay,  0, 530) 

2505  CALL  Ck~var  < "RED  ATK  RG" , "THRU" , R_hel o_rg_del ay , 0, In i t _r g ) 

2508  CALL  Ck_var < "RED  HELO  MSN" , "TO" , R_hel o_msn ( 1 > , 0, 3) 

2511  CALL  Ck_var  < "RED  HELO  MSN" , "TO" , R_hel o_msn (2) , 0. 3 ) 

2514  CALL  Ck_var ( "RED  STANDOFF  RG" , " THRU" , R  at k _r g ( 1 ) , 0 ,  I n l t _r g ) 

2517  CALL  Ck _var ( "RED  STANDOFF  RG" , " THRU" . R  at k  r q ( 2 ) . O . I n i t _r g ) 

2520  IF  Rhel o (3, 1 ) '0  THEN  R_ hel o (3, 3) =R_hel o ( ! . 3 ) 

3523  PRINT  T ABX Y (1.14)," 
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2526  PRINT  TABXY  ( 1  .  15)  .  " 
2529  RETURN 


2538  1 

2541  LI  1 : 

2544  INPUT  "ENTER  LINE  1 1 :  "  .  B-  t  msn  <  *  )  ,  B  prep_t  l  me,  Mo_oamp .  Per  c_  gamp .  No_c  1  gp .  P 
c_cl gp, Cl gp_rp> 

2547  Total  _\»ct=0 

2550  FOX  Tot._pct  =  l  TO  5  1  SMOKE  WILL  COME  OUT  OF  CLOSE  SUPPORT 

2553  Tot  al  _pct.  =Bi  t_msn  (Tot  pct)  -*-Total_pct 
2556  NEXT  Tot_pct 

2559  Total  _pct  =  Tota]  pct+Perr.  qamp+Perc  clqp 
2562  IF  Total _ pet =100  OR  Total _pct=0  THEN 
2565  GOTO  End_tot_pct  chi 
2568  ELSE 

2571  PRINTER  IS  1 
2574  PRINT 

2577  PRINT  "**  ERROR:  7.‘S  DO  NOT  EQUAL  lOO  OR  0  :  RE-ENTER  LINE  11" 

2580  GOTO  L 1 1 
2583  END  IF 

2586  End_tot_pct _ch 1 :  1 

2589  CALL  CK^var  ("SMOKE  7.  "  .  "THRU"  .  Bit_msn  (6)  .  0.  100) 

2592  'CALL  Ck_var ("TIME  DELAY" . " THRU" . B_prep  time. 0, 2400) 

2595  CALL  D:_var("(t  GAMP"  .  "THRU"  .  No_gamp  .  0. 999) 

2598  CALL  Ck_varC#  CLGP" . "THRU" . No. c 1 gp . 0. 999) 

2601  CALL  CK_var CROP" . "OR" .ClQP_rpv.O. 1 > 

2604  B_prep_t i me=B_pr ep_t i me+30 

2607  B_mi nute=B_prep_t l me  MOD  lOO 

2610  SELECT  B  minute 

2613  CASE  16  TO  45 

2616  B_mi nute=30 

2619  CASE  <16 

2622  B_minute=0 

2625  CASE  >45 

2628  B_minute=100 

2631  END  SELECT 

2634  B_prep_t i me= INT < B  _pr ep  1 1 me/ 1 00) *  1 00+B_mi nute 
2637  RETURN 
2640  ! 

2643  > - 

2646  ' 

2649  LI 2:  ' 

2652  INPUT  "ENTER  LINE  1  2:  "  „  Ri -f  _msn  (  *  )  .  R  _pr  ep  t  i  me 
2655  Total _pct=0 

2658  FOR  Tot  _pct= 1  TO  5  1  SMOKE  WILL  COME  OUT  OF  CL  OSE  SUPPORT 

2661  Total  pet  =Ri  -f  men  (Tot  pet )  +Total  _.pct 
2664  NEXT  Tot_pct 

2667  IF  Total  pct  =  lOO  OR  Total  _pct='"'  THEN 
2670  GOTO  End  tot  pet  c:h2 
2673  ELSE 
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2676  PRINTER  IS  1 
2679  PRINT 

2682  PRINT  "**  ERROR:  7. '  S  DO  NOT  EQUAL  100  OR  O  ;  RE-ENTER  LINE  12" 
2685  GOTO  LI  2 
2688  END  IF 

2691  End_tot_pct  c.h2:  ! 

2694  CALL  Ck~var  (  "SMOKE  7.  "  ,  "THRU"  ,  Ri -f  _msn  (6)  ,  O.  100) 

2697  ! CALL  CL_var ( "TIME  DELAY “ , "THRU" , R_pr ep  t i me , 0 , 2400) 

2700  R_prep_ti me=R_prep_ti me+30 

2703  R_mi nut e=R_ pr ep_t i me  MOD  100 

2706  SELECT  Rminute 

2709  CASE  16  TO  45 

2712  R_mlnute=30 

2715  CASE  <16 

2718  R_minute=0 

2721  CASE  >45 

2724  R_minute=100 

2727  END  SELECT 

2730  R_prep_time=INT (R_pr ep_ti me/ 100) *  1 00+R_mi nute 
2733  RETURN 
2736  ! 

2739  ! - 

2742  ! 

2745  Lmines:  ! 

2748  IF  No_mi net i el ds >0  THEN 
2751  FOR  I=8eq  TO  End 

2754  INPUT  "ENTER  MINEFIELD  DATA:  “  .  M-f  (  *  > 

2757  FOR  J=1  TO  4 

2760  Minefield (I . J)=Mf <J> 

2763  NEXT  J 

2766  Mine-f  i el d  <  1 , 5)  =  100  !**»**#*  NO  LONGER  USED 

2769  CALL  Ct:_var  <  "RANGE"  ,  " THRU"  .  Mi  net  1  el  d  ( 1 .  1)  ,0,  Ini  t_rg-.  001  > 

2772  CALL  Ck_var  ("WIDTH",  "THRU"  , Mine-f  ield(I, 2)  .  1. 999 ) 

2775  CALL  Ck_var < "SECTOR  WIDTH" , "THRU" , Mi  net i el d ( 1 , 3) , 1 , 999) 

2778  CALL  Ck_var<"7.  ENTERED"  ,  "THRU"  ,  Mine-f  i  el  d  ( 1 , 4)  ,0,  100) 

2781  NEXT  I 
2784  END  IF 
2787  RETURN 
2790  « 

2793  ! - 

2796  ! 

2799  L13:  1 

2802  IF  No_minef i el ds>=l  THEN 

2805  8ea= 1 

2808  End= 1 

2811  GOSUB  Lmines 

2814  END  IF 

2817  RETURN 

2820  1 

2823  1 - 

2826  1 
2829  LI  4:  1 
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2832  IF  No  mi  nr-t  i  o]  ds  =2  THFN 

2835  Beo=2 

2838  End  =  2 

2841  GOSUB  L mi  no- 

2844  END  IF 

2047  RETURN 

2850 

2853  1 - 

2856  1 

2859  L15:  ' 

2862  IF  No_ mi  nef  l  el  ds=3  THEN 

2865  Beg =3 

2868  End =3 

2871  GOSUB  Lmi  ne<5 

2874  END  IF 

2877  RETURN 

2880  ! 

2883  ! - - 

2886  ! 

2889  Set_print:  1 

2892  PRINT  USING  "//////. 21A.  4Z.2X,  25  A,  6D"  ;  "BATTLE  WILL  BEGIN  at  "  :  St  t.ime:"w; 

an  INITIAL  RANGE  o-f  "  :Imt._rg 
2895  IE  End _t l me< 2400  THEN 

2898  PRINT  USING  " 1 9A. 4 7 " ; "BATTLE  WILL  END  at  "  : End  time 
2901  ELSE 

2904  PRINT  USING  " 1 9A , 42 "  :  “ BATTLE  WILL  END  at  " : End  time-2400 
2907  END  IF 

2910  PRINT  USING  " /  .  6X . 32A. 6D" ; "DIRECT  FIRE  will  beqin  at  ranoe  ” : Dt  ra 
2913  PRINT  USING  " / . 6X .  1 4A , 1 A . 2D . 22A , 6D . 1  A" : " Vi  si b i 1  1 1 v  is  " ; Vi s_ bounrit: Oi = i b i 
ty;"Lm  ;  Cloud  heiqht.  is  "  ;  Cl  aud  _ht :  "m” 

2916  PRINT  USING  "//" 

2R1R  SELECT  At  V  del 
2922  CASE  0 

2925  B.  at »-  _de-r*e" DEFENDER" 

2928  R  at. L  del $  =  " ATTACKER" 

2931  CASE  1 

2934  B_atb_de-fS="  ATTACKER" 

2937  R_at.  k  _det*=  "  DEFENDER  " 

2940  END  SELECT 
2943  PRINT 
2946  PRINT 

2949  PRINT  "  BLUE  " :  B_atV:_de-f»:  "  I  RED  “ :  !- 

t  P  de-f  % 

2952  PRINT  USING  “  1  1  X  .  1 3A.  1 5X  ,  1 A ,  1  2X  .  1 3A"  :  " - . :  " - " 

2955  PRINT  USING  "39X , 1 A" : " ! " 

2958  SELECT  B  msn < 1 ) 

2961  CASE  1 

2964  B_msn$= "MvCont act " 

2967  CASE  2 

297i.i  B  msnt  =  "  Indr  Fire" 

2973  CASE  3 

2976  B  msnt="  Movement" 
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2979  CASE  4 

2982  &_msn*="  Frnt  At  I  " 

2985  CASE  5 

2988  6_msn*="  Env  Atk" 

2991  CASE  6 

2994  B_msn$="  Del av" 

2997  CASE  7 

3000  B_msn$="  Hast  De-f " 

3003  CASE  8 

300 b  B_msn*="  Prep  De-f  ” 

3009  CASE  9 

3012  8_msn*="Rear  Area" 

3015  CASE  10 

3018  8_msn*="  Ambush” 

3021  END  SELECT 
3024  SELECT  R  msn  < 1 > 

3027  CASE  1 

3030  R_msn*="MvContact " 

3033  CASE  2 

3036  R_msn*="Indr  Fire” 

3039  CASE  3 

3042  R_msnS="  Movement” 

3045  CASE  4 

3048  R_msn*="  Frnt  Atk" 

3051  CASE  5 

3054  R_msn*="  Env  At k " 

3057  CASE  6 

3060  R_msn*="  Delay" 

3063  CASE  7 

3066  R_msnS="  Hast  De-f " 

3069  CASE  8 

3072  R_msn*="  Prep  De-f" 

3075  CASE  9 

3078  R_msn*="Rear  Area” 

3081  CASE  10 

3084  R_msn*="  Ambush" 

3087  END~SELECT 

3090  PRINT  USING  " 6X . 8A , 6X . 9A . 1 OX . 1  A. 7X . 8A, 6X . 9A" : "Mi ss l on  " : B  msnt s " 1 ” : "Missn 
" ; R_msn* 

3093  SELECT  B.terr 
3096  CASE  1 

3099  B_terr«="  OPEN” 

3102  CASE  2 

3105  B_terr$=“  ROLL" 

3108  CASE  3 

3111  B_terrt=”  HILL" 

3114  CASE  4 

3117  B_terr*= "MOUNT " 

3120  END  SELECT 
3123  SELECT  R_terr 
3126  CASE  1 

3129  R  terr *="  OPEN" 
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3132  CASE  2 

3135  R_terrt="  ROLL" 

3138  CASE  3 

3141  R_terr»=“  HILL" 

3144  CASE  4 

3147  R_terr*="MOUNT“ 

3150  END  SELECT 

3153  PRINT  USING  “  6  X .  7 A ,  1  1  X  .  5A  „  1 0  X .  1 A .  7  X  .  7 A ,  11X.5A" : "Terrain ":R  terrt: " : "Ter 
in": R_terrS 

3156  PRINT  USING  "6X.11A.6X  .6D.10X.1A.  7X.11A.6X  ,6D":"Break  Range" : B_rg_bree 
"  !  "  ;  "Brest:  Range"  ;  R  rg_break 

3159  PRINT  USING  "6X.16A.4X  .3D.10X.1A,  7X.16A.4X  ,3D";"7.  Casualty  Break":B_ca 
break*  1 00:  "  !  "  ;  "7.  Casual  ty  Break":  R_c  as  break  *  100 

3162  PRINT  USING  "6X  ,  9A .  1  1  X  .  3D .  1  OX  .  1  A.  7X  ,  9A,  1 1  X  .  3D"  :  "7.  Forward"  :  B_pct_Pwd* lOO 
1  ”  ;  "7.  Forward"  ;  R_pc t  _  f  wd *  1 00 

3165  Set_prnt_Pmt 1 : IMAGE  6X . 1 OA,  10X . 3D . 1 OX . 1 A.  7X . 10A, 10X , 3D 
3168  ! 

3171  1  PRINT  HELICOPTER  INFORMATION 

3174  ' 

3177  PRINT  USING  "6X . 1 2A, 21 X . 1 A . 7X , 1 2A" : "Hel i copter s 1 ": "Hel  l  copter s : " 

3180  H_d_*="  Mi  ssl  esMsl  ?<guns  Guns  Air— air  Msl  t'Ai  rMsl  GnAi  r  Gun.VAir" 

! ATT ACK~PR0F I LE 

3183  H_msnt="  Air-qrnd  Air-air  SEAD"  'HELD  MISSION 

3186  Rgmsnt ( 1 ) ="Rg  to  D.F." 

3189  Rn  msn*  (2)  ="R'g  to  Hel  o" 

3192  Rg_msnS ( 3) = " Rg  to  SEAD" 

3195  PRINT  USING  "9X.11A.  X . 8A. 1 OX .  1 A.  1  OX . 1 1 A .  X,BA":"Helo  msn  " ; H_msnS C B_h 

o_msn ( 1 ) *8+1 ; 8 1 ; " ! " : "Hel o  msn  " : H_msntCR_hel omsn ( 1 ) *8+1 ; 81 

3198  PRINT  USING  "21X  . 8A.  10x7 1  A. 22X  . BA" : H_msnt C B_hel a  msn ( 2 ) *8+1 

1; " ! ":H_msn*[R_hel o_msn (2) *8+1:83 

3201  PRINT  USING  "9X.11A,  X . 8A ,  lOX. 1A.  10X.1 1  A,  X.8A":"Atk  prof i 1 e" :H_d_*[P  he 
_atkproP  (  1  )  *8+1  ;  8  3  :  "  !  "  ;  "Atk  proPi  1  e"  :  H_d_$  CR_hel  o_  at  kpr  of  <  1  )  *8+1  :83 
3204  PRINT  USING  "21X  . 8A. lOX . 1 A^22X  j 8A" : H_d _*CB_hel o_ atkpr oP < 2 > * 

1:83:"! " ; H_d_* C R_hel o_at kproP (2) *8+1 : 83 
3207  FOR  1=1  TO  2 

3210  IF  B_hel omsn ( I ) >0  AND  R_hel o_msn ( I >  0  THEN 

3213  PRINT  USING  "9X .  I OA. 6X , 4Z .  1  OX .  1  A,  1 OX .  1 OA . 6X , 47 " : Rg_msn« ( B_hel o_msn ( I' 

B_atk_rg ( I ) : " 1 " ; Rg  msn* (R  hel o_msn ( I ) ) : R_at k  _ra ( I > 

3216  ELSE 

3219  IF  B_hel o_msn ( I ) • 0  AND  R_hel o_msn ( I ) <=0  THEN 

3222  PRINT  USING  "9X .  1  OA.  6X  .  4Z  .  1  OX ,  1  A.  10X  .  1  OA.  6X  .  4Z "  :  Ro _msn*  (  B__hel  o_ msn  ( 

)  :B_atk_rg(I)  ;  "  !  “StndoPP  Rq";R_att:_rg  (I) 

3225  ELSE 

3228  IF  B_helo_msn  <  I  > «  =0  AND  R_  hel  o_.msn  (I)  0  THEN 

3231  PRINT  USING  "9X , 10A, 6X . 4Z , 10X . 1 A, 10X , 10A, 6X. 4Z": "StndoPP  Rg":B_at 

rg ( I ) ; " 1 ":Rg_msn*(R  helomsn ( I ) ) ; R  at k _rg  (  I ) 

3234  ELSE 

3237  PRINT  USING  " 9X , 10A. 6X.4Z, lOX. 1A, 10X, lOA. 6X.42": "StndoPP  Ra";B_at 

rg (I) ; " 1 " ; "StndoPP  Rg";R_atl_rg( I) 

3240  END  TF 

3243  FND  IF 

3246  FND  TF 
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3249  NEXT  I 

3252  PRINT  USING  "9X  ,  5A,  1 4X .  D .  1  <>y  .  j  A .  1'  <Y  .  5ft ,  1  4  X  .  D"  ;  "Cell  s  "  :  B  _hel  o  (  1 . 3  >  :  "  "  :  "C 
5"  ;  R_hel o(l,3) 

3255  PRINT  USING  "28X  ,D,  10X. 1A,29X  ,  D"  ;  B_hel  o (2. 3) : " : " : R_hel o ( 

3258  PRINT  USING  "9X, UA,  5X , 4Z , 1  OX , 1  A,  10X . 1 1 A, 5X , 4Z" : "Entry  ti  me" : B_hel o_ 

“ ! " ; “Entry  t i me" : R_hel odel ay 
3261  PRINT  USING  "9X,11A,  3X , 6D, 1  OX , 1 A, lOX . 1 1 A. 3X . 6D" : “Entry  r anqe“ ; B_hel o_r a 
lay;  11  !  " ;  "Entry  range"  ;  R_hel  o_rg_riel  ay- 

3264  PRINT  USING  "9X,6A. 12X.2D, lOX. 1A. 10X.6A, 12X.2D": "*  LCH" : B_hel o  ( 1  ,  1 )  :  "  I  " 
HIND" ; R_hel o  ( 1 , 1) 

3267  PRINT  USING  "9X ,  6A, 1 2X . 2D, lOX , 1  A. 1  OX . 6A, 1 2X . 2D” ; “*  AH1 S" : B_ hel o ( 2 .  1  )  :  "  !  " 
HIP" ; R_hel o(2, 1 > 

3270  PRINT  USING  "9X , 6A. 12X , 2D, lOX , 1 A . 1  OX , 6A. 1 2X . 2D" ; "#  SCT"; B_ hel o <3. I >  5 ” i ” 
SCT" ; R_hel o ( 3, 1 )  'END  OP  CHANGES  DWS 

3273  'PRINT  USING  "9X.6A. 12X, 2D. 10X,  1  A" ; " #  AH IP" ; B_hel o (3,1):"!"  'ROB 

3276  ! 

3279  PRINT  USING  "39X , 1 A" ; " ! " 

3282  IF  B_atl;_def*="  DEFENDER"  THEN 

3285  PRINT  USING  "6X ,  12A,  10X ,  D,  10X .  1A"  :  "#  Mi  ne-f  i  el ds"  ;  No_mi  ne-f  i  el  ds:  "  !  " 

3288  IF  No_mi nef i el  ds>0  THEN 

3291  PRINT  USING  "  9X , 6A, 8X.6D, 10X, 1  A" : "Range: ";Minefield(l,  1  )  :  "  1  " 

3294  IF  No_minef ields>l  THEN 

3297  FOR  Minflds=2  TO  No_mi  ne-f  i  el  ds 

3300  PRINT  USING  "23X , 6D, 10X , 1 A" ; Mi nef i el d (Mi nf  1  ds.  1  > ;  ”  1" 

3303  NEXT  Mi nf Ids 

3306  END  IF 

3309  END  IF 
3312  ELSE 

3315  PRINT  USING  "39X,1A.  7X.  1 2A, 1  OX, D" ; " ! " ; "#  Mi nef i el ds" ; No_mi nef i el ds 
3318  IF  No_fru  nef  i  elds  >0  THEN 

3321  PRINT  USING  "39X , 1 A. 10X . 6A. 8X , 6D" i "  . . Range: " : Mi nef i el d ( 1 . 1 ) 

3324  IF  Nominef ields>l  THEN 

3327  FOR  Minflds=2  TO  No_mi nef i el ds 

3330  PRINT  USING  "39X ,  1  A.  24X  6D"  :  "  !  “ :  Mi  nef  i  el  d  (Mi  nf  1  ds.  1  ) 

3333  NEXT  Mi nf 1 ds 

3336  END  IF 

3339  END  IF 

3342  END  IF 
3345  PRINT  "  " 

3348  PRINT  "  " 

3351  FOR  1=1  TO  12  ! TEMP  EXPERIMENT  TO  PRINT  NAMES  ROB 

3354  M*="  " 

3357  N*="  " 

3360  IF  I>No_b_unit  THEN  3372 

3363  ENTER  (PFname,  B_Lini  t_no  ( I )  ;  M* 

3366  ENTER  i?Uni  tpath  ,  B_uni  t  no  (  I )  :  N  (  ♦  > 

3369  Bef  f  =N ( 79 ) 

3372  IF  I>No_r_unit  THEN  3384 

3375  ENTER  (s'Rname,  R_uni  t_no  <  I  )  ;  N* 

3378  ENTER  eUni tpath, Rum t  no ( I ) ; N ( * > 

3381  Ref  f  =N  <  79 ) 

3384  IF  I  No  b_unit  AND  I  No  r_unit  THEN  3414 
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33B7  IF  I>No_b_unit  THEN 

3390  PRINT  USING  "47X . 3D. 2X,  1 6A. 2X , 3D” ;R  uni <  no ■  1) : N* : R  urn  t  pet ( I) »Re-f * 

3393  GOTO  34 1 4 

3396  END  IF 

3399  IF  I >No_r _uni t  THEN 

3402  PRINT  USING  "  6X  ,  3D ,  2X  .  1  6A .  2X  .  3D"  :  Bum  t  no  (  I  )  :  MS :  Rum  t  pc  t  (  I  )  *Be-f  -f 

3405  GOTO  3414 

3408  END  IF 

3411  PRINT  USING  "6X , 3D, 2X , 1 6A. 2X . 3D, 15X , 3D. 2X , 1 6A. 2X . 3D" : B_ un l t  no ( I ) : MS ; B 

1 1  _pct  ( I ) *Bef f ;  R_uni  t_no  (  I )  ;  NS;  R_uni  t_pct  ( I )  *Re-f  t 

3414  NEXT  I 

3417  RETURN 

3420  1 

3423  - - 

3426  ! 

3429  Set_condi tions:  •  SETUP'  BATTLEFIELD  CONDITIONS 

3432  1 

3435  !  SET  BATTLE  START  TIME  TO  NEAREST  30  MINUTE  BLOCK 

3438  Mi nute=St _t i me  MOD  100 

3441  End_mi  nute=End__ti  me  MOD  lOO 

3444  SELECT  Minute 

3447  CASE  16  TO  45 

3450  Minute=30 

3453  CASE  <16 

3456  Minute=0 

3459  CASE  >45 

3462  Minute* 100 

3465  END  SELECT 

3468  St_t i me=INT (St _t i me/ 1 00) * 100+Mi nute 
3471  End_time=INT  <End_time/ 100) *  1 00+End_mi nute 
3474  IF  St  t i me=2400  THEN  St  time=0 
3477  ! 

3480  'SET  DAY/NIGHT  STATUS 

3483  IF  St_ti me<600  OR  St_time>2100  THEN 

3486  Davni te=l  '  NIGHT=1 

3489  ELSE 

3492  Day_nite=0  1  DAY=0 

3495  END  IF 
3498  ' 

3501  !  SET  FORCE  EFFECTIVENESS 
3504  FOR  1=1  TO  70 

3507  Ini  t _b_et 4  =  Ini  t _b_ef  -f  +Sys_tot  (1,1)  *Sys_e  +  +  (  1  .  I  ) 

3510  Ini  t  _r  _ef -f  =  In  i  t_r_e-ff+Sys_tot(3,  I)*Svs_ett  (2.  I ) 

3513  NEXT  I 
3516  ' 

3519  !  SET  CURRENT  FORCE  EFFECTIVENESS 

3522  B_cb t  _et -f  =  I ni  t  _b_e-f -f 
3525  R_cbt _ef  -f  =  I ni  t  r _ef  + 

3528  ! 

3531  1  SET  UP  FORCE  MATRIX 

3534  FOR  1=1  TO  70 

3537  Systot (2. I )=Svs_tot ( 1 . I > 
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3540  Sys_tot  <4. I)=Sys_tot (3. I > 

3543  NEXT  I 
3546  ! 

3549  1  SET  BATTLE  TIME 

3552  Btl _t i me=St_t i me 

o  — 1 1 _ i  > _ i  ( 

3558  Max_btl_time=End_time 

3561  !  SET  BATTLE  TERMINATION  TIME 

3564  ! SELECT  Btl_time 

3567  ! CASE  0  TO  599 

3570  !  Max_btl  _time=600 

3573  'CASE  600  TO  1199 

3576  1  Max _btl_time= 1200 

3579  'CASE  1200  TO  1799 

3582  ! Max _btl _ti me= 1800 

3585  ICASE  1800  TO  2400 

3588  !Max_btl_time=2400 

3591  ! END  SELECT 

3594  ! 

3597  !  SET  HOUR  COUNTER 

3600  St_hour  =  INT (Max _bt 1 _t i me/ 1 00+ . 1 > -6 
3603  Batt 1 e_hour = I NT (St _t i me/ 100+ . 1 ) 

3606  Batt le_min=St  time  MOD  100 
3609  Hh= (Batt 1 e_hour-St_hour ) *2 
3612  IF  Battl e_mi n  >. 1  THEN  Hh=Hh  +  l 
3615  ' 

3618  !  SET  BATTLE  RANGE 

3621  Btl_rg=Ini t_rg 
3624  ! 

3627  '  SET  BATTLE  PHASE 

3630  IF  Btl _rg>Df _rg  THEN 
3633  Btl_phase=l 
3636  ELSE 

3639  Bt 1 _phase=2 
3642  END  IF 
3645  ! 

3648  !  SET  FIRST  BAND  FOR  DIRECT  FIRE 

3651  Fi rst_bnd=INT (Df _rg /500+. 5) 

3654  IF  First_bnd>6  THEN  First_bnd=6 
3657  IF  First_bnd<=0  THEN  First_bnd=l 
3660  ! 

3663  'SET  UP  HELO  ATTACK  PROFILE.  MISSION  &  STANDOFF  RANGE  ARRAYS 

3666  FOR  1=1  TO  3 

3669  J=r 

3672  IF  1=3  THEN 

3675  IF  B_hel o ( 3, 1 >  >0  THEN  'SCOUTS  DO  EXIST 

3678  J=1  ‘SET  SCT 7  3  ATK  PROF.  MSN  AND  RANGE  FROM  HELO  1  ’  S 

3681  ELSE  'ZERO  OUT  SCT’S  ARRAYS 

3684  At k_pr of ( 1 , 3) =0 

3687  Hel o_mi s ( 1 . 3) =0 

3690  Stnd_of f _rg (1,3) =0 

3693  GOTO  Rd_sct 


6-VII-40 


Ground  combat  code  (continued) 


Table  6-14. 

34.96  END  IF 

3699  END  IF 
3702  At  I:  _pr  o-f  (  1 .  I  )  =  B  hel  o  atkpr  o-f  <  J  > 

3705  Hel  o_mi  s  (  1 .  I ) =B_ hel  o  msn  ( .1 ) 

3708  Str.d_o-f  f  _ra  (1,1)  =B_at  k_rg ( J ) 

3711  Rd_sct: IF  1=3  THEN 

3714  IF  R_helo<3. 1 > >0  THEN  'SCOUTS  DO  EXIST 

3717  0=1  'SET  SCT ' S  ATK  PROF.  MSN  AND  RANGE  FROM  HELO  l'S 

3720  ELSE  'ZERO  OUT  SCT'S  ARRAYS 

3723  Atk_prof (2,3) =0 

3726  Hel o_mi s  <2, 3) =0 

3729  Stnd_of f _rg  (2,3)  =0 

3732  GOTO  N>;t_setup 

3735  END  IF 

3738  END  IF 

3741  Atk_prof  <2,  I ) =R_hel o_at kpr of  (J> 

3744  Helo_mis<2, I ) =R_helo_msn <3> 

3747  Stnd_of f _rg (2,1) =R_atk_rg ( J  > 

3750  Nxt_setup: ! 

3753  NEXT  I 
3756  ! 

3759  1  SET  INDIRECT  FIRE  MISSION  TONNAGES  FOR  6-HOUR  BATTLE 

3762 

3765  'SET  FOR  GAMP&CLGP 
3768  Gamp_avai 1 =No_gamp* . 1 1 
3771  Clgp_avai l=No_clgp*. 1 1 
3774  ! 

3777  !  SET  FOR  ARTILLERY 

3780  FOR  J=1  TO  7 
3783  FOR  1=1  TO  5 

3786  Bi  -f  _msn_tons  ( J  .  I  )  =Bi  -f  _ammo  (J)*Bif_msn(I)/l  00 

3789  Ri  f  _  msn  _  tons  ( J  .  I )  =Ri  f  _ammo  <  J  >  *Ri’f  _msn  <  I  >  /  1 00 

3792  NEXT  I 

3795  B_dsartv_avai 1  ( J ) =Bi f  _msn_tons ( J . 2) 

3798  R_dsar tv_ava i 1  ( J ) =Ri i _ msn _ tons ( J , 2  > 

3801  NEXT  J 
3804  ( 

3807  !  SET  FOR  MLRS 

3810  FOR  1=1  TO  5 

3813  IF  1=2  THEN  Ne>:t_mlrs  !  MLRS  NOT  A  CS  WEAPON 

3816  IF  Bi f _msn <2> >=100  THEN  Rif_mt 
3819  FOR  J=12  TO  15 

3822  Bi  -f  _msn  tons  ( J  ,  I  )  =Bi  f  ammo  ( J  )  *Bi  -f  _msn  (  I  )  /  ( 1 00- Bi  f  _msn  (2)  > 

3825  NEXT  J 

3828  Ri-f_mt:IF  Ri  -f  _msn  ( 2 )  >=  1 00  THEN  Ne:;t_mlrs 
3831  FOR  J= 12  TO  15 

3834  Rif  _msn_tons (J. I ) =Ri f  _ ammo ( J ) *Ri f  _msn ( I ) / ( 1 00— Ri f  msn ( 2 ) ) 

3837  NEXT  J 

3840  Ne>:t_ml  rs:  NEXT  I 

3843  ! 

3846  '  SET  FOR  MORTARS 

3849  I n t  bmor t=Bi f  msn ( 1 > +B l f  msn ( 2 ) +Bi f  msn ( 3 >  '  NO  MORTARS  IN  CFIRE/INT 
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3852  I nt  _rmort  =Ri  F  msn  (  1  )  +R l  F  _msn  (  2  '  +F: l  F  msn  (7) 

3855  FOR' 1=1  TO  5 

3858  IF  1=4  OR  1=5  THEN  Next,  mort 
3861  IF  lnt_bmort=0  THEN  Nextmort  r 

3864  FOR  J=S  TO  11 

3867  Bi  F  msn _ tons  <  J ,  I )  =  Bi  F  _ammo  <  J  >  *Bi  F  msn  ( I  )  /  I  nt  _bmor  t 

3870  NEXT  J 

3873  Ne>:t_mort_r :  1 

3876  IF  lnt_rmort=0  THEN  Next._mort 
3879  FOR  J  =8  TO  11 

3882  Ri  F_msn_tons  <  J  .  I  >  =Ri  F  _ammo  <  J  >  *Ri  F  _msn  <  I )  /  I  nt  r  mor  t 

3885  NEXT  J 

3888  Nex  t  _mor  t :  NE  X  T  I 

3891  FOR  J=8  TO  11 

3894  B_dsmor t  _a vai 1  < J— 7 ) =Bi F _msn_t  ons ( J . 2 ) 

3897  R_dsmort  _avai  1  ( J-7 > =Ri F _msn_t ons < J , 2 ) 

3900  NEXT  J 
3903  1 

3906  1  ZERO  SEAD  AMMO.  NOT  EXPLICITLY  USED 

3909  IFOR  1=1  TO  15  ! ROB 

3912  1 Ri i _i ired  < 1 . 3) =0 

3915  ! B i F  _ f i r  ed  < 1 , 3 ) =0 

3918  ‘NEXT  I 

3921  1 

3924  Ri F _ammo_s v=0 
3927  Bi f  ammo_sv=0 
3930  FOR  1=1  TO  15 
3933  FOR  J=1  TO  5 

3936  Ri F _ammo_sv=Ri F  _ammo_sv+Ri F_msn_tons ( I . J  > 

3939  Bi  +_ammo_sv=Bi  F _ammo_sv-*-Bi  F_msn_tons  (  I  ,  J  ) 

3942  NEXT  J 
3945  NEXT  I 
3948  1 

3951  'SET  ARTY  MLF.'S  AND  MORT  CAP  FOR  MISSION 
3954  I  MAX  FIRE  RATES  FOR  THIS  MISSION 
3957  FOR  1=1  TO  15 

3960  Ar t  y _30mi n_wt ( 1 . I ) =Bar t y_30mi n  < B_msn ( 1 )  .  I ) 

3963  Ar tv_30mi n_wt (2.1) =Rarty_30mi n (R_msn ( 1 ) . I ) 

3966  NEXT  I 
3969  ' 

3972  '  SET  DIRECT  SUPFGRT  ARTILLERY/MORTAR  PARAMETERS 

3975  B_dsmor t_br krg=B_rg_br eak- lOO 
3978  R  dsmor t_br krg=F:_r g_br eak-lOO 

3981  B_dsarty_brkrg=B_rg_break  '  END  RANGE  FOR  CS  ARTY  SUPPORT 

3984  R_dssr ty_br krg=R_rq_break 

3987  B_dsarty_start=Ds_start(R_terr)  1  START  RANGE  FOR  CS  ARTY  SUPPORT 

3990  R_dsartv_start=Ds_ start (B_terr) 

3993  ' 

3996  IF  Ds_start (R_t err ><5700  THEN 
3999  Bdsmor  t_start=Ds_start (R_terr> 

4002  ELSE 

4005  B  dsmort  start=570O 
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4008 

401  l 

4014 

4017 

4020 

4023 

4026 

4029 

4032 

4035 

4038 

4041 

4044 

4047 

4050 

4053 

4056 

4059 

4062 

4065 

4068 

4071 

4074 

4077 

4080 

4083 

4086 

4089 

4092 

4095 

4098 

4101 

4104 

4107 

4110 

4113 

4116 

4119 

4122 

4125 

4128 

4131 

4134 

4137 

4140 

-3)  ,  I 

4143 

4146 

4149 

4152 

4155 

4158 


END  IF 

i 

IF  Ds  start  (  B_terr  )  «.  570<>  THEN 
R_dsmort_start=Ds  start(B  terr) 

ELSE 

R_dsmort_st art =5700 
END  IF 

B-ds-shl +t=0  '  STATUS  OF  RE-DEFINE  OF  FIRING  LEVEL 

O  r-t  .  _£  X_  _ _ 


R_ds_shi i t=0  i 

B_mo_shi f t=0  > 

R_mo_shi Ft=0 

R_da_conc_pt=R_dsarty_br»;rg  +  1500 

S_ds_conc_pt=B_dsar ty_br kr g+1 500 
B~fn°_conc_pt  =  B_dsarty_br kr g  +  1 500 
R_irio_conc_pt=R_dsar  t  y_br  kr  g  + 1 500 
B_ds_conc_level  = .  5 
R_ds_conc_l evel = . 7 
B_mo_conc_l evel =. 5 
R_mo_conc_l evel =  . 7 
B__p30_artyrg=B_dsarty_start 
R_p30_artyrg=R_dsarty_star t  ! 
B_p30_mortr g=B_dsmor t _star t 
R_p30_mor tr g=R_d smart _st art 


0=N0T  RE-DEFINED 
1 =RE-DEF I  NED 


X-PT  AT  KNEE  OF  CS  CURVE 


V-PT  AT  KNEE  OF  C<~  CURVE 


BATTLE  RANGE  AT  END  OF  PREVIOUS  30  MIN  F 


IF  Bt_time<"600  OR  Bt_t  i  me >2100  THEN 
Day_nlte=l  •  CHECK  THIS 

ELSE 

Dav_ni te=0 
END  IF 

'  READ  ADVANCE  RATE  DATA 
IF  Atk_de-f=0  THEN 

Fi 1 e=8+4*Day_n ite+R  terr 
ELSE 

Fi 1 e=4*Day_n i te+B_t er r 
END  IF 

ENTER  SAdvanpath  ,  Fi  1  e:  Advance  rated) 

I  ~ 

RETURN 


Print_sys_out:  !  THIS  SBR  PRINTS  OUT  SPECIFIED  SYSTEMS 

FOR  1=7  TO  70  STEP  7 

PRINT  USING  Fmt 1 ; 1-6. M : " .S ( 1-6) . 1-5, " : ",S ( 1-5) . 1-4. " .S( 1-4) . 1-3. 

-2 ,  "  :  ,  S  ( I  -2 ) .  I  - 1 ,  " :  “  .  S  ( I  - 1  >  .  I ,  s  ••  s  ( I  > 

NEXT  I 

Fmt 1 : IMAGE  7  (2D.  1 A, 4D.  1 D, 2X ) 

RETURN 


6-V 1 1-43 


Table  6-14.  Ground  combat  code  (continued) 


* 


* 


4161  Control  battle:  '  THIS  SBR  CONTROLS  THE  GROUND  RATTLE 

4164  1 

4167  1  ! PR  I NT  OUT  INITIAL  SECTOR  CONDITIONS 

4170  GOSUB  Prlnt_ini t_res 
4173  ! 

4176  f  READ  DATA  FILES  TO  BE  USED  IN  30  MINUTE  BATTLE 
4179  ! 

4182  GOSUB  Read.Iiles 
4 1 85  ! 

4188  *  START  ATTRITION  ASSESSMENTS 

4191  Star t _30mi n_bt 1 :  1  START  ATTRITION  ASSESSMENTS  FOR  A  30  MINUTE  TIME  PERI 

4194  • 

4197  !  COMPUTE  COMBAT  EFFECTIVENESS 

4200  GOSUB  Tall y_cb t  _ef f 
4203  ! 

4206  !  CHECK  BREAKPOINT  CRITERIA 

4209  GOSUB  Check_tirk_pt 
4212  ! 

4215  <  SET  PHASE  FOR  NEXT  30  MIN  BATTLE 

4218  IF  Breakpoint*!  OR  Break_poi nt*2  THEN  Btl_phase=3 

4221  IF  Break ~poi nt=3  THEN  G0t5  End_battle 

4224  1 

4227  Cont i nue_bt I :  *  UPDATE  BATTLE  TIME. 

4230  !  TIME  IS  SET  TO  END  OF  THE  30  MIN  PERIOD. 

4233  !  SETTING  MISSIONS  FOR  RED  AND  BLUE 

4236  B_ms=l 
4239  R_<ns=l 
4242  !  ~ 

4245  B_t l me_pr int*Bt 1 _time 
4248  <“ 

4251  Btl _time=Btl _time+30 

4254  In t _mi nute=Bt 1 _t i me  MOD  100 

4257  IF  Int _mi nute=60  THEN 

4260  Bt 1 _t l me=Bt 1 _t i me+40  !  SET  TIME  TO  NEXT  WHOLE  HOUR  AT  60  MINS 

4263  END  IF 

4266  IF  Bt 1 _t i me< 600  OR  Bt 1 _t i me >2 100  THEN 

4269  Day_nite=l 

4272  ELSE 

4275  Day_nite=0 

4278  END  IF 

4281  Ti me_seg=Ti me_seg+l 
4284  1 

4287  PRINT  USING  "<?.#" 

4290  PRINT  USING  ”  1  X ,  45A"  ;  - - " 

4293  IF  Bt 1 _t i me< 2430  THEN 

4296  PRINT  USING  "33A. 4Z, 4A, 4Z , 2AM ; " !  SIGNIFICANT  BATTLE  EVENTS  FROM  ";B_tiir 
print;"  TO  ” ; Bt 1 _t i me; "  ! " 

4299  ELSE 

4302  PRINT  USING  "33A, 4Z . 4A, 4Z . 2A" ; " :  SIGNIFICANT  BATTLE  EVENTS  FROM  ":B_tirr 
print-2400;'1  TO  "  :  Bt  1  _t  i  me-2400;  "  :  " 

4305  END  IF 

4308  PRINT  USING  "1X.45A";" - " 
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4311 

4314  !  SET  ATTACK  HELICOPTER  ARRIVALS  FOR  RED/BLUE 

4317  GOSUB  Helo_arrive 
4320  ! 

4323  PRINT  USING  "/“ 

4326  IF  Vi s=4  THEN 

4329  PRINT  "  HELICOPTERS  NOT  FLYING  ON  1km  DAY" 

4332  ELSE 

4335  PRINT  “  BLUE  HELICOPTERS  ATTACKING  RED  FORCE" 

4338  PRINT  USING  FmtSO;"  LCH" ; Bah  1 

4341  PRINT  USING  FmtSO: "AH1S" : Bah2 

4344  PRINT  USING  FmtSO;"  SCT";Bsct 

4347  '  PRINT  USING  FmtSO ; "AHIP" ; Bsct 

4350  PRINT 

4353  PRINT  "  RED  HELICOPTERS  ATTACKING  BLUE  FORCE" 

4356  PRINT  USING  FmtSO: "HIND" : Rah  1 

4359  PRINT  USING  FmtSO; "  HIP":Rah2 

4362  PRINT  USING  Fmt80; "  SCT";Rsct 

4365  END  IF 

4368  FmtSO: IMAGE  6X , 4A. 2X . 3D. D 

4371  !  SET  INCOMING  INDIRECT  FIRE  FOR  RED/BLUE 

4374  GOSUB  Arty_arrive 
4377  ! 

4380  1 

4383  FOR  1=1  TO  15 
4386  Satv  < I ) =0 
4389  Tot_vol 1 ey < I > =0 
4392  FOR  J=1  TO  5 

4395  Vol ley  <  1 , 3 ) =6; 4  _f i red (l,J)/A_wt (1,1) 

4398  Saty  < I ) =Saty ( I ) +Bi t _msn_tons <  I .  J ) 

4401  NEXT  J 

4404  Tot  vol ley ( I ) =Tot_arty ( 1 . I ) /A_wt ( 1 , I > 

4407  NEXT  I 

4410  B_or_r_*="BLUE" 

4413  B_or_r=l 

4416  Label *=" ARTY  ARTY  ARTY  ARTY  ARTY  ARTY  ARTY  MORT  MORT  MORT  MORT  MLRS  MLRS 
RS  MLRS" 

4419  GOSUB  Pr i nt_vol 1 eys 
4422  PRINT 

4425  PRINT  "  BLUE  PGM  ROUNDS:  CLGP  GAMP" 

4428  PRINT  USING  "6X , 9A, 6X . 6D. D, 1 1 X , 6D. D" : "FIRED  " ; Cl qp.msns/ .  1 1 ; Gamp.msns . 

mo_wt ( 1 , 28)  !??  STILL  USE  28 

4431  PRINT  USING  " 6X , 9A, 6X , 6D. D , 1 1 X , 6D. D" : " AVAILABLE" : Cl gp_avai 1 /. 1 1 : Gamp_ava i 
Ammo_wt ( 1 , 28 )  1 ??ST I LL  USE  2B 

4434  ' 

4437  IF  B_ds_shi  -f  t=  1  AND  Atk_de-f=0  THEN  PRINT  USING  "/.70A":"  BLUE  FINAL  PRC 
CTIVE  ARTILLERY  BEING  APPLIED" 

4440  IF  B_ds_shi f t= 1  AND  Atk_de*=l  THEN  PRINT  USING  M/,70A";"  BLUE  FINAL  ART 
LERY  BARRAGE  ON  OBJECTIVE  BEING  APPLIED" 

4443  IF  B_mo_shi-ft  =  l  AND  Atk_de+=0  THEN  PRINT  USING  "/.67A";"  BLUE  FINAL  PRC 
CTIVE  MORTAR  BEING  APPLIED" 

4446  IF  B_mo_shi  f  t.  =  l  AND  Atk_de-f  =  l  THEN  FRINT  USING  "/.67A":"  BLUE  FINAL  MOT 
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R  BARRAGE  ON  OBJECTIVE  BEING  APPLIED" 

4449  FOR  1=1  TO  15 
4452  Saty  ( I >  =0 
4455  Tot_vol ley ( 1 ) =0 
4458  FOR  J  =  1  TO  5 

4461  Vol  1  ey  ( I ,  J )  =Ri  -f  ired  ( I .  J )  /A_wt  <2.  I> 

4464  Saty  ( I )  *=Saty  <  I )  +R1  -f  m5n_tons  I.J) 

4467  NEXT  J 

4470  Tot_volley (I )=Tot_arty (2, I) /A_wt (2.1) 

4473  NEXT  I 

4476  B_or  _r  _  * “ " RE  D " 

4479  B  or~r»2 

4482  Label *= “ ARTY  ARTY  ARTY  ARTY  ARTY  ARTY  ARTY  MORT  MORT  MORT  MORT  MRL  MRL 
L  MRL  " 

4485  GOSUB  Pr i nt_vol 1 eys 

4488  IF  R_ds_shi-ft  =  l  AND  Atk._det  =  l  THEN  PRINT  USING  "/.70A":"  RED  FINAL  PRC 
CTIVE  ARTILLERY  BEING  APPLIED" 

4491  IF  R_ds_shi  -f  t  =  l  AND  Atk_de-f=0  THEN  PRINT  USING  "/.70A"s"  RED  FINAL  ART 
LERY  BARRAGE  ON  OBJECTIVE  BEING  AFPLIED" 

4494  IF  R_mo_shi-ft  =  l  AND  Atk_de*=l  THEN  PRINT  USING  "/.67A":"  RED  FINAL  PRC 
CTIVE  MORTAR  BEING  APPLIED" 

4497  IF  R_mo_shi-ft«=l  AND  Atk_def=0  THEN  PRINT  USING  "/.67A":”  RED  FINAL  MOT 
R  BARRAGEON  OBJECTIVE  BEING  APPLIED" 

4500  !  CALCULATE  AMOUNT  OF  ADVANCE  BY  ATTACKER 

4503  GOSUB  Cal c_movement 

4506  !  CHECK  FOR  MINEFIELDS 

4509  GOSUB  Mi ne_encounter 

4512  ! ADJUST  MOVEMENT  FOR  MINES 

4515  IF  Mine  hi t<>0  AND  Amt  o-f  advance-;  >0  THEN 

4518  ! CALCULATE  MOVEMENT  TIME  TO  EDGE  OF  MINEFIELD 

4521  Edge_t i me= (Bt 1 _rg-Mi  net i el  d (Mine_hi t, 1 ) > /Amt_of _advance*30 

4524  IF  Edge_time-*-Mine_delay<30  THEN 

4527  Amt_of _advance= ( 1-Mi  ne_del ay/30>  *Amt_of_ad vance 

4530  Mine  delay=0 

4533  ELSE 

4536  Amt_of _advance=Bt 1 _rg-Mi net ield(Mine_hit. 1) 

4539  Mi ne_del ay=Mi ne_del ay- <30-Edge_t i me) 

4542  END  IF 
4545  END  IF 
4548  ! 

4551  1  CHECK  FOR  DIRECT  FIRE 

4554  Check_dir_f ire:  ! 

4557  IF  Btl _phase=3  THEN  Calc_btl_rg 

4560  IF  Btl _rg-Amt_oF _ad vance<=DF _rg  THEN 

4563  Btl_phase=2 

4566  IF  First_d-f=0  THEN 

4569  Int_advance=Btl _rg-D+ _rg 

4572  Int_bti_rg= (Amt _of _ad vance- I nt _ad vance) 

4575  Cur_bnd=First_bnd 

4578  SELECT  Int_btl_rg 

4581  CASE  <250 

4584  First  df=) 
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4587  D-f  _500_bris=l 

4590  Amt  o-f _advance=Int_advance 

4593  CASE  250  TO  750 

4596  Fi  r  st. _df  =  1 

4599  D-f  _500_bds=  1 

4602  Amt _of  _ advance* Int_ad vance+500 

4605  CASE  >750 

4608  Fi  rst_d-f  =  1 

4611  D-f  _500_bds=2 

4614  Amt_o-f  _ad  vance=Int_advance+10O0 

4617  END  SELECT 

4620  ELSE 

4623  Int_btl  _rg=Amt_o-f  _advance 

4626  SELECT  Int_btllrg~ 

4629  CASE  <250 

4632  Amt_o-f  _advance=0 

4635  D-f  _500~bds=l 

4638  CASE_250  TO  750 

4641  Amt_o-f  _advance*=500 

4644  D-f_500~bds=l 

4647  CASE  >750 

4650  Amt_o-f  _advance*1000 

4653  D-f  _SOO_bds=2 

4656  END  SELECT 

4659  END  IF 
4662  ELSE 

4665  Btl_phase=l 

4660  END  IF 

4671  ! 

4674  Calc_btl  rg:  ! 

4677  IF  Btl_phase=3  THEN 
4680  SELECT  Atk_def 

4683  CASE  0  «  RED  ATK 

4686  IF  Break_poi nt=2  THEN  Amt  _o-f_ad  vane  e=0 

4689  CASE  1  •  BLUE  A-TK 

4692  IF  Break_pai nt= 1  THEN  Amt_of _advance=0 

4695  END  SELECT 

4698  END  IF 

470 1  ' 

4704  Btl_rg=MAX <Btl_rg-Amt  of_advance,0) 

4707  ! 

4710  GOSUB  Print_e-f f 
4713  ! 

4716  ! 

4719  SELECT  Btl_phase 
4722  CASE  1 

4725  IF  Bt 1 _t i me< 2430  THEN 

4728  PRINT  USING  Fmt 1 1 ! "ATTACKER  FORCES  CLOS ING" . Bt 1 _t l me. "  HRS" . "B/EFF;  " 

urr_b_pt . "R/EFF :  " , Curr_r_pt 

4731  ELSE 

4734  PRINT  USING  Fmt 1 1 : "ATTACKER  FORCES  CLOSING" . Bt 1 _t l me-240O. "  HRS"."B/F 

:  Curr_b_pt . "R/EFF:  “,Curr_r_pt 


6-VII-47 


Table  6-14.  Ground  combat  code  (continued). 

4737  END  IF 

4740  PRINT  USING  "  1 9X  .  1 5A,  6D.  5X .  1  4 A .  6D“ :  "INITIAL  RANGE:  "  .  Bt  1  _r  g+Amt  _o-f  _ad  va 

e, "CURRENT  RANGE:  ”.Btl_rq 

4743  GOSUB  Phasel_btl 

4746  Flag_30min=l 

4749  CASE  2 

4752  IF  Bt X _t i me< 2430  THEN 

4755  PRINT  USING  Fmtll:"CLOSE  DF  BATTLE  UNDERWAY" . Btl _ti me. "  HRS" , "B/EFF : 

Curr_b_pt , "R/EFF:  " ,  Curr  r_pt 
4758  "ELSE 

4761  PRINT  USING  Fmt 1 1 ; "CLOSE  DF  BATTLE  UNDERWAY" , Btl _ti me-2400, "  HRS"."B/ 

F:  ", Curr_b_pt . "R/EFF:  ",Curr_r_pt 
4764  END  IF 

4767  PRINT  USING  “  19X  ,  15A,  6D,5X,  14A.6D":  "  INITIAL  RANGE:  "  .  Btl_rg+Amt_of  _adva 
e, "CURRENT  RANGE:  “,Btl_rg 

4770  Fmt 1 1 : IMAGE  / . 3X , 25A. 2X , 42 . 4A. 4X . 7A. 1 D. 2D. 3X . 7A. ID. 2D 
4773  GOSUB  Phase2_btl 
4776  Flag_30min=l 
4779  CASE  3 

4782  GOSUB  Phase3_btl 
4785  Flag_30min=2 
4788  END  SELECT 

4791  !  COMPUTE  COMBAT  EFFECTIVENESS 

4794  'GOSUB  Tall y_cbt_ef f 
4797  'GOSUB  Print_eFf 

4800  IPRINT  "  " :  "BEFF :  "  :  INT  <  <Curr_b_pt+.  005)  *  100)  ;  .  "REFF:  "  :  I  NT  (  <Curr_r 

t  +  .  005)  *100)  ; 

4803  GOTO  Start_30mi  r>_bt  1 
4806  ! 

4809  • 

4812  End  battle: RETURN 
4815  • 

4818  ' - 

4821  Pr  i  nt_e-f  f : 

4824  R_eFF_pt«0 
4827  B_e-ff_pt=0 
4830  FOR  1=1  TO  70 

4833  B_ef -f  _pt=B_e-f -f  _pt+Sys_tot  (2.  I )  *Sys_e-f  +  (1,1) 

4836  R_ef  f  _pt=R_ef  •f_pt-*-Sys_tot  (4.1)  *Sys_e+ -f  (2,1) 

4839  NEXT  I 

4842  IF  Ini t_b_eFF =0  THEN 
4845  Curr_b_pt=0 
4848  ELSE 

4851  Curr_b_pt=B_e-f  -f  _pt  /Init_b_e+  + 

4854  END  IF 

4857  IF  lnit_r_e-f-f=0  THEN 
4860  Curr_r_pt=0 
4863  ELSE 

4866  Curr  _r_pt=R_e-f  •f_pt/Init_r_e'f-f 

4869  END  IF 
4872  RETURN 
4875  ' 
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4878  ! - 

4881  1 

4884  Pr i nt _vol 1 eys:  ( 

4887  PRINT 
4890  PRINT 

4893  PRINT  USING  Pv_-f  3;  B_or_r_*:  "  ARTILLERY  VOLLEYS  FIRED  "Tons” :  "Tons" 

4896  Pv_f3: IMAGE  3X , 4A, 25A. 29X, 4A, 8X , 4A 

4899  PRINT  USING  Pv_f  1 ;  "P/CP"  :  “  CS  "  :  "SEAD"  :  "  CF  :  "  INT" : "TOTAL" : "CONSUMED" : ' 
AILABLE" 

4902  Pv_f  1 :  IMAGE  9X . 5 (4A. 3X > , 2X . 5A, 8X . 8A . 4X . 9A 
4905  FOR  Wv=l  TO  15 

49v8  IF  Saty  (Wv)  +Tot_arty  (B_or_r ,  Wv)  >0  THEN  !  I-f  tons  consumed  or  avail  not 
then  print  out  line 

4911  PRINT  USING  Pv_-f  2;  Label  *C  Wv*5-4 ,  Wv*53  .  Voll  ey  (Wv ,  1  >  .  Vol  1  ey  <  Wv ,  2 )  ,  Vol  1  e 

Wv, 3) , Vol 1 ey  < Wv ,4) .Volley (Wv, 5),Tot_voll ey (Wv) . Tot _ art v (B  or _r , Wv ) . Saty (Wv ) 
4914  END  IF 
4917  NEXT  Wv 

4920  Pv_-f2:  IMAGE  3X  .  5A.  5  (5D,  2X  )  ,  2X  ,  6D,  7X  ,  6D.  D.  4X  ,  8D.  D 
4923  RETURN 
4926  ! 

4929  - - 

4932  ! 

4935  Print_init_res:  !  THIS  SBR  PRINTS  OUT  INITIAL  UNIT  STATUS 

4938  • 

4941  PRINT  USING  ">?. #, 13A, 5X, 1 1 A, 2D, 6X , 8A, 3D" : "GROUND  COMBAT" . "GAME  TURN:  " . Ti 
, "SECTOR:  ".Sector 
4944  GOSUB  Set_print 

4947  RETURN  ("TEMPORARY  DISABLING  OF  THIS  SUB-ROUTINE 
4950  PRINT  USING  "// , 11A.29X, 10A”; "BLUE  UNITS:", "RED  UNITS:" 

4953  FOR  1=0  TO  9  STEP  3 

4936  FOR  J  =  1  TO  3 

4959  PRINT  USING  Fmt2:B  unit  no ( I +J ) . B  ' uni t  pct(I+J) 

4962  NEXT  J 

4965  Fmt2:  IMAGE  3D.  1  X .  3D.  3X ,  * 

4968  PRINT  USING  "7X,#" 

4971  FOR  J=1  TO  3 

4974  PRINT  USING  Fmt3:R  uni  t _no ( I +J ) . R  uni t _pct ( I +J ) 

4977  NEXT  J 

4980  Fmt3: IMAGE  3X , 3D, 1 X . 3D, # 

4983  PRINT  USING  "/" 

4986  NEXT  I 

4989  PRINT  USING  "////, 1 3A" ; "BLUE  SYSTEMS:" 

4992  FOR  1=1  TO  70 
4995  S ( I ) =Sys_tot (2,1) 

4998  NEXT  I 

5001  GOSUB  Pr i nt _sys_out 

5004  PRINT  USING  " / / , 1 2A" ; "RED  SYSTEMS:" 

5007  FOR  1=1  TO  70 
5010  S ( I ) =Sys_tot ( 4 . I ) 

5013  NEXT  I 

5016  GOSUB  Print._sys  out 
5019  GOSUB  Set_pr i nt 
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5022  PRINT  USING  "l?,  #,  2X  .  26A.  /  /  "  :  “  *  *  *  BATTLE  HISTORY  *  »  *  " 

5025  RETURN 
5028  1 

5031  ! - - 

5034  ! 

5037  Pr i nt_f  in_res:  !  THIS  SBR  PRINTS  OUT  FINAL  BATTLE  RESULTS 

5040  PRINT 
5043  PRINT 
5046  PRINT 

5049  PRINT  " - " 

5052  IF  Bt 1 _t i me< 2430  THEN 

5055  PRINT  USING  " 17A. 4Z . 2A“ ; “ i  BATTLE  ENDS  AT  “ : Bt 1 _t i me; "  !" 

5058  ELSE 

5061  PRINT  USING  "  17A.  4Z .  2A" ;  “  :  BATTLE  ENDS  AT  ":Btl  t  i  me-2400;  •* :  “ 

5064  END  IF 

5067  PRINT  M - " 

5070  ! 

5073  PRINT  USING  “G. #. 29A“; “RED  KILLER — BLUE  VICTIM  TABLE- 

5076  PRINT  USING  "//,6A,  14X.48A";  "VICTIM".  “< - KILLER - 

- >■■ 

5079  PRINT  USING  Fmt30; “  SYS" , “START" . "D/F" . “ I /F" . "PGM" , "A/H" , " INF" . "MIN" , "ENC 
5082  Fmt 30: IMAGE  4A. 5X .  5A, 7 <6X . 3A> 

5085  FOR  1=1  TO  70 

5088  IF  Sys_tot  < 1 . I >  <=0  THEN  Skip_prtl 

5091  PRINT  USING  Fmt31 s  B_veh*t  < 1-1 ) *5+1 ; 53 . Sys_tot (1,1). Kv_b ( 1 , I >  .  Kv_b (2.  I )  . 
_b  <3, I) ,Kv_b  <4. I ) .Kv_b<5,  l7,Kv_b  <6. I> . Sys  tot (2, I > 

5094  Ski p_prtl: NEXT  I 

5097  Fmt31: IMAGE  5A. 8 <3X, 4D. ID) 

5100  PRINT  USING  "////, 29A" ; “BLUE  KILLER — RED  VICTIM  TABLE" 

5103  PRINT  USING  "//,6A,  14X.48A";  "VICTIM".  "<r - KILLER - 

- >" 

5106  PRINT  USING  Fmt 30; "  SYS" , "START" , "D/F" . " I /F" , "PGM" . "A/H" , " INF" . "MIN" . "ENT 
5109  FOR  1=1  TO  70 

5112  IF  Sys_tot  <3. I ) <=0  THEN  Skip_prt2 

5115  PRINT  USING  Fmt31 ;  R_veh*C  (  I -1')  *5+1 ;  53  ,  Svs_tot  <3.  I  >  ,  Kv_r  ( 1 ,  I  >  ,  Kv_r  ( 2.  I  >  . 
_r (3,  I )  ,  Kv_r  <4,  I )  ,  Kv_r (5. I ) , Kv_r <6. I > . Sys_tot (4.1) 

5118  Skip_prt2; NEXT  I 
5121  ' 

5124  ! ! PRINT  OUT  HELICOPTER  RESULTS  (SORTIES. LOSSES. AMMO/FUEL  EXPENDED) 

5127  ! 

5130  PRINT  USING  "8, #, 27A" ; "ATTACK  HELICOPTER  RESULTS:" 

5133  PRINT  USING  Fmt32; "TYPE" , "^COMMITTED" . "SKILLED" . "^SORTIES" 

5136  PRINT  USING  Fmt33; "  LCH" . B_hel o (1,1), B_helo (1,2), B_hel o  < 1 , 6) 

5139  PRINT  USING  Fmt 33; " AH1S" . B_hel o (2, 1 > , B_hel o ( 2. 2> , B_hel o < 2. 6) 

5142  PRINT  USING  Fmt33: "SCTS“ , Blhel o <3, 1 > , B_hel o ( 3. 2) , B_hel o (3. 6) 

5145  PRINT  USING  Fmt 34; "HIND" ,R~heloCl, 1) ,R_helo(l,2) ,R_helo(1.6> 

5148  PRINT  USING  Fmt33;"HIP  " , R~hel o (2, 1 > , R_hel o ( 2. 2 > . R_hel o < 2, 6 > 

5151  PRINT  USING  Fmt 33; "SCTS" , R^hel o (3, 1 > , R_hel o ( 3. 2) , R_hel o (3. 6) 

5154  Fmt32: IMAGE  / / / , 4A. 3X . 1 OA, 4X . 7A. ( 4X . 8A> . / / 

5157  Fmt 33; IMAGE  4A. 6X , 3D. ID. 2 < 7X . 3D. 1 D> 

5160  Fmt34; IMAGE  // . 4A. 6X . 3D. ID. 2 <7X . 3D. ID) 

5163  RETURN  'DISABLE  LER  PRINTOUT 
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5166  FOR  J=1  TO  2 

5169  Sys  dF  1  ( J  >  =Sys_tot  ( J  .  5) 

5172  FOR~I=l  TO  3 

5175  Syf.dFl  <J)=Sys_dFl  <J) -t-Sys  tot(J.I) 

5178  NEXT  I 

5181  Sys_dFs<J)=Sys_tot<J.4) 

5184  FOR  1=7  TO  9 

5187  Svs_dFs  <  J  >  =Sys_dFs  <  J )  «-Sys  tot(J.I) 

5190  NEXT  1 
5193  NEXT  J 
5196  FOR  0=3  TO  4 

5199  Sys_dFl  (J)=Sys_tot  <  J ,  6)  +Sys_tot  <  J,  7) -t-Sys_tot  <J,9) 

5202  FOR  1=1  TO  3 

5205  Sys_dF  1  <J)=Sys_dFl  <J>+Sys_tot  <J,  I> 

5208  NEXT  I 

5211  Svs_dFs  ( J  >  =Sys_tot  ( J ,  4)  +Sys_tot  <0 , 5)  +Sys_tot  (J,8) 

5214  NEXT  0 
5217  FOR  J=1  TO  4 

5220  Sys_i F <J)=Sys_tot (J, ll)+Sy«_tot  <J, 13) +Sys_tot  <J, 14) 

5223  Sys^ad <J)=Sys_tot <J, 12) +Sys_tot < J, 15) +Sys_tot ( J , 16) +Sys_tot ( J , 

5226  Sys_sum  ( J )  =Sys_dF  1  <0 )  +Sys_dF  a  <  J )  +Sys_i F  ( J)  +Sys_ad  ( J) 

5229  NEXT  J 

5232  Sys_dF 1 <7)=Kv_b<4, 1 ) +Kv_b <4, 2) +Kv_b (4, 3) +Kv_b (4, 5) 

5235  Sys_dFs  (7)  =Kv_b  (4 , 4)  +Kv_b  <4. 7)  •M<v_b  <4,B)  -*-Kv~b  (4.9) 

5238  Sys_i  F  <7)=Kv_b<4,  ll)+Kv_b<4f  13>+Kv_b(4,  14) 

5241  Svs_ad  (7)  =Kv_b  (4,  12)  -*-Kv_b  (4.  15>t-Kv_b<4,  16)  +Kv_b  (4,  17) 

5244  Sys_sum(7)  =Sys_dF  1  (7) +Sys_dFs (7) +Sys_i F  (7) -*-Sys_ad  (7) 

5247  Sys_dF 1  <5>=Sys_dFl <l)-Sys_dFl (2) 

5250  Sys_dF s (5) =Sys_dFs ( 1 ) -Sys_dFs  <2> 

5253  Sys_i F (5) =Sys_i F ( 1 ) -Sys_i F  <2> 

5256  Sys_ad  <5>  =Sys_ad  < 1 ) -Sys_ad  <2) 

5259  Sys_sum (5) =Sys_sum < 1 ) -Sys_sum ( 2) 

5262  Sys_dFl <6)=Sys_dFl <3)-SysIdFl (4) 

5265  SysdFs (6) =Sys_dFs (3) -Sys_dFs  <4) 

5268  Sys_i F  <6) =Sys_i F (3) -Sys_i F (4 >  . 

527 1  Sy s_ad ( 6 ) =Sys_ad ( 3 ) -Sys_ad  < 4  > 

5274  Sys_sum (6) =Sys_sum < 3) -Sys_sum < 4 ) 

5277  IF  Svs_sum ( 1 ) =0  THEN 
5280  CFr_b=l 
5283  ELSE 

5286  IF  Sys_sum (3) =0  THEN 
5289  CFr_b=l 

5292  ELSE 

5295  CFr _b=Sys_sum <3) /Sys_sum ( 1 > 

5298  END  IF 

5301  END  IF 

5304  CFr_r=l/CFr_b 

5307  CFr _bwo=CFr _b 

5310  IF  Sys_dFl(l)=0  THEN 

53)3  CFr _bdF 1 =0 

5316  Ler_bdFI =0 

5319  Fer ~bdF 1 =0 
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ELSE 

Cf r _bdf 1  =Sys_d-f  1  (3) /Sys.  d-f  1  (1) 

IF  Sys_d-f  1 (5) =0  THEN 
Ler  _bd-f 1 =0 
ELSE 

Ler ^bd-f  l=Sys_d-fl  (6)  /Sys_d+1  (5) 

END  IF 

IF  Cfr _bdf  1=0  THEN 
Fer  _bd-f  1  =C 
ELSE 

Fer _bdf 1 =Ler _bdf 1 /C-fr_bd-fl 
END  IF 
END  IF 

IF  Sys_df s < 1 > =0  THEN 
C-f  r  _bd-f  s=0 
Ler_bdf s=0 
Fer_bdf s=0 
ELSE 

C-f  r_bd-f  s“Sys__d-f  s  (3)  /Sys_df s  ( 1 ) 

IF  Sys_df s  <5^*0  THEN 
Ler_bd-f  s«0 
ELSE 

Ler^bd-f  s=Svs_d-f  s  <A) /Sys  d-fs(5) 

END  IF 

IF  Cf  r  _bd-f  s*0  THEN 
Fer_bdf s=0 
ELSE 

Fer  bdfs=Ler  bd-fs/C-f r  bdfs 
END  IF 
END  IF 

IF  Sys_sum  <5) =0  THEN 
Ler _b=0 
ELSE 

Ler_b=Sys_scim (6) /Sys_sum (5) 

END  IF 

IF  Ler_b=Q  THEN 
Ler _r=0 
ELSE 

Ler  _r  =  1  /  Ler  _b 
END  IF 

Sysum57=Sys_sum  <5) -Sys_sum ( 7 ) 

IF  Sysum57“0  THEN 
Ler  bwo^O 
ELSE 

Ler  _bwo=Sys_sum (6) / (Sys_sum (5>  — Svs_sum (7  > > 
END  IF 

Fer_b=Ler _b/Cf r _b 

Fer _r=Ler _r /C fr_r 

Fer_bwo=Ler _bwo/Cf r  bwo 

PRINT 

PRINT 

PRINT 


6-VII-52 


Table  6-14.  Ground  combat  code  (continued) 


5478  PRINT 

5481  PRINT  USING  "2GX . 27A" : "DIME  SECTOR-BATTLE  ANALYSIS" 

5484  PRINT  USING  " / , 22X . 1 OA. 2D, 8A. 3D" : "GAME  2,  Cl " . Turn. " .  SECTOR" . Sector 
5487  PRINT  USING  "/, 24X , 4A. 19X . 3A" ; "BLUE" . "RED" 

5490  IF  Svs_sum<7) >0  THEN 
5493  PRINT  USING  “34X , 2A“ s "BY" 

5496  PRINT  USING  " 16X, 5A. 3X . 3A, 3X , lOA. 5X , 18A" : "START" . "END" . "LOSS  HIND". "ST 
T  END  LOSS" 

5499  PRINT  USING  Fmt35;  "DFLR" . Sys_dP  1  <  1 )  .  Sys_dP  1  (2 )  .  Svs_.dP  1  (5)  ,  Sys_dP  1  ( 7>  .  Sy 
dP 1 (3) ,Sys_dPl (4) ,Sys_df 1 (6) 

5502  PRINT  USING  Fmt35; "DFSR" , Sys_dPs <1 > . Sys_dPs (2) . Sys_dPs (5) , Sys_dPs <7> . Sy 
dPs (3) , Sys_dPs (4) ,Sys_dPs<6> 

5505  PRINT  USING  Fmt35: "  IF  " , Sys_i P  ( 1 ) . Sys_i P (2 ) . Sys_i P (5) , Sys_i P ( 7) . Sys_i P 
) , Sys_i P (4) , Sy5_i P (6) 

5508  PRINT  USING  Fmt35: "  AD  " , Sys_ad  ( 1 ) . Sys_ad (2) . Sys_ad (5) . Sys_ad (7> , Sys_ad 
) , Sys_ad (4) , Sys_ad (6) 

5511  PRINT 

5514  PRINT  USING  Fmt35; "SUM: " , Sys_sum ( 1 ) , Sys_sum ( 2) , Sys.sum (5) . Sys_sum (7 ) , Sv 
sum (3) , Sys_sum  <  4 ) , Sys_sum (6) 

5517  PRINT  USING  "// , 20 X , 8A, 2X , 1 OA" : "W/0  HIND", "DFLR  DFSR" 

5520  PRINT  USING  Fmt37; "CFR  -  " , CPr_b , CPr _bwo, CPr_bdP 1 , CPr _bdPs,  "CFR  =  ",CPr 

5523  PRINT  USING  Fmt37; “LER  =  " . Ler _b , Ler _bwo. Ler _bdP 1 , Ler _bdPs.  "LER  =  " . Ler 

5526  PRINT  USING  Fmt37;“FER  =  “ , Fer _b , Fer _bwo. Fer  bdP 1 . Fer _bdPs, “FER  =  ". Fer 

5529  ELSE 

5532  PRINT  USING  “ / , 16X , 5A, 3X , 3A, 3X , 4A. 1 1 X . 18A" ; “START" . "END" . "LOSS" . "START 
END  LOSS" 

5535  PRINT  USING  Fmt36? "DFLR" , Sys_dP 1 < 1 ) , Sys.dP 1 <2 ) . Sys_dP 1 (5) , Sys_dP 1 (3) , Sy 
dPl (4) , Sys_dP 1 (6) 

5538  PRINT  USING  Fmt36s “DFSR” , Sys_dPs ( 1 > , Sys_dPs (2) , Sys  dPs (5) . Sys_dPs (3) . Sv 
dPs  <4) , Sys_dPs (6) 

5541  PRINT  USING  Fmt36: "  IF  » . Sys_i P < 1 ) . Sys_i P ( 2) . Svs_i P (5) . Svs  i P < 3 > . Sys_i * 
) , Sys_iP (6) 

5544  PRINT  USING  Fmt36; "  AD  " , Sys_ad ( 1 ) , Sys_ad (2 ) , Sysad (5) , Sysad (3) . Sys_ad 
) , Sys_ad (6) 

5547  PRINT 

5550  PRINT  USING  Fmt36; "SUM: ” , Sys_sum ( 1 ) , Svs_sum ( 2 ) , Sys_sum (5)  ,  Sys_sum (3 >  .  Sv 
sum ( 4 ) , Sy s_sum  <  6 ) 

5553  PRINT  USING  " / / , 30X , 10A" ; "DFLR  DFSR” 

5556  PRINT  USING  Fmt38; "CFR  =  ", CPr_b , CPr _bdP 1 , CPr _bdPs, "CFR  =  ",CPr_r 

5559  PRINT  USING  Fmt39; "LER  »  " , Ler _b , Ler _bdP 1 . Ler _bdPs. "LER  =  ".Lerr 

5562  PRINT  USING  Fmt38; "FER  «  " , Fer_b, Fer'bdPl . FerbdPs. "FER  =  " .Ferr 

5565  END  IF 

5568  Fmt35: IMAGE  10X , 4A, 2 < IX , 4D. ID) , 2 < 1 X, 3D. ID)  ,  4X ,  2 < 4D.  ID,  1 X )  ,  3D.  1 D 
5571  Fmt36: IMAGE  10X , 4A, 2 < 1 X , 4D. ID) . IX, 3D. ID. 10X,2(4D. ID. IX)  .3D.  ID 
5574  Fmt37s IMAGE  8X , 6A, 3D. 2D, 3X , 3D. 2D. IX, 3D. 2D. 1 X . 3D. 2D. 8X . 6A. 3D. 2D 
5577  Fmt38s IMAGE  8X , 6A, 3D. 2D, 9X , 3D. 2D. 1 X . 3D. 2D, BX . 6A , 3D.  2D 
5580  ! 

5583  RETURN 
5586  ! 

5589  - - 

5592  Read_Piles:  1  THIS  SBR  READS  DATA  FILES  USED  IN  30  MINUTE  BATTLES 

5595  Dcdisk*=":9134, 704,0" 
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5598  * 

5601  !********************! 

5604  !  READ  MINE  FILE  ! 

5607  !******************** i 

5610  IF  No_minef ields>0  THEN 

5613  ASSIGN  ©Pmine  TO  "MINE_FRCT"S<Dcdi  sk* 

5616  ENTER  @Pmi ne, 1 ; Mine_t ret < * > 

5619  ASSIGN  ©Pmine  TO  * 

5622  END  IF 

5625  !***********************; 

5628  !  READ  INFANTRY  FILES  ' 

5631  ! *********************** • 

5634  ASSIGN  ©Pcond  TO  "CONVERT_D"!<Dcdi  sk* 

5637  ENTER  ©Pcond, 1 ; Convertd < * > 

5640  ASSIGN  ©Pcond  TO  * 

5643  ! 

5646  ASSIGN  ©Pcona  TO  ,,CONVERT_A"S-Dcd i  sk* 

5649  ENTER  SPcona, 1 ; Converts ( * ) 

5652  ASSIGN  ©Pcona  TO  * 

5655  ! 

5658  ! LOAD  CLASSIFIED  FIREPOWER  SCORES 

5661  ASSIGN  ©P  TO  "FPSr'&Dcdi  sk* 

5664  ENTER  ©P,l;Fpsb<») 

5667  ENTER  @P.2;Fpsr<*> 

5670  ASSIGN  ©P  TO  * 

5673  ‘ 

5676  !************************' 

5679  f  READ  ARTILLERY  FILES  ' 

5682  ! ************************ ! 

5685  !  THIS  REDUCES  TOTAL  AREA  TO  ONLY  THAT  AREA  TASK  IS  TARGETED  AGAINS 

5688  ASSIGN  ©Parband  TO  "RD_AR_BAND"S'Dcdi  sk* 

5691  ENTER  ©Parband , 1 ; R_area_band (* )  !'  (task) 

5694  ASSIGN  ©Parband  TO  * 

5697  ! 

5700  ASSIGN  ©Parband  TO  "BL_AR_BAND"!<Dcdi  sk* 

5703  ENTER  ©Parband , 1 ; B_area_band (* >  '  (task) 

5706  ASSIGN  ©Parband  TO  * 

5709  • 

5712  ASSIGN  ©Pdspmsk  TO  "RD_DSP_MSK"S<Dcdi sk* 

5715  ENTER  ©Pdspmsk , 1 ; R_di sprsn_mask (* )  !  (PHASE, MSN) 

5718  ASSIGN  ©Pdspmsk  TO  * 

5721  ! 

5724  ASSIGN  ©Pdspmsk  TO  "BL_DSP_MSK"?<Dcdi sk* 

5727  ENTER  ©Pdspmsk , 1 ; B_di sprsn_mask <* )  !  (PHASE, MSN) 

5730  ASSIGN  ©Pdspmsk  TO  * 

5733  ! 

5736  '  MASK  FOR  TARGETS 

5739  !  THIS  ALLOWS  SELECTIVE  TARGETING  FOR  EACH  TASK 

5742  ASSIGN  ©Ptgtmsk  TO  "RD_TGT_MSK"S<Dcdi sk* 

5745  ENTER  ©Ptgtmsk , 1 : R_tgt_masM * )  !  (TASK, TGT  ELM) 

5748  ASSIGN  ©Ptgtmsk  TO  * 

5751  I 
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5754  ASSIGN  C'Ptgtmsk  TO  "RL_TGT_MSK"S<Dcdi  sk4 

5757  ENTER  GPtgtmsk ,  1 ;  B_tgt  _mask  (  *  )  1  (TASK,  TGT  ELM) 

5760  ASSIGN  G'Ptgtmsk  TO  * 

5763  ' 

5766  <  THIS  IS  INDIVIDUAL  RD  OR  LCHR  LOAD  PKGD  WT  IN  TONS 

5769  ASSIGN  C-Pround  TO  "BL_ROUNDWT"*<Dcdi  sk* 

5772  ENTER  C'Pround ,  1  ;  B_rd_wt  <  » )  !  (TYPE) 

5775  ASSIGN  G'Pround  T0~* 

5778  ! 

5781  ASSIGN  G'Pround  TO  ''RD_ROUNDWT"S<Dcdi  sk* 

5784  ENTER  G'Pround ,  1 :  R_rd_wt  (*  >  !  (TYPE) 

5787  ASSIGN  G'Pround  TO  * 

5790  ! 

5793  '  PERCENT  OF  PERSONNEL  PRONE 

5796  ASSIGN  G'Ppsnpst  TO  '‘RD_PSN_PST"S<Dcdi  sk* 

5799  ENTER  G'Ppsnpst .  1  s  R_psnl  _posture  (* ) 

5802  ASSIGN  G'Ppsnpst  TO  * 

5805  ! 

5808  ASSIGN  G'Ppsnpst  TO  “BL_PSN_PST"&Dcdi sk* 

5811  ENTER  G'Ppsnpst ,  1 ;  B_psnr_postur  e  (  *  )  '  (‘/.prone)  (  1  st  vollev,  later  vol  1  ev 

5814  ASSIGN  GPpsnpst  TO  * 

5817  ! 

5820  ASSIGN  G-Ptle  TO  "TLE  "  JrDcdi  sk* 

5823  ENTER  GPtI e, 1 s T1 e ( * )  I  Target  Loc  Error (task) 

5826  ASSIGN  GPtle  TO  * 

5829  !  tttttxtttttxtttttttt  ' 

5832  (  READ  SMOKE  FILES  ' 

5835  !  ******************** ( 

5838  ! 

5841  ASSIGN  GPawpp  TO  " AMWTPP"t<Ocdi sk* 

5844. ENTER  E-Pawpp , 1 ; Amwtpp ( * )  'WT.  IN  LBS  OF  1  ROUND  FOR  ARTY  %,  MORT  BY 

IT  TYPE 

ASSIGN  G’Pawpp  TO  * 

I 

ASSIGN  GPro-f  TO  "  IROF  "&Dcdi  sk*  ■ 

ENTER  GPro-f .  1  :  Irof  (*)  !  RATE  OF  FIRE  FOR  ARTY  fc  MORT  BY  TYPE  OF  UN 

ASSIGN  E-Pro*  TO  * 

(**************************! 

!  READ  DIRECT  FIRE  FILES  1 
!«*S*S«t*S**tX*y*»tt *******! 

I 

!  READS  IN  SENSOR  DATA  FOR  70  TARGETS  VISIBLE  THROUGH  SMOKE 
ASSIGN  G'Psen  TO  "BL_SEN_DAY"S<Dcdl  sk* 

ENTER  GPsen, 1 ; B_sen_d ( * ) 

ASSIGN  G'Psen  TO  * 

ASSIGN  i?Psen  TO  " 8L_SEN_NIT"&Dcdi  sk* 

ENTER  f?Psen . 1 ; B_sen_n ( * ) 

ASSIGN  G'Psen  TO  * 

I 

ASSIGN  G'Psen  TO  "RD_SEN_DAY"!<Dcdi  sk* 

ENTER  G'Psen .  1  ;  R_sen_d  (* ) 


5847 

5850 

5853 

5856 

5859 

5862 

5865 

5868 

5871 

5874 

5877 

5880 

5883 

5886 

5889 

5892 

5895 

5898 

5901 

5904 
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5907  ASSIGN  G'Psen  TCI  * 

59  I O 

5913  ASSIGN  l?Psen  TO  "RD_SEN_NIT"!<Dcdi  sk* 

5916  ENTER  PPsen, 1 : R_sen_n ( * ) 

5919  ASSIGN  G'Psen  TG  » 

5922  1 

5925  ! ENTER  CATEGORY  FILES 

5928  ASSIGN  G'Pathl  TO  *,BH_CAT"S<Dcdi  sk* 

5931  ASSIGN  l?Path2  TO  "RD_CAT"!«,Dcdi  sk* 

5934  ENTER  G'Path 1 . 1 : B_cat < * ) 

5937  ENTER  @Path2, 1 ; R_cat < * ) 

5940  • 

5943  ! ENTER  AMMO  WEIGHTS 

5946  ASSIGN  G'Pathl  TO  "BH_DFAMO"*<Dcdi  sk* 

5949  ASSIGN  i?Path2  TO  “RD_DFAMO  '  &Dcdi  sk* 

5952  ENTER  G'Path  1 ,  1 ;  B_ammo_wt  <*  > 

5955  ENTER  G'Path  1  ,  3;  Sen_ptr  <  *  )  I  READ  BLUE  SENSOR  PTRS 

5958  ENTER  <?Path 1 , 4; Mun_ptr < * )  ! READ  BLUE  MUNIT  PTRS 

5961  FOR  1=1  TO  20 

5964  Df _sen_ptr ( 1 , I) =Sen_ptr < I > 

5967  D-f  _muni  _ptr  (  1 .  I )  =Mun_ptr  <  I ) 

5970  NEXT  I 

5973  ENTER  <?Path2,  1 ;  R_ammo_wt  ( *  > 

5976  ENTER  8Path2, 3; Sen_ptr < * )  'READ  RED  SENSOR  PTRS 

5979  ENTER  »Path2, 4: Mun~ptr < * )  ! READ  RED  MUNIT  PTRS 

5982  FOR  1=1  TO  20 

5985  D-f  _ser>_ptr  <2.  I )  =Sen_ptr  <  I ) 

5988  DP_muni  ptr  (2.  I ) =Mun_ptr ( I ) 

5991  NEXT  I 

5994  ASSIGN  PPathl  TO  * 

5997  ASSIGN  8Path2  TO  * 

6000  |  ******************  ! 

6003  !  READ  PGM  FILES 

6006  •*»**»*************' 

6009  ! 

6012  ASSIGN  iSPtgt val  TO  " TGT_VALS"?-Dcd  j  sk* 

6015  ENTER  G'Ptgt  val  ,  1  :  Tgt_val  ue  (  *  ) 

6018  ASSIGN  i?Ptgtval  TO  * 

6021  ' 

6024  ASSIGN  tfPtgtmskl  TO  "TGT_MASK1 "S<Dcdi sk* 

6027  ENTER  G'Ptgtmsk  1 ,  1  ;  Tgt_mask  1  <  t  > 

6030  ASSIGN  l?Ptgtmskl  TO  * 

6033  ' 

6036  ASSIGN  (?Pterr  TO  "TERR_FCT"$<Dcdi  sk* 

6039  ENTER  G"Pterr  ,  1 ;  Terr  _f  actor  (*  > 

6042  ASSIGN  G-Pterr  TO  * 

6045  ' 

6048  ASSIGN  i?Pdust  TO  "DUST_ABRT" ?<Dcdi  sk* 

6051  ENTER  G'Pdust ,  1 :  Prob_dustabort  (  *) 

6054  ASSIGN  G'Pdust  TO  * 

6057  1 

6060  ASSIGN  G'Pclgpmsk  TO  "NS_CLGPMSK"?<Dcdl  sk* 
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a 


6063  ENTER  li'Pc  1  gpmsk  ,  1 ;  Cl  gp  msk  ns  I  *  ' 

6066  ASSIGN  li'Pcl  gpmsk  TO  * 

6069  ! 

6072  ASSIGN  li'Pc  1  gpmsk  TO  "GL_CLGPMSk  "  ?*Dcd  l  si-  * 

6075  ENTER  li'Pcl  gpmsk  ,  1 ;  Cl  gp_msk_g  1  <  X  > 

6078  ASSIGN  i?Pclgpmsk  TO  * 

6081  ! 

6004  ASSIGN  li'Pc  1  gpmsk  TO  "RV_CLGPMSK"S<Dcdi  sk* 

6087  ENTER  li'Pcl  gpmsk  ,  1 ;  Cl  gp_msk_rp  (  X  > 

6090  ASSIGN  i?Pc  1  gpmsk  TO  * 

6093  I 

6096  ASSIGN  li'Pprbdes  TO  "NOS_PRBDES"&Dcdi  sk* 

6099  ASSIGN  li'Pkpc  1  gp  TO  “NOS_KPCLGP"&Dcdi  sk* 

6102  ENTER  li'Pprbdes,  1 ;  Prob_dsg_ns  (X  ) 

6105  ENTER  i?Pkpcl  gp,  1 ;  Sskp_ns  <  X  > 

6108  ASSIGN  li'Pprbdes  TO  * 

6111  ASSIGN  li'Pkpc  1  gp  TO  * 

6114  1 

6117  ASSIGN  li'Pprbdes  TO  ”GLL_PRBDES"!<Dcdi  sk* 

6120  ASSIGN  ePkpclgp  TO  "GLL_KPCLGP"S<Dcdi sk* 

6123  ENTER  li'Pprbdes,  1 ;  Prob_dsg_g  1  <  X  > 

6126  ENTER  li'Pkpc  1  gp ,  1  j  Sskp_gl  <* ) 

6129  ASSIGN  li'Pprbdes  TO  * 

6132  ASSIGN  li'Pkpc  1  gp  TO  * 

6135  ' 

6138  ASSIGN  li'Pprbdes  TO  "RPV_PRBDES"!<Dcdi  sk* 

6141  ASSIGN  tiPkpclgp  TO  "RPV_KPCLGP"S<Dcdi  sk  * 

6144  ENTER  OPprbdes, 1 t prob_dsg_rp < * > 

6147  ENTER  li'Pkpc  1  gp  ,  1 ;  Sskp_rp  <*  ) 

6150  ASSIGN  li'Pprbdes  TO  X 
6153  ASSIGN  0Pkpcl gp  TO  * 

6156  IXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' 

6159  '  READ  HELICOPTER  FILES  AND  STORE  IN  ARRAYS  • 

6162  (XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX! 

6165  Side*  (  1  )  ="BL'' 

6168  Si de*  <2) ="RD" 

6171  FOR  H_si de= 1  TO  2 

ASSIGN  C-Helo_file  TO  Side*  <H_side>  S<"HELICHAR"S«Dcdi  sk* 

ENTER  l?Hel  a_f  i  I  e;  Hel  o_ehar  (  *  )  'READ  ALL  3  RECORDS  AT  THE  SAME  TIME 
ASSIGN  BHel o_+ i 1 e  TO  * 

FOR  1=1  TO  3 

FOR  Muni = 1  TO  3 

Hel o_l oad <H_si de, I , Muni ) =Hel o_char ( I , Muni +4)  'BASIC  LOAD 

NEXT  Mum 

Mast_mount <H_si de, I ) =Hel o_char ( I . 8)  '  O-MAST  MOUNT.  1 -NON  MAST  MT 

NEXT  I 

READ  IN  DATA  FROM  SENSOR  FILE  (FROB  OF  DETECTION  DATA) 

ASSIGN  li'Hel  o_f  i  1  e  TO  Side*  (H_si  de)  ?-"HELISENS"S,Dcdi  sk* 

FOR  1=1  TO  3  'RETRIEVE  SENSOR  RECORD  FOR  HELO  TYPE  I 

IF  HeIo_char (I. 1) >0  THEN 

ENTER  li'Hel  oil  1  e.  Hel  o_char  <  1 .  1  )  ;  Desc*  .P_det_in+  ( X )  ,P_det_tbar(»)  •  P 

<  X  )  , Rmax ( X ) 


6174 
6177 
6180 
6183 
6186 
6189 
6192 
6195 
6198 
6201  ! 
6204 
6207 
6210 
6213 
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6216  FOR  J  =  1  TO  8 

6219  Fd_r  mi  n  (H_si  de,  I ,  J )  =Rmi  n  ( J  > 

6222  Pd_rma>:  (H_si  de,  I ,  J  )  =Rmax  ( J  ) 

6225  NEXT  J 

6228  FOR  Jtarg=l  TO  5  ILOOP  ON  DETECTION  CATEGORIES 

6231  F'd_le_inl_a  <H_si  de,  I , Jt ar g ) =P_det _i nf  ( 1 , Jtarg.  1) 

6234  Pd_fe_inf_b  <H_side,  I,Jtarg)=P_det_inf  (2, Jtarg ,  1  ) 

6237  Pd_f e_i nf  _c  (H_si  de,  I ,  Jtarg )  =P_det_i  nf  (3,Jtarg,  1) 

6240  Pd_hd_inf_a(H_side,  I , Jtarg  >  =P_det_i  rvf  ( 1 ,  Jtarg,  2) 

6243  Pd_hd_i  ref  _b  <H_side,  I, Jtarg)  =P_det_i  rvf  (2, Jtarg, 2) 

6246  Pd_hd_inf_c  <H_side, I,Jtarg)=P_det_inf  <3, Jtarg, 2) 

6249  Pd_fe_tbar_a (H_si  de, I,Jtarg)=P_det_tbar(l,Jtarg, 1) 

6252  Pd_fe_tbar_b(H_side,  I,Jtarg>=F'_det_tbar(2,Jtarg,  1) 

6255  Pd_f  e_tbar _c  (H_si de, I.Jtarg) =P_det_tbar  <  3, Jtarg , 1 ) 

6258  Pd_hd_tbar_a  (H_si de, I.Jtarg) =P_det_tbar (I.Jtarg, 2) 

626 1  Pd_  hd_tbar  _b (H_si de , I , J t arg  >  =P_det_tbar (2, Jtarg, 2) 

6264  Pd_hd_tbar_c (H_side, I,Jtarg)=P_det_tbar (3, Jtarg, 2) 

6267  NEXT  Jtarg 

6270  END  IF 

6273  NEXT  I 

6276  ASSIGN  t?Helo_file  TO  * 

6279  !  READ  HELICOPTER  PERFORMANCE  FILE  (PROP  OF  KILL,  TIME  MASKED  b  EXPOSED) 
6282  ASSIGN  *Helo_file  TO  Si  de*  (H_si  de)  .V’HELIPERF"!<Dcdi  sk* 

6285  FOR  1=1  TO  2~ 

6288  IF  H_si de= 1  THEN  Hel o_mi s ( 1 , I > =B_hel o_msn ( I ) 

6291  IF  H  side=2  THEN  Hel o_mi s < 2 . I > =R_hel o_msn ( I > 

6294  NEXT  I~ 

6297  Hel o_mi s < 1 , 3) =0 
6300  Hel o_mi s (2. 3) =0 

6303  IF  H_si de=l  AND  B_bel o (3, 1 > >0  THEN  Hel o_mi s < 1 , 3) =B_hel o_msn ( 1 ) 

6306  IF  H_side=2  AND  R  helo<3. 1 ) >0  THEN  Helo  mi s (2. 3) =R_hel o_msn ( 1 ) 

6309  FOR  1=1  TO  3  "RETRIEVE  MUNITION ' RECORD  FOR  HELO  TYPE  I 

6312  FOR  Mun i = 1  TO  3 

6315  IF  Hel o_char ( I , Muni +1 ) >0  THEN  ! BE  SURE  THIS  POINTS  TO  A  RECOF 

6318  ENTER  i?He! o_f lie, Hel o_char ( I , Muni +1 ) ; DescS, Pk ( * ) ,pk_rmin'H_side. I 

uni),  Pk_r  ma>:  (H_si  de,  I ,  Mun  l  )  .  Np  (H_side,  I,  Muni  )  ,  Fm  (H_si  de,  I ,  Muni  >  .  Ti  m  me  (  *  ) 

6321  FOR  Jt.arg  =  l  TO  20  'LOOP  ON  TARGET  CATEGORIES 

6324  Pk_f e_a (H_si de, I , Muni .Jtarg ) =Pk ( 1 , Jtarg , 1 ) 

6327  Pk_f e_b (H~si de, I. Muni , Jtarg > =Pk (2, Jtarg , 1) 

6330  Pk _f e_c (H_si  de, I , Mum , Jtarg) =Pk (3, Jtarg, 1 ) 

6333  Pk_hd_a  <H_si de, I , Muni . Jtarg) =Pk ( 1 , Jtarg, 2) 

6336  Pk_hd_b(H_side, I, Muni .Jtarg  >  =Pk (2, Jtarg , 2) 

6339  Pk_hd_c  <H_si de, I , Muni , Jtarg) =Pk (3, Jtarg, 2) 

6342  NEXT  Jtarg 

6345  IF  Hel o_mi s <H_si de, I ) >0  THEN 

6348  Tm (H_si de, I , Muni ) =Ti m_me (Hel o_mi s (H_si de, I ) )  'TIME  MASKED 

6351  Te (H_s i de,  I ,  Muni ) =Ti m_me (Hel o_mi s (H_si de, I > +3)  'TIME  EXPOSED 

6354  END  IF 

6357  END  IF 

6360  NEXT  Muni 

6363  NEXT  I 

6366  ASSIGN  i?Helo  file  TO  * 
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6369 
6372 
6375 
637S 
6381 
6384 
6387 
6390 
6393 
6396 
6399 
6402 
6405 
6408 
6411 
6414 
6417 
)  ,Pk 
6420 
6423 
6426 
6429 
6432 
6435 
6438 
6441 
6444 
6447 
6450 
6453 
6456 
6459 
6462 
6465 
6468 
6471 
6474 
6477 
6480 
6483 
6486 
6489 
) 

6492 
6495 
6498 
6501 
6504 
6507 
65 1 0 
6513 
65 1 6 


Table  6-14.  Ground  combat  code  (continued). 

'  READ  HELICOPTER  PREFERENCE  FILES 

ASSIGN  G'Hel  o_f  i  1  e  TO  Side*  <H_si  de)  .VHELIPREF"!<Dcd i  sk* 

IF  H_si de= 1  THEN  Terr=R_terr“ 

IF  H_side«=2  THEN  Terr=B_terr 
FOR  M=1  TO  3  'LOOP  ON  MISSIONS 

ENTER  i?Helo_f  i  1  e,  M:  Pref  <  *  )  ,  PI  os  (  * ) 

FOR  Jtarg=l~TO  20 

Tgt_pref  <H_si de , M, Jtarg ) =Pr ef (Jtarg ) 

NEXT  Jtarg 

PI os_al pha <H_si de, M) »P1 os < Ter r )  !  PROB  OF  LOS  ALPHA. BETA  FOR  THIS 

PI  os_bet a  (H_si  de,  M)  =P1  os  ( Terr  ■♦-4 >  !  TYPE  OF  TERRAIN  INPUT 

NEXT  M~ 

ASSIGN  E'Hel o_f lie  TO  * 

!  READ  AD  PERFORMANCE  FILES 

ASSIGN  (?Hel  o_f  i  1  e  TO  Si  de*  (H_sl  de)  S*"ADPERFM&-Dcdi  sk* 

FOR  Iad  =  l  T0~7 

ENTER  8Helo_f i le,  lad; Pd_i nf _ad ( * >  ,  Pd_tbar  _ad  (  *  >  .  Rmin  <*>  ,  Rma«  <*)  , Pk_ad 
ad_rmi n  <H_si de,  lad)  ,Pk_ad_rmax  CH_si de,  lad)  ,  Pref  __ad  (  * ) 

FOR  Jmast*l  TO  2  ”  !L00P  ON  MAST /NON-MAST^ 

Pd_inf_ad_a  (H_si  de,  I  ad ,  Jmast )  »Pd_i nf _ad  ( 1 ,  Jmast ) 

Pd_inf  _ad_b  <H_si  de,  lad ,  Jmast  >  “Pd_i  nf  _ad  <2,  Jmast  > 

Pd_i  nf  _ad_c  (H_si  de,  lad ,  Jmast )  =Pd_i  n-f  _ad  <3,  Jmast  > 

Pd_t bar _ad_a  (H_ si de, lad, Jmast ) =Pd_tbar_ad ( 1 , Jmast ) 

Pd_tbar_ad_b (H_si de, lad, Jmast  >  =Pd_tbar_ad  <2. Jmast ) 

Pd_tbar_ad_c  (H_si  de,  lad ,  Jmast  >  =F’d_tbar  ad  (3,  Jmast  > 

Pk_ad_a  (H_si de,  lad  ,  Jmast )  =F'k_ad  (  1  .Jmast ) 

Pk_ad_b  <H_si de, lad, Jmast  >  =Pk_ad  <2, Jmast ) 

Pk_ad_c  <H_si de, I ad , Jmast  >  =Pk_ad (3, Jmast ) 

NEXT~Jmast 

FOR  J=1  TO  8  'LOOP  ON  ATMOSPHERES 

Pd_ad_rmin  (H_side ,  lad .  J  >  =Rmin  (0 ) 

Pd  ad  rmax  (H  side. lad. J > =Rmax (J > 

NEXT  J 

FOR  J=1  TO  3  'LOOP  ON  NO.  OF  HELOS 

Ad_pr ef (H_si de, I  ad , J  > =Pr ef  _ad ( J  > 

NEXT  J 
NEXT  lad 

ASSIGN  8Helo_Pile  TO  * 

'READ  AD  MISCELLANEOUS  FILES  (HOLDS  AMMO  DESCRIPTION) 

ASSIGN  <?Hel  a  file  TO  Side*  (H_si de) V  _ADAMMO"!<Dcdi  skS 
FOR  Iad=l  TO  7 

ENTER  <?Hel o_f i 1 e. lad; Rnd_wt (H_si de. lad ) , Rnds  <H_s i de. lad) , Fad (H_si de.  I 
NEXT  lad 

ASSIGN  8Helo_file  TO  * 

'READ  PROBABILITY  OF  DETECTION  CATEGORY  FILE 

ASSIGN  t?Helo_f  i  1  e  TO  Si  de*  ( H_si  de)  t<"PDCAT"!-Dcdi  sk* 

ENTER  8Hel o_f  i 1 e , 1 ; Cat20 ( * ) 

FOR  Jtarg»l~TO  20 

Pd _cat(H_side.Jtarg)=Cat20 (Jtarg) 

NEXT_Jtarg 

ASSIGN  @HeI o  file  TO  * 
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6519  'READ  DIRECT  FILE  PROBABILITY  OF  DETECTION  FILE 

6522  ASSIGN  6'Hel  o_-f  i  1  e  TO  Si  de*  <H_si  de )  S'"  _DF  SENS"?-Dcdi  sk* 

6525  FOR  1  =  1  TO  2  !LOOP  ON  SENSOR  TYPE  1 -OPT  I  CAL.  2-THERMAL 

652S  ENTER  lyHel  o_-f  i  1  e.  I;D+_det_irvf  <*)  ,  D-f  _det _tbar  (  *  )  .  Ran  n  (  *  )  .  Rma>:  <  *  ) 

6531  FOR  J=1  TO  2  1  1-MAST  MNT,  2-NON  MAST  MNT 

6534  Pd_irvf_dF_a<H_side, I .  J  >  =D+ _det_i  n-f (1. J) 

6537  Pd_inf_df_b<H_side,  I ,  J  >  =D+ ~det_i  ref  (2,  J) 

6540  Pd_i  n+  _df  _c  <H_side,  I ,  J  )  =D-f  _det_i  rrf  (3.  J ) 

*543  Pd_tbar_df _a  <H_side, I , J ) =D?_det_tbar <  1 .  J  ) 

6546  Pd_tbar_d'f  _b  <H_side,  I , J) =D+_det_tbar  <2.  J) 

6549  Pd_tbar_dF_c <H  side. I,J>=DF_det  tbar(3,J> 

6552  NEXT  J 

6555  FOR  J  =  1  TO  8  !LOOP  ON  ATMOSPHERES 

6558  Pd_dF _rmi n <H_side, I , J) =Rmi n  < J) 

6561  Pd_d-f  _rmax  <H_side.  I ,  J  )  =Rma>:  <J) 

6564  NEXT  J 

6567  NEXT  I 

6570  ASSIGN  @Helo_File  TO  * 

6573  ‘DIRECT  FIRE  MISCELLANEOUS  FILE  (HOLDS  MUNITION  DESCRIPTION) 

6576  ASSIGN  8Helo_file  TO  Side*  <H_si  de)  _DF_MUNI  "S<Dcdi  sk* 

6579  FOR  1=1  TO  2  ! LOOP  ON  MUNI  TYPE  1-GRND  MISSILE. 2-GRND  KINETIC  ENRGY 

6582  ENTER  6‘Hel  o_4  i  1  e,  I ;  Df _rnds_eng  (H_si de,  I)  .  F_dF  (H_si  de.  I ) 

6585  NEXT  I 

6588  ASSIGN  8Hela_file  TO  * 

6591  NEXT  H  side 
6594  RETURN 

6597  1 - 

6600  ! 

6603  Cneck_brk_.pt :  >  THIS  SBR  CHECKS  FDR  BATTLE  BREAKPOINTS 

6606  ! 

6609  Break_poi nt=0 
6612  ! 

6615  !  CALCULATE  CURRENT  FORCE  EFFECTIVENESS 

6618  IF  Ini t  _  b_ef  f =0  THEN 
6621  Curr  b_eH=0 
6624  ELSE 

6627  Curr  _b_e+-f  =B_cbt_eF 4  /  Ini  t_b_e+ -f 

6630  END  IF 

6633  IF  Ini t_r_ef f =0  THEN 
6636  Curr  r_ekf=0 
6639  ELSE 

6642  Curr  _r  ek  f  =R_cbt  _ek  -f  / 1  ni  t_r  ek-f 
6645  END  IF 
6648  1 

6651  !  CHECK  TO  SEE  IF  GAME  TURN  TIME  IS  EXCEEDED 

6654  IF  Btl _time>=Max_btl_time  OR  Btl_phase=3  THEN 
6657  Br eak_poi nt=3 
6660  IF  Bt T_t i me< 2430  THEN 

6663  PRINT  USING  F<nt 10; "SECTOR  BATTLE  ENDS" . Bt I _t l me. "  HRS” . "B/EFF:  ".Curr 

_ekk."R/EFF:  “ . Curr_r  ef f . "RANGE :  ".Btl  r g 
6666  ELSE 

6669  PRINT  USING  Fmt 10; "SECTOR  BATTLE  ENDS" . Bt 1 _t i me-2400. "  HRS". "B/EFF:  " 
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urr_b_e44  ,  "R/EFF  :  “  ,  Cur  r_r  _e4  4  ,  “RANGE:  ".Btl  r  g 

6672  ~  END  IF 

6675  GOTO  End_brk_pt 

6678  END  IF 

6681  Fmt 10: IMAGE  / . 3X , 25A. 2X , 4Z . 4A . 2X . 7A. ID. 2D. 2X . 7A. 1 D. 2D. 3X . 7A, 6D 
6684  ! 

6687  !  CHECK  TO  SEE  IF  CASUALTY  BREAKPOINT  IS  EXCEEDED 

6690  IF  Curr_b_e44 <=B_cas_break  THEN 
6693  Break_point*l 
6696  IF  BtF_time<2430  THEN 

6699  PRINT  USING  Fmt lO: “BLUE  BREAKS  FOR  LOSSES". Btl  time."  HRS" , “B/EFF: 

rr_b_ef4, "R/EFF:  ", Curr_r_e44 . "RANGE:  ".Btl  rg 
6702  ELSE 

6705  PRINT  USING  Fmt 10; "BLUE  BREAKS  FOR  LOSSES" . Bt 1 _t i me-2400. "  HRS"."B/EF 

",Curr_b_e44, "R/EFF:  ", Curr_r_e44 , "RANGE:  ".Btl_rg 
6708  END  IF 
6711  END  IF 

6714  IF  Curr_r _e44<=R_cas_break  THEN 

6717  Break_point“2 

6720  IF  Bt 1 _t i me< 2430  THEN 

6723  PRINT  USING  Fmt 10; "RED  BREAKS  FOR  LOSSES" . Bt 1 _t i me, "  HRS". "B/EFF:  ".C 

r_b_e44 , "R/EFF:  M.Curr_r  e44, "RANGE:  ",Btl_rg 
6726  ELSE 

6729  PRINT  USING  Fmt 10; "RED  BREAKS  FOR  LOSSESS" , Btl _t i me-2400. "  HRS"."B/EF 

",Curr_b_e44, "R/EFF;  ",Curr_r  e44, "RANGE:  ".Btl  rg 
6732  END  IF 
6735  END  IF 
6738  ! 

6741  !  CHECK  TO  SEE  IF  RANGE  BREAKPOINT  IS  EXCEEDED 

6744  IF  Bt 1 _rg< =B_r q_br eak  THEN 
6747  Break_point=l 
6750  IF  Bt T_t i me< 2430  THEN 

6753  PRINT  USING  Fmt 10: "BLUE  BREAKS  FOR  RANGE" . Bt 1 _ti me. "  HRS". "B/EFF:  ".C 

r_b_e44. "R/EFF:  " , Curr_r _e4 4 . "RANGE:  ".Btl_rg 
6756  ELSE 

6759  PRINT  USING  Fmt 10; "BLUE  BREAKS  FOR  RANGE" . Btl  time-2400. "  HRS". "B/EFF 

“,Curr_b_e44, "R/EFF:  ".Curr  r_e44 , "RANGE:  ",Btl_rg 
6762  END  IF 
6765  END  IF 

6768  IF  Bt 1 _rg< =R_rg_br eak  THEN 

6771  Break_poi nt=2 

6774  if  Bt I_t i me< 2430  THEN 

6777  PRINT  USING  Fmt 10: "RED  BREAKS  FOR  RANGE" , Btl _ti me. "  HRS". "B/EFF:  ".Co 

_b_e44 , "R/EFF:  " , Curr  r_e44 , "RANGE:  ",Btl  rg 
6780  ELSE 

6783  PRINT  USING  Fmt 10: "RED  BREAKS  FOR  RANGE" , Bt 1 _t i me-2400.  "  HRS". "B/EFF: 

.Curr_b_e44, "R/EFF:  Curr_r_e44 . "RANGE:  ",Btl_rg 

6786  END  IF 

6789  END  IF 

6792  1 

6795  End_brk_pt:  ' 

6798  RETURN 
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6001 

6004 

6807 

6810 

6013 

6816 

6819 

6822 

6825 

6828 

6831 

6834 

6837 

6840 

6843 

6846 

6849 
6052 
6855 

6850 
6861 
6864 
6867 
6870 
6873 
6876 
6879 
6882 
6885 
6888 
68V 1 
6894 
6897 
6900 
6903 
6906 
6909 
6912 
6915 
6918 
6921 
6924 
6927 
6930 
6933 
6936 
6939 
6942 
6945 
6948 
6951 
6954 


Apport^wri_loss:  !  THIS  SBR  WRITES  UNIT  STATUS  TO  HISTORY  FILE 

t 

Ri  f  _1 ef t=0 
Bi  f  _1  ef  t*=0 
FOR  1=1  TO  15 
FOR  J=1  TO  5 

Ri  f  _lef t=Rif  _lef t+Rif  _msn_tons  ( I ,  J ) 

&i*_left=Bif_left+Bif  msn_tons  ( I ,  J ) 

NEXT  J 
NEXT  I 

I 

IF  Ri  f _lef t<=0  THEN  Rif_left=0 
IF  Bi  f  _1  ef  t<=0  THEN  Bif~left=0 
Bi f _ammo_used=Bi f _ammo_*v-Bif _lef t 
Ri f _ammo_used=Ri f _ammo_sv-Ri f  _1 eft 

I 

!  WRITE  OUT  BLUE  UNIT  DATA 
« 

FOR  1=1  TO  No_b_unit 

ENTER  t?Uni tpath.  B_uni t  no(I);N'») 

FOR  J=1  TO  70 

N  ( J )  =N  <  J )  —  (Sys_*-.ot  (1 . J)-Sys_tot  (2.  J)  )  *B_con  ( I .  J) 

NEXT  J 

I 

IF  L*df  _ammo_sv=0  THEN 
GOTO  B  if  ammo 
ELSE 

_ammo_uaed«=  (Bdf _ammo_sv-B_df _ammo) t8_uni t ( 1 , 72) /Bdf  _ammo_sv 
N ( 131 ) =N ( 131 ) -6_df  ammo  used 
IF  NI131X0  THEN  n7i31>=0 
N  <  139 )  =N  ( 139)  -*-B_df  _ammo_used 
END  IF 
B_if_ammo:  ! 

IF  Bi f _ammo_sv<=0  THEN 
GOTO  B_ad  ammo 
ELSE 

If _used= (Bi f _ammo_used) *B_uni t ( 1 , 73) /Bi  f _ammo  sv 
N  < 132) =N ( 132) —If  _used 
IF  N <  132X0  THEN  N<132)=0 
N(140)=N( 140) +If_used 
END  IF 
B_ad_ammos  ! 

IF  Bad_ammo_sv<=0  THEN 
GOTO  End  b  ammo 
ELSE 

B_ad_used= (Bad  ammo_sv-B_ad_ammo> *B  uni t ( I . 74) /Bad  ammo_sv 
N ( 1 33) =N ( 1 33) -B  ad.used 
IF  N(  133X0  THEN  N<133)=0 
N ( 1 4 1 >  =N (141) +B  ad  used 
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6957 
6960 
6963 
6966 
6969 
6972 
6975 
6978 
6981 
6984 
6987 
6990 
6993 
6996 
6,999 
7002 
7005 
7000 
7011 
7014 
7017 
7020 
7023 
7026 
7029 
7032 
7035 
7038 
7041 
7044 
7047 
7050 
7053 
7056 
7059 
7062 
7065 
7068 
7071 
7074 
7077 
7080 
7083 
7086 
7089 
7092 
7095 
7098 
7101 
7104 
7107 
71  10 
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END  IF 

End_b_ammo:  ! 

OUTPUT  <?Uni  tpath ,  B_uni  t  _no  <  I )  ;  N  (  *  > 

NEXT  I 

I 

•  WRITE  OUT  RED  UNIT  DATA 

I 

FOR  I“1  TO  No_r_unit 

ENTER  <?Unitpath,R  uni  t_no  <  I )  ;  N  ( *  > 

FOR  J-l  TO  70 

N  < J ) =N  <  J ) - <Sys  tot  <3, J ) -Sys  tot (4, J ) ) *R_con < I . J ) 

NEXT  J 

I 

IF  Rdf _ammo_sv<»0  THEN 
GOTO  R_if_ammo 
ELSE 

R_df _ammo_used“ (Rdf _ammo_sv-R_df  _ammo> *R_uni t ( 1 , 72) /Rdf _ammo_6v 
N< 131 ) “N  < 131 > -R_df _ammo_used 
IF  N < 131 ) <0  THEN  n7i31>-0 
N  (139)  *N  ( 139)  ■*-R_df  _ammo_u*ed 
END  IF 
R_if_ammo:  t 

IF  Ri f _ammo_sv<=0  THEN 
GOTO  R_ad_ammo 
ELSE 

If _used“ (Rif _ammo_used >  *R_uni t  < 1 . 73) /Ri f _ammo_sv 
N  ( 1 32  >  *N  <  1 32 )  —  I  f  _used 
IF  N<  132X0  THEN  N<132>-0 
N ( 1 40 )  =N <140)-*-If  used 
END  IF 
R_ad_ammo:  ! 

IF  Rad_ammo_sv=0  THEN 
GOTO  End  red  ammo 
ELSE 

R_ad_used=  <Rad_ammo_sv-R_ad_ammo>  *R_uni t ( 1 . 74) /Rad_ammo_sv 
N<133)-N<133) -R_ad_used 
IF  N < 133) <0  THEN  n7i33>»0 
N(141)-N(141)+R  ad  used 
END  IF 

End_red_ammos  ! 

OUTPUT  8Uni tpath. R_uni t_no ( I ) ; N ( * ) 

NEXT  I 

I 

!  UPDATE  KILLER-VICTIM  TABLES 
ENTER  ©Kvpath , 1 ; Ci _kv_b ( * > 

ENTER  <?Kvpath,  2;  Ci  _kv  r  it) 

FOR  1-1  TO  6 
FOR  J=1  TO  70 

Ci  _kv_b  ( I ,  J  >  =Ci  _kv  b  ( I ,  J  >  ■*-Kv_b  <I,J) 

Ci _kv_r ( I. J)=Ci~kv  r < I . J  >  +Kv_r < I . J ) 

NEXT  J 
NEXT  I 
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7113  OUTPUT  PKvpath. l:Ci_kv  b <*> 

7116  OUTPUT  ©Kvpath .  2;  Ci  _ kv_r ( * ) 

7119  ' 

7122  !  UPDATE  HELICOPTER  FILES 

7125  ENTER  8Hel opath , 1 ; Ci _hel o_b  ( * ) 

7128  ENTER  <?Hel opath , 2; Ci _hel o_r < * ) 

7131  FOR  1*1  TO  3 
7134  FOR  J  =  1  TO  6 

7137  Ci _hel  o_b  ( I ,  J  > -Ci _hel o_b ( I , J  > +B_hel o  <  I ,  J  > 

7140  Ci _hel  o_r ( I , J ) -Ci _helo_r (I ,  J  >  +R_hel o ( I , J  > 

7143  NEXT  J 
7146  NEXT  I 

7149  OUTPUT  l?Hel  opath ,  l;Ci_helo_b  ( *  > 

7152  OUTPUT  (?Hel opath,2:Ci_helo_r  ( *  > 

7155  ! 

7158  RETURN 
7161  1 

7164  ! - 

7167  ! 

7170  Tall  y_cbt_e-f  f :  !  THIS  SBR  CALCULATES  THE  ADJUSTED  FIREPOWER  SCORE 

7173  • 

7176  Prev30_b_e-f-f=8_cbt_e-f * 

7179  Prev30_r_e-f t=R_cbt_et * 

7182  B_cbt_e+-f  =0 
7185  R_cbt_e-f -f -0 
7188  FOR  1=1  TO  70 

7191  B_cbt_et -f =B_cbt_e-f -f +Sys_tot  (2,1)  *Sys_e+'f  (1,1) 

7194  R_cbt_et * =R_cbt_et i +Sys_tot (4,1) *Svs_ett (2,1) 

7197  NEXT  I 
7200  , 

7203  RETURN 
7206  ' 

7209  1 - 

7212  • 

7215  Hel o_arr i ve:  !  THIS  SBR  CALCULATES  THE  ATK  HELOS  AVAILABLE  THIS  PERIOD 

7218  ! 

7221  *  THIS  SBR  ASSUMES  AN  ON-STATION  TIME  OF  30  MINUTES  FOR  ATK  HELOS  AND 
7224  1  90  MINUTE  CYCLE  TIME.  A  SINGLE  AH  CAN  ATTACK  ONLY  ONCE  EVERY  2  HOUF 
7227  ' 

7230  UNITIALIZE  BOTH  RED  AND  BLUE  HELOS 

7233  Bah 1=0 

7236  Bah2=0 

7239  Bsct=0 

7242  Rah 1-0 

7245  Rah2=0 

7248  Rsct=0 

7251  ! 

7254  Set _bl ue_hel os :  •  SCHEDULE  BLUE  ATTACK  HELICOPTERS 

7257  ' 

7260  •  CHECK  DELAY  FACTORS 

7263  Ear  1 i est _t i me=0 

7266  IF  B_hel o_del ay >0  THEN 
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7269  Del ay_t i me=B_hel o_del  ay 

7272  GOSUB  ChB_del ay_t i me 
7275  END  IF 
7278  ■ 

7201  !  IF  DELAYS  ARE  IN  EFFECT  NO  ATK  HELOS  ARRIVE 

7284  IF  Bt 1 _t i me< =Ear 1 i est  time  OR  ( Bt 1 _r g >B_hel o_r g_del ay  AND  B  hel o_r a  del av 

0)  OR  Vis=4  THEN 

7287  Bah  1=0 

7290  Bah2=0 

7293  Bsct=0 

7296  GOTO  Set_red_hel os 

7299  END  IF 

7302  ! 

7305  Set _b 1 ue_ah 1 :  !  SCHEDULE  BLUE  #1  ATK  HELOS 

7308  ! 

7311  Helo_al i ve=B_hel o (1,1) -B_hel □ ( 1 , 2) 

7314  IF  Helo_aliveOO  THEN  GOTO  Set_blue_ah2 

7317  Set _bah 1 _cel  1 : Hel o=Hel o_al i ve*I/B_hel o <1.3)  !  OA  RATE=0.83 

7320  IF  Hel o< 1  AND  B_hel o < 1 , 3) >1  THEN  'DECREASE  #  OF  CELLS  &  TRY  SETTING  AGA I 

7323  B_helo( 1,3) =B_heI o  <1,31-1 

7326  B_helo (3, 3) =B_hel o ( 1 , 3)  !  SCTS  HAVE  SAME  CELL#  AS  AH#1 

7329  GOTO  Set _bah 1 _cel 1 
7332  ELSE 

7335  IF  Helo<l  AND  B_hel o ( 1 , 3) = 1  THEN  'NO  USE.  NOT  ENOUGH  HELOS 

7338  Bah  1 =0 

7341  GOTO  Set_blue_ah2 

7344  END  IF 

7347  END  IF 

7350  1 

7353  1  SCHEDULE  THE  ARRIVAL  TIME  OF  THE  CELL 

7356  SELECT  B_helo(1.3) 

7359  CASE  =1 

7362  IF  Last_bah l_seg=0  OR  Ti me_seg-Last_bah 1 _seg=4  THEN 

7365  Bah  1 -He 1 o 

7368  Last  bah l _seg=Ti me_seg 

7371  ELSE 

7374  Bah  1=0 

7377  END  IF 

7380  CASE  =2 

7383  IF  Last_bah 1 _seg=0  OR  Ti me_seg-Last_bah l_seg=2  THEN 

7386  Bahl=Helo 

7389  Last_bah 1 _seg=Ti me_seg 

7392  ELSE 

7395  Bah  1=0 

7398  END  IF 

7401  CASE  =3 

7404  IF  Last_bahl_seg=0  THEN 

7407  Bah l=Hel o 

7410  Last_bah 1 _seg=Ti me_seg 

7413  8ahl_seg=l 

7416  GOTO  Set_bl ue_ah2 

7419  END  IF 
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7422  IF  Bah  1 _seg<3  THEN 

7425  Bahl=Helo 

7428  Bah  1 _seg=Bah 1 _seg+l 

7431  Last_bahl_seg=Time_seg 

7434  ELSE 

7437  Bah  1=0 

7440  Bahl_seg=C> 

7443  END  IF 

7446  CASE  =4 

7449  8ahl=Hel o 

7452  Last_bahl  seg=Time  seg 

7455  END  SELECT 

7458  ! 

7461  Set_bl ue_ah2:  !  SCHEDULE  BLUE  #2  ATK  HELOS 
7464.  ! 

7467’ Hel o_al i ve=B_hel o  <2, 1 ) -B_helo (2. 2) 

7470  IF  Hel o_al i ve<«0  THEN  GOTO  Set_blue_sct 

7473  Set_bah2_cel 1 : Hel o=Hel o_al i ve* 1 /B_hel o (2. 3 >  !  OA  RATE=0.83 

7476  IF  Helo<I  AND  B_h*lo <2, 3> >1  THEN 

7479  B_hel o (2.  3) =B_hel o <2 , 3) — 1 

7482  GOTO  Set_bah2_cel 1 

7485  ELSE 

7488  IF  Hel o< 1  AND  B_hel o <2, 3) = 1  THEN 

7491  Bah 2=0 

7494  GOTO  Set_b 1 ue_sct 

7497  END  IF 

7500  END  IF 

7503  ‘ 

7506  !  SCHEDULE  THE  ARRIVAL  TIME  OF  THE  CELL 

7509  SELECT  B_helo<2,3) 

7512  CASE  *1 

7515  IF  Last_bah2_seg=0  OR  Ti me_seg-Last _bah2_seg=4  THEN 

7518  Bah2=Helo 

7521  Last_bah2_seg=Ti me  seg 

7524  ELSE 

7527  Bah2=0 

7530  END  IF 

7533  CASE  =2 

7536  IF  Last_bah2_seg=0  OR  Time_seg-Last_bah2_seq=2  THEN 

7539  Bah2=Helo 

7542  Last_bah2_seg=Ti me  seg 

7545  ELSE 

7548  Bah2=0 

7551  END  IF 

7554  CASE  =3 

7557  IF  Last_bah2_seg=0  THEN 

7560  Bah2=Helo 

7563  Last_bah2_seg=Time_seg 

7566  Bah2_seg=l 

7569  GOTO  Set_blue_sct 

7572  END  IF 

7575  IF  Bah2_seg<3  THEN 
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7578  Bah2=Helo 

7581  Bah2_seg=Bah2_seg+l 

7584  Last_bah2_seg=Ti meseg 

7587  ELSE 

7590  Bah2=0 

7593  Bah2  seg=0 

7596  END  IF~ 

7599  CASE  -4 

7602  Bah2-Helo 

7605  Last  bah2  seg=Time_seg 

7608  END  SELECT 

7611  ! 

7614  Set_blue  set:  !  SCHEDULE  BLUE  SCOUT  HELOS  CHANGED  12/11/86  DWS 

7617  'GOTO  9188 
7620  ! 

7623  ! IF  Bahl-0  THEN  !  NO  SCOUTS  FLOWN  IF  NO  BLUE  AH1  FLOWf 

7626  !  Bsct-0 

7629  !  GOTO  Set_red_hel as 

7632  !END  IF 

7635  Helo_al  i  ve>=B_helo  (3,  1 )  — B_helo  (3,  2> 

7638  IF  Helo_alive=0  THEN  Set_r ed_hel os 

7641  Set_bsct_cel  1 : Hel o=Hel o_alive*l/B  helo<3.3>  «  OA  RATE=0.83 

7644  IF  Bah  1 >0  THEN  !SCOUTS  LASING~FOR  AH1 

7647  IF  Hel o< 1  OR  Helo<.4*Bahl  THEN 

7650  Bsct*=0 

7653  PRINT 

7656  PRINT  "  INSUFFICIENT  SCOUTS  TO  CONTINUE.  REMAINING  AH64  WILL  OPER< 

AUTONOMOUS" 

7659  GOTO  Set  red  hel os 

7662  ELSE 

7665  IF  Hel o>Bah 1 / 1 . 667  THEN  Hel o=Bah 1 / 1 . 667  !  USE  3:5  MIX  FOR  SCT:< 

7668  Bsct»Helo 

7671  END  IF 

7674  ELSE  'SCOUTS  WILL  FIRE  ON  ITS  OWN 

7677  IF  B_helo< 1 , 1 ) >0  THEN  ! SCOUTS  ARE  LASING,  BUT  NOT  THIS  30  MIN  PERU 

7680  Bsct“0 

7683  GOTO  Set_red_hel os 

7686  END  IF 

7689  IF  Hela< 1  AND  B_hel o ( 3. 3) >1  THEN 

7692  B_hel o (3, 3) *B_hel o  <  3,  3) -1  ! DECREASE  4  OF  CELLS  BY  1 

7695  GOTO  Set_bsct_cel 1 

7698  ELSE 

7701  IF  Helo< 1  AND  B_hel o (3. 3) = 1  THEN 

7704  Bsct=0 

7707  GOTO  Set_red  hel os 

7710  END  IF 

7713  END  IF 

7716  !  SCHEDULE  THE  ARRIVAL  TIME  OF  THE  CELL 

7719  SELECT  B  hel o (3. 3) 

7722  CASE  -1 

7725  IF  Last_bsct_seg=0  OR  Ti me_seg-Last_bsct_seg=4  THEN 

7728  Bsct=Helo 
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7731  Last_bsct_seg=Ti me_seg 

7734  ELSE 

7737  Bsct=0 

7740  END  IF 

7743  CASE  =2 

7746  IF  Last_bsct_seg=0  OR  Time_seg-Last_bsct  seq=2  THEN 

7749  Bsct=Helo 

7752  Last  bsct_seg=Time  seg 

7755  ELSE 

775B  Bsct=0 

7761  END  IF 

7764  CASE  =3 

7767  IF  Last_bsct  seg=0  THEN 

7770  8sct=Helo 

7773  Last_bsct_seg=Time_seg 

7776  Bsct_seg=l 

7779  GOTO  Set_red_hel os 

7782  END  IF 

7785  IF  Bsct_seg<3  THEN 

7788  Bsct=Helo 

7791  Bsct_seg*8sct_seg-*-l 

7794  Last_bsct_seg=Time_seg 

7797  ELSE 

7800  Bsct=0 

7803  Bsct_seg=0 

7806  END  IF 

7809  CASE  =4 

7812  Bsct=Helo 

7815  Last_bsct  seg “Time  seg 

7818  END  SELECT 

7821  END  IF  ! END  OF  CHANGES  12/11/86  DWS 

7824  Set  red  helos:  !  SCHEDULE  RED  ATTACK  HELICOPTERS 

7827  ! 

7830  !  CHECK  DELAY  FACTORS 

7833  Ear  1 i est_t i me=0 

7836  IF  R_helo_del ay >0  THEN 

7839  Del  ay_ti  me*=R_hel  o_del  ay 

7842  GOSUB  Chk_del ay_t i me 

7845  END  IF 

7848  ! 

7851  !  IF  DELAYS  ARE  IN  EFFECT  NO  ATK  HELOS  ARRIVE 

7854  IF  Btl  t i me< “Ear  1 i est  time  OR  <Btl_rg>R  hel o_r g_del ay  AND  R_hel o_r g_del av 
O)  OR  Vis-4~THEN 
7857  Rah  1=0 

7860  GOTO  End_helo_arri ve 
7863  END  IF 
7866  • 

7869  Set_red_ah 1 :  !  SCHEDULE  RED  #1  ATK  HELOS 

7872  ' 

7875  Hel o_al i ve=R_helo < 1,  1 > -R_hel a ( 1 , 2) 

7878  IF  Hel o_al i ve<  =0  THEN  GOTO  Set_red_ah2 

7881  Set_r ah l_cel l : Helo=Hel o_al i ve* 1 /R_hel o < 1 , 3)  1  OA  RATE=0. 75 
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7884  IF  HelcKl  AND  R_hel o ( 1 . 3) >1  THEN 
7887  R_helo< 1 , 3) =R_hel o ( 1 , 3) -1 
7890  GOTO  Set_rahl_cel  1 
7893  ELSE 

7896  IF  HelcKl  AND  R_helo < 1 . 3) =1  THEN 

7899  Rah  1-0 

7902  GOTO  End_helo_arr i ve 

7905  END  IF 

7908  END  IF 

7911  ! 

7914  !  SCHEDULE  THE  ARRIVAL  TIME  OF  THE  CELL 

7917  SELECT  R_helo<1.3> 

7920  CASE  -1  ,  , 

7923  IF  Last_rahl_seq=0  OR  Ti me_seg-Last_r ah  1 _seg- 

7926  Rahl=Hel o 

7929  Last_rahl _seg=T i me_seg 

7932  ELSE 

7935  Rah  1=0 

7938  END  IF 

7941  CASE  -2 

7944  IF  Last_rahl_seg=0  OR  Ti me_seg-Last _r ah  1 _seg 
7947  Rahl-Helo 

7950  Last_rahl_seg=Time_seg 

7953  ELSE 

7956  Rah  1=0 

7959  END  IF 

7962  CASE  =3 

7965  IF  Last_rahl_seg=0  THEN 
7968  Rahl-Helo 

7973  Last_rabl _seg=T i me_seg 

7974  Rahl_seg=l 

7977  GOTO  Set_red_ah2 

7980  END  IF 

7983  IF  Rah  1 _seg<3  THEN 

7986  Rahl-Helo 

7989  Rahl_seg=Rahl_seg-*-l 

7992  Last_rahl_seg=Time_seg 

7995  ELSE 

7998  Rah  1=0 

8001  Rah l_seg=0 

8004  END  IF 

8007  CASE  =4 

8010  Rahl-Helo 

8013  Last _r ah  1 _seg  =  T i me_seg 

8016  END  SELECT 

8019 

8022  Set_red_ah2s  '  SCHEDULE  RED  #2  ATK  HELOS 
8025  1 

8028  H«lo_aI i ve=R_hel o <2. 1 ) -R_hel o < 2 , 2 ) 

8031  IF  Hel o_al i ve<«0  THEN  Set_red_sct 

8034  Set  _rah5  el  1 : Hel o=Hel o_al  i ve* 1 /R_hel o (2. 3 ) 

8037  IF  Hel o<  AND  R_hel o <2, 3) > 1  THEN 


4  THEN 


=2  THEN 


ROB 
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8040  R_hel o (2 . 3) =R_hel o ( 2  3>-l 

8043  GOTO  Set_rah2_cel 1 
8046  ELSE 

8049  IF  HeloCl  AND  R_hel o < 2. 3) = 1  THEN 

8052  Rah2*=0 

8053  GOTO  Set_red  set 

8058  END  IF 

8061  END  IF 

8064  SELECT  R  helo<2,3) 

8067  CASE  -1 

8070  IF  Last_rah2_seg=0  OR  Ti me_seg-Last_rah2_seg=4  THEN 

8073  Rah2“Hel o 

8076  Last  rah2  seg=Time  seg 

8079  ELSE 

8082  Rah2«0 

8085  END  IF 

8088  CASE  -2 

8091  IF  Last_rah2_seg»0  OR  Ti me_seg-Last_rah2_seg*2  THEN 

8094  Rah2*Helo 

8097  Last _r ah 2  seg“Time  seg 

8100  ELSE 

8103  Rah2«0 

8106  END  IF 

8109  CASE  «3 

8112  IF  Last_rah2_seg=0  THEN 
8115  Rah2«Helo 

8118  Last_rah2_seg=Ti me_seg 

8121  Rah2%eg«=T 

8124  GOTO  Set  red_sct 

8127  END  IF 
8130  IF  Rah2_seg<3  THEN 
8133  Rah2*=Helo 

8136  Rah2_seg=Rah2_seg+l 

8139  Last  rah2  seg=Ti me_seg 

8142  ELSE 
8145  Rah2-0 

8148  Rah2_seg=0 

8151  END  IF 
8154  CASE  -4 
8157  Rah2-Helo 

8160  Last_rah2_seg=Ti me_seg 

8163  END  SELECT 
8166! 

3169  Set_red_scts  '  SCHEDULE  RED  SCOUT  HELOS  NEW  CODE  12/11/86  DWS 

8172  He! o_al i ve«R_hel  o<3.  l>-R_helo(3,2> 

8175  IF  Helo_alive“0  THEN  End_hel o_arr i ve 

8178  Set_rsct_cel  1  :  Hel o=Hel  o_al  i ve* 1 /R_hel o ( 3, 3)  !  OA  RATE=0.83 

8181  IF  Rahl >0  THEN  ! SCOUTS  LASING  FOR  AH1 

8184  IF  Hel o< 1  OR  Helo<.4*Rahl  THEN 
8187  Rsct“0 

8190  PRINT 

8193  PRINT  " 


INSUFFICIENT  SCOUTS  TO  CONTINUE 


REMAINING  RED  AH1S  KILL 


RATE 
8196 
8199 
8202 
8205 
8208 
8211 
8214 
8217 
8220 
8223 
8226 
8229 
8232 
8235 
8238 
8241 
8244 
8247 
8250 
8253 
8256 
B259 
8262 
8265 
8268 
8271 
8274 
8277 
8280 
8283 
8286 
8289 
8292 
8295 
8298 
2301 
8304 
8307 
83  1 0 
83  ir¬ 
es  16 

8319 
8322 
8325 
8328 
833 1 
8334 
8337 
8340 
8343 
8346 


Table  6-14.  Ground  combat  code  (continued). 

AUTONOMOUS" 

SOTO  End_helo_cirnve 
ELSE 

IF  Helo  Rahl/1 .667  THEN  Hel o=Rah 1 / 1 . 667  '  USE  3:5  MIX  C0R  SCT 

Rsct=Hel o 
END  IF 

ELSE  'SCOUTS  WILL  FIRE  ON  ITS  OWN 

IF  HelcK  1  AND  R_hel o <3. 3) >1  THEN 

R_helo<3,3) =R_hel o ( 3 , 3) - 1  'DECREASE  #  OF  CELLS  BY  1 

GOTO  Set_r sct_cel 1 
ELSE 

IF  Helot  1  AND  R_hel o <3. 3) - 1  THEN 
Rsct=0 

GOTO  End_helo_arrive 
END  IF 
END  IF 

!  SCHEDULE  THE  ARRIVAL  TIME  OF  THE  CELL 
SELECT  Rhel o (3,3) 

CASE  =1 

IF  Last_rsct_seg=0  OR  Ti me_seg-Last_rsct_seg=4  THEN 
Rsct=Hel o 

Last  _r sc t_seg=T i me_seg 
ELSE 

Rsct=0 
END  IF 
CASE  =2 

IF  Last_rsct_seg=0  OR  Ti me_seg-Last_r set _seg=2  THEN 
Rsct=Hel o 

Last  _r sct_seg=T i m@_seg 
ELSE 

Rsct=0 
END  IF 
CASE  =3 

IF  Last_rsct_seg=0  THEN 
Rsct=Helo 

Last_r sct_seg=T 1 m©_seg 
Rsc  t  _seg= 1 

GOTO  End_helo_arrive 
mp  IF 

-IF  Rsct_seg<3  THEN 
“  *  Rsct=Hel o 

Rsct_seg=Rsct_seg+l 
Last_rsct_seg=Time_seg 
ELSE 
Rsct=0 
Rsct_seg=0 
END  IF 
CASE  =4 

Rsct=Hel o 

Last  _r set  _seg  =  Ti me_seg 
END  SELECT 

END  IF  'END  OF  NEW  CODE  12/11/86  DWS 
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8349  End_helo_arrive:  1  UPDATE  SORTIE  NUMBERS 
8352  B_hel o  ( 1 , 6) =B_hel o  < 1 , 6  > +  Bah 1 
8355  B_helo<2,6)  =B_.hel o  (2, 6)  +Bah2 
8358  B_hel o  ( 3, 6) =B_helo(3,6)+Bsct 
8361  R_hel  o  <  1 , 6 )  =R_hel  o  (1,6)  ■♦-Rah  1 
8364  R_helo (2.6) =R_hel o<2,6) +Rah2 
8367  R_helo(2.6)=R_helo(2.6> +Rsct 
8370  ( 

8373  RETURN 
8376  ! 

8379  ! - 

8382  ! 

8385  Chk  delay.time:  !  THIS  SBR  CALCULATES  DELAY  TIMES 

8388  ! 

8391  Int_ti me=INT (St_t i me/lOO) *100 
8394  Int_delay=I NT ( Del ay_t i me/ 100) *  100 
8397  Mi nute=  (St _t  i  me  MOD  100)  *■  (Del  ay_time  MOD  100) 

8400  SELECT  Minute 
8403  CASE  “0 
8406  Del  ay  ..mi  nute=0 

8409  CASE  =30 
8412  Del ay_mi nute=30 
8415  CASE  =60 
8418  Del ay_mi nute=100 
8421  END  SELECT 
8424  ! 

8427  '  SET  EARLIEST  ARRIVAL  TIME 

8430  Earliest  1 1  me= I nt _t i me+Int_del ay+Del ay  mi  nut e 
8433  ! 

8436  RETURN 
8439  ! 

8442  ?  - - — - 

8445  ! 

8448  Ammobr eakdown :  1  THIS  SBR  APPORTIONS  AMMO  FOR  USE  BY  WEAPONS  SYSTEM 

8451  ! 

8454  FOR  I kp= 1  TO  15 
8457  Sys_ammo(lkp)=0 
8460  NEXT  Ikp 
8463  I f _ammo_di vi sor =0 

8466  !  APPORTION  IF  AMMO  AMONG  ARTY,  MORTARS.  AND  MLRS 

8469  FOR  Jl=l  TO  15 

8472  Sys_ammo ( J 1 ) =N( Jl+20) *Ar ty_30mi n_wt (Si de, J1 ) 

8475  1 1  _ammo_di  vi  sor  =  I  f  _ammo_di  visor  +Sys_am<Tio  ( J  1  ) 

8478  NEXT  J1 

8481  FOR  Jl=l  TO  15 

8484  IF  I -f  _ammo_d  i  vi  sor  =0  THEN 

8487  I-f  _ammo  ( J  1 )  =0 

8490  ELSE 

8493  I  +  ammo  ( J  1 )  =N  ( 1 32)  *Sys_ammo  ( J  1 )  / 1 -f  _ammo_di  vi  sor 

8496  END  IF 
8499  NEXT  J 1 
8502  ' 
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8505  RETURN 
8508  ! 

8511  !  - 

8514  ! 

8517  Artv_arr i ve:  !  THIS  SBR  CALCULATES  THE  AMOUNT  OF  INCOMING  ARTILLERY  F: 

8520  ! 

8523  \  SET  VISIBILITY  FOR  1007. —  WILL  BE  DEGRADED  IF  SMOKE  IS  FIRED 

8526  FOR  1=1  TO  3 

8529  R_vi s  < I ) =1 

8532  B_vis(I)=l 

8535  NEXT  I 

8538  ! SET  CAP  FOR  ARTY 

8541  FOR  1=1  TO  5 
8544  FOR  J=1  TO  7 

8547  B_ar  ty  _cap  <  J ,  I)=Sys_tot  (2,  J+20)  *Arty_30mi  n_wt  ( 1 .  J  )  *Bi  F  ..msn  ( I  >  /  100 

8550  R_ar  ty_cap  (J,  I)=Sys_tot  ( 4 ,  J  -*-20 )  *  Ar  ty_30mi  n_wt  ( 2.  J  )  #Ri  F  _msn  ( I  >  /  100 

8553  NEXT  J 

8556  ! SET  CAP  FOR  MLRS 

8559  IF  1=2  THEN  Mort_cap 

8562  FOR  J=1  TO  4 
8565  IF  BiF_msr><2) >=100  THEN 

8568  B  ml rs_cap ( J , I ) =0 

8571  ELSE 

8574  B_ml rs_cap ( J , I ) =Sys_tot (2, J+31 > *Ar ty_30mi n_wt  < 1 , J  +  l 1 >  #Bi F_msn  <!)/<! 

-Bi  F  _msn (2) ) 

8577  END  IF 

8580  IF  RiF_msn<2> >=100  THEN 

8583  R_mlrs  cap(J,I)=0 

8586  ELSE 

8589  R_ml  rs_cap  <  J ,  I )  =Sys_tot  (4, J+31 >  *Arty_30mi  n_wt  (2.J  +  ll)*Ri  F_msn  (  I )  /  (  '. 

-Ri  F_msn (2) > 

8592  END  IF 

8595  NEXT  J 

8598  Mortcap:  ! 

8601  FOR  J=1  TO  4 

8604  B_mort_cap < J. I ) =0 

8607  R_mort_cap ( J , I ) =0 

8610  NEXT  J 

8613  IF  1=4  OR  1=5  THEN  Next_cap 

8616  IF  lnt._bmort=0  THEN  Next_mort_cr 

8619  FOR  J=1  TO  4 

8622  B_mort_cap  <J, I)=Sys_tot<2. J+27) *Arty_30mi n_wt  < 1 .  J  +7 ) #Bi  F _msn  < I ) / Int_t 

rt 

8625  NEXT  J 

8628  Nex t _mor t _cr :  ! 

8631  IF  lnt_rmort=0  THEN  Ne>;t_cap 

8634  FOR  J=1  TO  4 

8637  R_mort_cap  < J, I ) =Sys_tot  <4. J+27) *Ar ty_30mi n_wt (2. J+7) #Ri  F_msn ( I ) / Int  r 

r  t. 

8640  NEXT  J 

8643  Next  cap: NEXT  I 
8646  FOR  1=1  TO  15 
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8649  Tot_arty(l, I > =G  '  SUB-TOTAL  OF  AMT  DELIVERED  PER  30  M‘ 

8652  Tot_  arty (2, I >  =0 

8655  FOR  J  =  1  TO  5 

8658  Bi -f  _f  ired  <  I ,  J  )  =0 

8661  Ri  -f  _i  i  red  <  I ,  J  )  =0 

8664  NEXT  J 

8667  NEXT  I 

8670  ! 

8673  Clgp_msns=0 
8676  Gamp_msns=0 
8679  SELECT  Clgp_rpv 
8682  CASE  O  *  NO  RPV 

8685  FOR  1=1  TO  7 

8688  IF  Sys_tot (2, 2) +Svs_tot (2, 3) <=0  OR  C]qp_avail=0  THEN  'SET  CLGP  TO  ' 

8691  B_cl gp_cap < I > =0 

8694  ELSE 

8697  B_c  1  gp_cap  (I)=Sys_tot<2,  I  +20 )  *Ar  ty  _30mi  n_wt  ( 1 .  I )  #Perc_c  lgp*  <  Sys_  tot 

,2) +Sys_tot (2, 3) ) / ( (Sys_tot (1,2) +Sys_tot (1,3)) *  100)  '??  STILL  2  !<  3 
END  IF 
NEXT  I 

CASE  1  1  RPV  AVAILABLE 

FOR  1=1  TO  7 

IF  Clgp_avail=0  THEN 
B_clqp_cap ( I ) =0 
ELSE 

B_clgp  cap  < I ) =Svs  tot  <2. 1+20) *Arty_30mi n_wt ( 1 . I ) *Perc_cl ap/ 100 
END  IF 
NEXT  I 
END  SELECT 
FOR  1=1  TO  4 

B  gamp  cap ( I ) =Sys  tot (2,  1  +  31 > *Arty_30mi n_wt ( 1 , 1  +  1 1 >  *Perc_gamp/ 100 
NEXT  I 

I 

IF  Cl oud_ht*3. 28<=1500  THEN  No_clap_aamp 
IF  Vi s=4  THEN  No_clgp 

IF  Bt 1 _rq >Ds_start ( Bterr >  THEN  No_cIgp_gamp 

IF  Btl  _rg-150<=Ds_st.art  (B_terr  >  AND  Btl  _rg>Ds_start  (B_terr  ) -500  AND  Clqp 
v=0  THEN  No_clgp 
8757  GOTO  A1 locate_ smoke 
8760  No_cl gp_gamp :  ! 

8763  FOR  1=1  TO  4 

8766  B_mor t_cap (1,2) =B_mor t _c ap ( 1 . 2 ) +B_gamp  cap ( I ) 

8769  B_gamp_cap ( I ) =0 
8772  NEXT  I 
8775  No_clgp:  ! 

8778  FOR  1=1  TO  7 

8781  B_arty_cap  <  1 . 2)  =B_.arty_cap  (  I  .  2 )  +B_c  1  gp  c ap  (  I  ) 

8784  B_cl gp_cap ( I ) =0 
8787  NEXT  I 
8790  ! 

8793  A1 1 ocate  smote:  ! 

8796  IF  Btl  phase*  3  OR  Btl  rq  320<>  THEN  Allocate  prep 


8700 

8703 

8706 

8709 

8712 

8715 

8718 

8721 

8724 

8727 

8730 

8733 

8736 

8739 

8742 

8745 

8748 

8751 

8754 
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8799  Ftre_smoke:  ' 

8802  IF  Break_poi nt= 1  THEN 

8805  !  BLUE  iREAKS. .. HENCE  IT  WILL  SMOKE 

8808  FOR  1=1  TO  7 

8811  B_smk_cap  < I ) =B_arty_cap (1,2) *Bi i _msn (6) / 1 00 

8814  IF  B_smk_cap ( I ) >Bif _msn_tons < I , 2)  THEN 

8817  B_smok_tons  ( I )  =Bi  4 _msn_tons  (1,2) 

8820  ELSE 

8823  B_smok_tons < I ) =B_smk_cap ( I > 

8826  END  IF 

8829  NEXT  I 
8032  FOR  1=8  TO  11 

8835  B_smk_cap  ( I  >  =B_mort._cap  <  1-7, 2)  *Bi 4  _msn  (6)  / 100 

8838  IF  B_smk_cap  ( I  7 >Bi  4_^msn_tons  (1,2)  THEN 

8841  B_smok_tons ( I ) =Bi 4 _msn_tons (1,2) 

8844  ELSE 

8847  -  B_smok_tons ( I ) =B_smk_cap ( I ) 

8850  END' IF 

8853  NEXT  I 
8856  A_ammo_ton=0 
8859  M_ammo_ton=0 

8862  FOR  1=1  TO  7  ! TOTAL  ARTY  AMMO  TONNAGE 

8865  A_ammo_ton=B_smok_tons  <  I )  +A_ammo_ton 

8868  NEXT  I 

8871  FOR  1=8  TO  11  ! TOTAL  MORT  AMMO  TONNAGE 

8874  M_anrao_ton=B_smok_tons ( I ) +M  ammo_ton 

8877  NEXT  I 

8880  IF  A_ammo_ton< . 1  AND  M_ammo_ton< .  1  THEN  A1 1 ocate_prep 
8883  GOSUB  W.smoke 

8886  !  UPDATE  ARTILLERY  CAPACITY  FOR  TONNAGE  NOT  USED 
8889  FOR  1=1  TO  7 

8892  B_arty_cap (1,2) =B_arty_cap (1,2) -B_asmk_used ( I ) 

8895  Bi  4_msn_tons  (1,2)  =Bi  4  _msn_tofis  (1,2)  -B_asmk_used  ( I ) 

8898  NEXT  I 
8901  FOR  1=1  TO  4 

8904  B_mort_cap (1,2) =B_mort_cap (1,2) -B_msmk_used ( I ) 

8907  Bi f _msn_tons ( 1+7,2) =Bi 4  _msn_tons (1+7,2) -B_msmk_used ( I > 

8910  NEXT  I 
8913  Smoke_used=0 
8916  FOR  1=1  TO  4 

8919  Smoke  used=Smoke_used+B_msmk_used ( I ) 

8922  NEXT  I 

8925  IF  Smoke_used>0  THEN 
8928  PRINT 

8931  PRINT  USING  Fmt_m_smk; "  TONS  OF  SMOKE  FIRED  BY  BLUE  MORTAR  DURING 

HDRAWAL" , Smoke_used 
8934  END  IF 

8937  Fmt_m_smk: IMAGE  55A,4D.1D 
8940  Smoke_used=0 
8943  FOR  1=1  TO  7 

8946  Smoke_used=Smoke_used+B_asmk_used ( I > 

8949  NEXT  I 
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8952  IF  Smoke_used>0  THEN 
8955  PRINT 

8958  PRINT  USING  Fmt_a_smk;"  TONS  OF  SMOKE  FIRED  BY  BLUE  ARTILLERY  DUR1 

WITHDRAWAL*' ,  Smoke_used 
8961  END  IF 
8964  ELSE 

8967  !  RED  FIRING  SMOKE 
8970  FOR  1=1  TO  7 

8973  R_smk_cap  (I )  =R_arty_cap  (1,2)  *Ri  F  _msn  (6)  /  100 

8976  IF  R_smk_cap  ( I  >  >RiF  _msn_tons  ( 1 , 2)  THEN 

8979  R_smok_tons  ( I )  =Ri  F  _msn_tons  (1.2) 

8982  ELSE 

8985  R_smok_tons < I ) =R_smk  cap  (I) 

8988  END  IF 

8991  NEXT  I 
8994  FOR  1=8  TO  11 

8997  R_smk_cap ( I >  =R_mort_cap (1-7,2) *Ri F _msn (6) / 100 

9000  IF  R_smk_cap < I ) >Ri F_msn_tons < I , 2)  THEN 

9003  R_smok_tons < I ) =Ri F  msn_tons ( I . 2) 

9006  ELSE 

9009  R_smok_tons < I ) =R_smk_cap < I > 

9012  END  IF 

9015  NEXT  I 
9018  A_ammo_ton=0 
9021  M_ammo_ton=0 

9024  FOR  1=1  TO  7  ! TOTAL  ARTY  AMMO  TONNAGE 

9027  A_ammo_ton=R_smok_tons  <  1  >  •*-A_ammo_ton 

9030  NEXT  I 

9033  FOR  1=8  TO  11  ! TOTAL  MORT  AMMO  TONNAGE 

9036  M_ammo_ton=R_smok_tons  (  I  )  +M_ammo_ton 

9039  NEXT  I 

9042  IF  A_ammo_ton< .  1  AND  M_ammo_ton< . 1  THEN  A1 1 ocate_prep 
9045  GOSUB  W_s»noke 

9048  •  UPDATE  ARTILLERY  CAPABILITY  FOR  AMMO  NOT  USED 

9051  FOR  1=1  TO  7 

9054  R_arty_cap  < 1 , 2) =R_arty_cap (1,2) -R_asmk_used ( I > 

9057  RiF  msn_tons < I , 2) =Ri F  msn_tons ( I . 2) -R_asmk_used ( I > 

9060  NEXT  I 
9063  FOR  1=1  TO  4 

9066  R_mort_cap  < 1 , 2) =R_mort_cap ( 1 , 2) -R_msmk_used ( I ) 

9069  Ri F_msn_tons ( 1+7, 2) =Ri F_msn_tons ( 1+7, 2) -R_msmk  used ( I > 

9072  NEXT  I 
9075  Smoke_used=0 
9078  FOR  1=1  TO  4 

9081  S<noke_used=Smoke  used+R  msmk_used(I) 

9084  NEXT  I 

9087  IF  Smoke_used >0  THEN 
9090  PRINT 

9093  PRINT  USING  Fmt _m_smk : '*  TONS  OF  SMOKE  FIRED  BY  RED  MORTARS  DURING 

HDRAWAL ” , Smoke_used 

9096  Fmt_a_smk: IMAGE  58A.4D.1D 

9099  END  IF 
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9102  Smoke_used=0 
9105  FOR  1=1  TO  7 
9108  Smoke_used=Smoke  used+R  asmk_used ( I ) 

9111  NEXT  I 

9114  IF  Smoke  used>0  THEN 
9117  PRINT 

9120  PRINT  USING  Fmt_a  smk: "  TONS  OF  SMOKE  FIRED  BY  RED  ARTILLERY  DUR 

WITHDRAWAL" , Smoke_used 
9123  END  IF 
9126  END  IF 

9129  Allocate_prep:  !  SCHEDULE  INCOMING  PREP  FIRES 

9132  !  CHANGED  TO  ALLOW  INDEPENDENT  SCHEDULING  OF  FIRES  ROB 

9135  ! IF  Atk_def=0  THEN 

9138  !Prep_time=R_prep_time 

9141  ! ELSE 

9144  ' Prep_ti me=B_prep_ti me 

9147  .'END  IF 

9150  !IF  Btl  _ti  me<=Prep_-f  ire_time  THEN 
9153  !  FOR  7=1  TO  15 

9156  !  Bi  -f  _-f  i  red  <  1 ,  1 )  “O  !  TONS  FIRED  THIS  30  MIN 

9159  !  Ri  F_-f  i  red  <  1 ,  1 )  =0 

9162  INEXT  I 

9165  !GOTO  A1 1 ocate_cl gp 

9168  ! END  IF 

9171  * 

9174  !  ALLOCATE  MORTAR  FIRES  FOR  PREP 

9177  IF  Btl _rg >5700  THEN  !  RANGE  TOO  GREAT  FOR  MORTARS 

9180  FOR  1=8  TO  11 

9183  Bi f i red (1,1) =0 

9186  Ri  -f  _-f  i  red  <  I ,  1)  =0 

9189  NEXT  I 

9192  GOTO  Arty_prep 

9195  END  IF 

9198  IF  Btl_time<B_prep_time  THEN  9294 
9201  IF  Btl _rg<B_dsmort_start  THEN 
9204  Tons_avail=0 
9207  FOR  1=8  TO  11  ! MORTAR 

9210  IF  Bi  -f  _msn_tons  ( 1 ,  1 )  >0  THEN 

9213  Bi  f  _msn_tons  ( 1 , 2)  =Bi  f  _msn_tons  (1,1)  ■‘■Bi  T_msn_tons  (1,2) 

9216  B_dsmort_avai  1  <  1-7)  =B_dsmort_avai  1  ( 1-7)  -t-Bi-f  _msn_tons  (1,1) 

9219  Tons_avai  1  =Tons_avai  1  •♦■Bi  f  _msn_tons  (1,1) 

9222  Bi  -f  _msn_tons  ( 1 ,  1  >  =0 

9225  END  IF 

9228  B_mort_cap ( 1-7, 2) =B_mort_cap ( 1-7, 2) +B_nort_cap ( 1-7, 1 ) 

9231  Bi f  i red (1,1) =0 

9234  NEXT  7 

9237  IF  Tons  aval l >0  THEN 
9240  PRINT 

9243  PRINT  "  RED  WITHIN  BLUE  MORT  CS  RANGE  :  REMAINING  BLUE  PREP  AMMO 

ILABLE  FOR  CS" 

9246  END  IF 

9249  GOTO  Red_mort _prep 
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9252  END  IF 

9255  B1 ue_mor t_prep :  1 

9258  FOR  1=8  TO  11 

9261  IF  Bi F _msn_tons ( I , 1 ) <B_mort_cap ( 1-7. 1 )  THEN 
9264  Bi F_Fi red  < I ,  1 )  =Bi  F  _msn_tons  (1,1) 

9267  Bi F_msn_tons < I , 1 ) =0 

9270  Tot  arty  ( 1 ,  I )  =Tot  ar  ty  <  1 ,  I )  +Bi  F_F  i  red  ( 1 ,  1 ) 

9273  ELSE 

9276  Bi F_F i red ( I , 1 ) =B_mort_cap < 1-7, 1) 

9279  Bi F_msn_tons  (1,1)  =Bi  F  _msn_tons  (1,1)  -B_mort_cap  (1-7,  1 ) 

9282  Tot^artyd,  I)=Tot_arty  (1,  I)-t-B_mart  cap(I-77l> 

9285  END  IF 
9288  NEXT  I 
9291  ! 

9294  Red _mort_p rep:  ! 

9297  IF  Btl_time<R_prep_time  THEN  9390 
9300  IF  Btl_rg<R_dsmort_start  THEN 
9303  Tons_avail=0 
9306  FOR  1=8  TO  11 

9309  IF  Ri  F  _msn_tons  ( 1 ,  1 )  >0  THEN 

9312  Ri  F_msn_tons  (1,2)  =Ri F_msn_tons  (1,1)  -«-Ri  F  _msn_tons  (1,2) 

9315  R_dsmort_avai 1 (1-7) =R_dsmort_avai 1 (1-7) +Ri F_msn_tons (1,1) 

9318  Tons_avai l=Tons_avai 1+RiF _msn_tons (1,1) 

9321  Ri  F_msn_tons  ( 1 ,  1 )  =0 

9324  END  IF 

9327  R_mort_cap ( 1-7, 2) =R  mort_cap ( 1-7, 2) +R_mort_cap ( 1-7, 1 ) 

9330  Ri F_F i  red  (1,1)  =0 

9333  NEXT  I 

9336  IF  Tons_avail>0  THEN 
9339  PRINT 

9342  PRINT  "  BLUE  WITHIN  RED  MORT  CS  RANGE  :  REMAINING  RED  PREP  AMMO 

ILABLE  FOR  CS" 

9345  END  IF 

9348  GOTO  Arty  prep 

9351  END  IF 

9354  FOR  1=8  TO  11 

9357  IF  Ri  -f  _msn_tons  ( 1 ,  1 )  <R_mort_cap  ( 1-7,  1 )  THEN 
9360  Ri F _i i red (1,1) =Ri F  _msn_tons (1,1) 

9363  Ri  F_n»sn_tons  ( 1 ,  1 )  =0 

9366  Tot_arty (2, I ) =Tot  arty (2, I > +Ri F  Fired(I,l) 

9369  ELSE 

9372  RiF_Fired(I, 1) =R_mort_cap (1-7, 1 ) 

9375  Ri  f  _msn__tons  ( 1 ,  1  >  =Ri  F_(nsn_tons  (1,1)  -R_mort_cap  <1-7,  1  > 

9378  Tot _ar ty (2, I ) =Tot_arty (2, I ) +R_mort_cap (1-7, 1 ) 

9381  END  IF 
9384  NEXT  I 
9387  ! 

9390  Arty_prep:  1  ALLOCATE  PREP  FIRES  FOR  ARTILLERY  PIECES 
9393  ' 

9396  BI ue_arty_prep : IF  Btl  rg>12000  OR  Bt 1 _t i me< B_prep_t i me  THEN 

9399  FOR  1  =  1  TO  7 

9402  Bi F_Fired (1,1) =0 
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9405  NEXT  I 

9400  GOTO  Red_arty_prep 

9411  END  IF 

9414  IF  Btl _rg<B_dsarty_start  THEN 
9417  Tons  aval  1=0 

9420  FOR  1=1  TO  7 

9423  IF  Bi f_msn_tons ( I , 1 ) >0  THEN 

9426  Bi i _msn_tons (1,2) =BiF  _msn_tons  < 1 , 1 ) +Bi f _msn_tons (1,2) 

9429  B_dsarty_avai 1(1) =B_dsarty_avai 1 ( I ) +Bi f _msn_tons (1,1) 

9432  Tons_avai 1 =Tons_avai 1 +Bi F _msn_tons < I , 1) 

9435  Bi F_msn_tons ( I , 1 ) =0 

9430  END  IF 

944 1  B_arty_cap (1,2) =B_arty_cap (1,2) +B_arty  cap (1,1) 

9444  Bi F  F  i red ( I , 1 ) =0 

9447  NEXT  I 

9450  IF  Tons_avai 1 >0  THEN 
9453  PRINT 

9456  PRINT  "  RED  WITHIN  BLUE  ARTY  CS  RANGE  :  REMAINING  BLUE  PREP  AMMO 

I L ABLE  FOR  CS" 

9459  END  IF 

9462  GOTO  Red_arty_prep 

9465  END  IF 

9460  ! 

9471  FOR  1=1  TO  7 

9474  IF  Bi  F_msn_tons  <  1 ,  1 )  <B_arty_cap  ( 1 ,  1 )  THEN 
9477  Bi F _F i red (1,1) =Bi f_msn_tons (1,1) 

9400  Bi F_msn_tons ( I , 1 ) =0 

9483  Tot_arty ( 1,1) =Tot_arty (1,1) +Bi F _F ired (1,1) 

9486  ELSE 

9489  Bi F_F ired (1,1) =B_arty_cap (1,1) 

9492  Bi F_msn_tons (1,1) =Bi F _msn_tons (1,1) -B_arty_cap (1,1) 

9495  Tot_arty (1,1) =Tot_arty (1,1) +B_arty_cap  < 1 , 1 > 

9498  END  IF 

9501  NEXT  I 
9504  ' 

9507  Red_arty_pr ep:  ! 

9510  IF  Btl_rg>14000  OR  Btl  time<R  prep_time  THEN 

9513  FOR  1=1  TO  7 

9516  RiF_Fired(I,  1 )  =0 

9519  NEXT  I 

9522  GOTO  Mlrs_prep 

9525  END  IF 

9528  IF  Btl _rg<R_dsarty_start  THEN 
9531  Tons_avail=0 

9534  FOR  1=1  TO  7 

9537  IF  Ri F_msn_tons  ( 1 ,  1  >  >0  THEN 

9540  Ri  F_msn_tons  (1,2)  =Ri  F  _msn_tons  ( 1 ,  1 )  +Ri  F  _msn_tons  (1.2) 

9543  R_dsarty_avai 1  ( I >  =R_dsar ty_avai 1 ( I ) +Ri F _msn_tons (1,1) 

9546  Tons_avai 1 =Tons_avai 1 +Ri F_msn_tons (1,1) 

9549  RiF_msn  tons(I,l)=0 

9552  END  IF 

9555  R_arty_cap ( I , 2) =R_ar ty_cap ( I , 2) +R_arty _cap ( I , 1 ) 
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9558  NEXT  I 

9561  IF  Tonsavai 1 >0  THEN 
9564  PRINT 

9567  PRINT  "  BLUE  WITHIN  RED  ARTY  CS  RANGE  :  REMAINING  RED  PREP  AMMO 

ILABLE  FOR  CS" 

9570  END  IF 
9573  GOTO  Mlrs_prep 
9576  END  IF 
9579  ! 

9582  FOR  1  =  1  TO  7 

9505  IF  Ri f _msn_tons ( 1 , 1 ) <R_arty_cap ( 1 ,  1 >  THEN 
9588  Ri  f  i  red  ( 1 ,  1 )  =Ri  -f  _msn_tons  (1,1) 

9591  Ri  4 _<nsn_tons  ( I  ,  1 )  =0 

9594  Tot_arty  (2,  I  >=Tot_arty  <2,  D+Ri-f  Pired(I,l> 

9597  ELSE 

9600  Ri i ired < I , 1 ) =R_ar ty_cap (1,1) 

9603  Ri f_msn_tons (1,1) =Ri f_fflsn_tons (1,1) -R_arty_cap (1,1) 

9606  Tot_arty  (2,  I )  =Tot_arty  (2,  I)  ■♦■R  arty_cap  ( 1 ,  1 ) 

9609  END  IF 
9612  NEXT  I 
9615  ! 

9618  Ml rs_preps  !  ALLOCATE  PREP  FIRES  FOR  MLRS  SYSTEMS 

9621  ! 

9624  FOR  1-12  TO  15 
9627  Bi  -f  ired  (1,1)  =0 

9630  Ri  -f  Tired  (1,1)  =0 

9633  NEXT  I 

9636  IF  Bt 1 _r g >25000  THEN  Red_ml rs_prep 
9639  IF  BI t_time<B_prep_time  THEN  Red_ml rs_prep 
9642  IF  Btl_rg<B  dsarty_start  THEN  Red_ml rs_prep 
9645  ! 

9648  Blue_mlrs_prep: 

9651  FOR  1=12  TO  15 

9654  IF  Bi i _msn_tons ( I , 1 ) <B_mlrs_cap ( 1-1 1 , 1 )  THEN 
9657  Bi f _?ired ( I , 1 ) =Bi i _msn_tons (1,1) 

9660  Bi T _msn_tons ( I , 1 ) =0 

9663  Tot_arty  (1,1)  =Tat_arty  (1,1)  ■♦•Bi  -f  ired  (1,1) 

9666  ELSE 

9669  Bi  -f  _-f  ired  (1,1)  =B_ml  rs_cap  ( 1-1 1,1) 

9672  Bi T _msn_tons (1,1) — Bi f _msn_tons (1,1) -B_ml rs_cap ( I— 1 1 , 1 ) 

9675  Tot_arty ( 1 , I ) -Tot  arty ( 1 , I > ♦B_mlrs_cap ( I  — 1 1 .  1 ) 

9678  END  IF 
9681  NEXT  I 
9684  • 

9687  Red_mlrs_prep!  ! 

9690  IF  Btl_time<R_prep_time  OR  Btl_rg>15500  THEN  A1 1 ocate_cl gp 
9693  IF  Btl _rg<R_dsarty~start  THEN  A1 locate_clgp 
9696  FOR  1=12  TO  15 

9699  IF  Ri  f  _msr»_tons  (1,1)  <R_ml  r  s_cap  ( I  - 1 1 ,  1 )  THEN 
9702  Ri f i red ( I , l)=Ri f _msn_tons (1,1) 

9705  Ri f _msn_tons ( 1 ,  1 ) =0 

9708  Tot  _ar ty (2, I)=Tot_arty(2, I ) +Ri T i red  < 1 , 1) 
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9711 

9714 

9717 

9720 

9723 

9726 

9729 

9732 


ELSE 

Ri*_-fired(I,  1 ) =R_mlrs_cap ( I-l 1 ,  1) 

Ri f _msn_tons (1,1) =Ri f _msn_tons (1,1) -R_ml rs  cap  ( I  ■ 
Tot_arty<2, I>  =Tot_arty (2. 1) +R  mlrs_cap (1-11,1) 
END  IF 
NEXT  I 


11.1) 


9735  All ocate_cl gp :  !  ALLOCATE  CLGP  MISSIONS  FOR  THIS  30  MIN  PD 

IF  ftl_rg >12000  OR  Btl _tlme<B_prep_time  THEN 
9744  Clgp_msns=0 
9747  Gamp_msns=0 
9750  GOTO  Allocate_ds 
9753  END  IF 
9756  ! 

9759  IF  Clgp__avai  1<=0  THEN 
FOR  1=1  TO  7 

NEXT aitV"CaP  ( 1  ’  2>  “B-arty-ca'P  ( 1  -  2)  +B_clgp_cap  ( I ) 

Cl gp_msns=0 
GOTO  Allocate  gamp 
9777  END  IF 
97S0  Tot_clgp=0 
9783  FOR  1=1  TO  7 

9786  Tot_elgp=Tot  cl gp+B  clgp  cap (I) 

9789  NEXT  I 

9792  IF  Tot_cl gp >C1 gp_avai 1  THEN 
9795  Cl gp_msns=Cl gp_avai 1 
9798  Clgp_avail=0 
9801  ELSE 

9804  Clgp_msns=Tot_clgp 
9807  Clgp_avail=Clgp_avail-Tot  clgp 
9810  END  IF 
9813  • 


9762 

9765 

9768 

9771 

9774 


9816  ! 

98^2  A1l°Cate-gamp:  !  ALLOCATE  GAMP  MISSIONS  FOR  THIS  30  MIN  PERIOD 

9825  IF  Btl _rg>5700  THEN 
9828  Gamp_msns=0 
98ol  GOTO  Allocate_ds 
9834  END  IF 
9837  ! 

9840  IF  Gamp_avai 1 <=0  THEN 
9843  FOR  1=1  to  4 

9^9  NExfTt_CaP  ( 1  ’  2>  =B-mort-cap  < 1  *  2>  *B_gamp_cap  ( I ) 

9852  Gamp_msns=0 
9855  GOTO  Allocate  ds 
9858  END  IF 
9861  Tot_gamp=0 
9864  FOR~ 1=1  TO  4 
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9367  Tot_qamp  =  Tot_qamp-t-B_gamp_cap ( I ) 

9870  NEXT  I 

9873  IF  Tot_gamp >Gamp_avai 1  THEN 
9876  Gamp_msns=Gamp_avai 1 
9879  Gamp_avai 1 =0 
9882  ELSE 

9885  Gamp_msns=Tot_gamp 
9888  Gamp  avai 1 =Gamp_avai 1 -Tot_gamp 
9891  END  IF 
9894  ' 

9897  A1 1 ocate_ds:  !  SCHEDULE  INCOMING  DIRECT  SUPPORT  FIRES 

9900  ' 

9903  TRACE  OFF 

9906  !  MLRS  DOES  NOT  FIRE  IN  DIRECT  SUPPORT 

9909  FOR  1=12  TO  15 

9912  Bi -f  _msn_tons  <  1 , 2)  =0 

9915  Rif_msn_tons <1,21=0 

9918  NEXT  I 

9921  • 

9924  Set_blue_ds:  1 

9927  Tot_ds_avai 1 =0 
9930  FOR  1=1  TO  7 

9933  Tot_ds_avai 1 =Tot_ds_avai 1 +B_dsarty_avei 1 (I) 

9936  NEXT  ! 

9939  IF  Btl_rg>B_dsarty_start  OR  Tot_ds_avai  1  =0  OR  Bt  1  _.t  i  me<  B_prep_t.i  me  THEN 

9942  FOR  1=1  TO  11 

9945  Bi  -f  i  red  <  I  ,  2 )  =0 

9948  NEXT  I 

9951  GOTO  Set_b_dsmort 

9954  END  IF 

9957  ( 

9960  Set_b_dsar ty : IF  Btl _rg<B_dsarty_start  AND  Btl_rg>=B_ds  conc_pt  THEN 
9963  X=B_dsar ty_star t-B_ds_conc_pt 
9966  Y=B_ds_conc_ level 
9969  FOR  1=1  TO  7 

9972  IF  B_dsarty_avai 1 ( I ) >0  THEN 

9975  Frac_arty  < I )  =  < Y/X*  <  B_dsartv_st  ar  t-Bt  1  _rg  >  )  -  (B_dsartv_-f  ire(I)/B_dsart 

_avai  1(D) 

9978  ELSE 

9981  Frac  arty <11=0 

9984  END  IF 

9987  NEXT  I 

9990  8_p30_artyrg=Bt 1 _rg 
9993  GOTO  Set_b_dsar ty_rd 
9996  END  IF 
9999  1 

10002  IF  Btl  _rg<'B_ds_conc_pt  AND  B_p30_artvrg  =B_ds_conc_pt  AND  B_ds_shi  f  t=0  TH 
N 

1 0005  FOR  1=3  TO  5 
10008  FOR  J=1  TO  7 

1 00 11  Bi  f  _msn_tons  <  J .  2 )  =Bi  +  msn_  tons  ( J  .  2  >  +Ri  -f  msn  t  ons  <  J .  I  ) 

1 OO 14  B_dsarty_avail(Jl=B_dsar  ty.avai  1  ( J  )  +Bi  +  _m<sn  tons  (.1,1) 
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1 00 1  7 
1 0020 
10023 
1 0026 
1 0029 
1 0032 
1 0035 
1 0038 
1 004 1 
10044 
10047 
1 0050 
1 0053 
1 0056 
10059 
1 0062 
10065 
1 0068 
10071 
1 0074 
10077 
1 0080 
1 0083 
1 0086 
1 0089 
1 0092 
10095 
10098 
1 0 1 0 1 
10104 
10107 
101 10 
10113 
101  16 
101 19 
10122 
10125 
10128 
10131 
10134 
10137 
10140 
10143 
10146 
10149 
10152 
2) 

10155 
10158 
10161 
1  0 1 64 
10167 


Table  6-14.  Ground  combat  code  (continued). 

Bi  +  _ msn_  tons  ( J  ,  I  )  =0 
NEXT  J 
NEXT  I 

B_ds_shi f  t  =  l 
END  IF 

I 

IF  B_ds_shi  -f  t  =  l  THEN 
FOR  1=3  TO  5 
FOR  J=1  TO  7 

B_arty_cap  <J, 2) =B_arty_cap ( J , 2) +B_arty_cap (J. I ) 

B_arty_cap  < J . I > =0 
NEXT  J 
NEXT  I 

X=B_p30_artyrg-B_dsarty_br krg 
IF  XOO  THEN 
X=500 

B_p30_artyrg=Bt 1 _rg+5O0 
END  IF 
FOR  1=1  TO  7 

IF  B_dsarty_avai 1 < I ) >0  THEN 

Y=l- (B_dsarty_t i re  < I ) /B_dsar ty_avai 1  ( I > > 

Fr ac_ar t v < I ) = < Y/ X * <B_p30  artyrg— Btl  rg) ) 

ELSE 

Frac_arty ( I ) =0 
END  IF 
NEXT  I 

B_p30_artvrg=Btl _rg 
END  IF 

i 

Set_b_dsarty_rd: IF  B_ds_shi i t=0  THEN 
Arty_bound=B_ds_conc_l evel 
ELSE 

Arty  bound= 1 . 0 
END  IF 

t 

FOR  1=1  TO  7 

IF  Frac_arty ( I ) < . 083  THEN  Frac_arty ( I ) =. 083 

IF  Mi  ne_hi  t<  >0  AND  Frac_arty  (IX.  20  THEN  Frac_arty  ( I  )  =.  20 

IF  B_dsarty_avai 1 ( I > >0  THEN 

IF  Frac_arty  ( I )  >Ar  ty  _bound-  (B_dsarty_-f  ire  ( I )  /B_dsarty_avai  1(1)) 
Frac_arty ( I ) =Ar ty_bound— (B_dsarty_fire(I) /B_dsartv_avai  1  ( I ) ) 
END  IF 
END  IF 

I 

Ds_at temp ted ( I ) =Frac_arty ( I ) *B_dsarty_avai 1(1) 

IF  Ds_at tempted  (  I  )  >Bi  f  __msn_  tons  (  I  ,  2)  THEN  Ds_attempted  (  I  )  =  Bi  f  _msn 

IF  Ds_attempted  ( I  >  ■:  B_arty_cap  <  1 , 2)  THEN 
Bif_-fired(I,2)  =Ds_  at  tempted  ( I  > 

Bi  -f  _msn_tons  (1,2)  =Bi  -f  _msn_tons  (1.2)  -Ds_at tempt  eri  (  I  ) 

Tot  arty (1,1) =Tot_arty (1,1) +Ds_attempted ( I ) 

B  dsarty  f  i  re(II  =B_dsart.y_-f  i  re  (  I )  +Ds  at  tempted  ( I  ) 


THEN 


t  one  ( 
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10170 
10173 
1 0 1 76 
10179 
101 82 
10185 
10188 
10191 
10194 
10197 


ELSE 

Ds_attempted  < I ) =B_arty_cap ( T . ? ) 

Bi  4_.  -fired  ( 1 , 2)  =Ds_at.tempt<?d  <  I ' 

Bi  4  _msn_tons  (1,2)  =  Bi  4  _msn_tans  <  I  ,  ? )  -Ds_at  t  empt  ed  (  I ) 
Tot_arty ( 1 ,  I  >  =Tot_arty  (1,1)  +Ds_at tempted  (  I  ) 
B_dsarty_4i  re  ( I )  =B_dsarty  4  i  r  e"<  I)  +Ds  attempted(I) 
END  IF 
NEXT  I 


10200  Set_b_dsmort:  !  ALLOCATE  BLUE  MORTAR  DS  FIRES 
10203  Tot_ds_avai  1 =0 
10206  FOR” 1=1  TO  4 

10209  Tot_ds_avai l=Tot_ds  avail+B  dsmort  avail  (I) 

10212  NEXT  I 

10218  IF0RtI=89T0_limOrt'Start  ^  Tot-ds-avai 1 =°  0R  Bt 1 _t i me<B_prep_t i me  THEN 

10221  Bi 4_4 i red ( I , 2) =0 

10224  NEXT  I 

10227  GOTO  Set_red_ds 

10230  END  IF 

10233  1 

10236  IF  Bt 1 _rg<B_dsmort_start  AND  Btl_rg>=B_mo  cone  pt  THEN 
102d9  X=B_dsmort_start-B_mo  concpt 
10242  y=B_rao_conc_level 
10245  FOR  1=1  TO  4 

10248  IF  B_dsmort_avai 1(1) >0  THEN 

102511/t  Frac_mart(I)=(Y/X*(B_dsmort_start-Bt)_rg> >-(B  dsmort  4ire(I>/B  dsmor 
.avai  1(D)  _ 

10254  ELSE 

10257  Fr  ac  nior  t  ( I )  =0 

10260  END  IF 

10263  NEXT  I 

10266  B_p30_mor trg=Bt 1 _rg 
10269  GOTO  Set_b_dsmor t_r d 
10272  END  IF 
10275  ' 

10^78  IF  Btl_rg<B_mo_conc_pt  AND  B_p30_mortr g >=B_mo_conc_pt  AND  B_mo_shi4t=0  Tt 


10281  B_mo_shi4t=l 
10284  END  IF 
10287  ! 

10290  IF  B_mo_shi4t=l  THEN 
10293  X=B_p30_mor trg-B  dsmort_brkrg 
10296  IF  X<=0  THEN 
10299  X=500 

1 0302  B_p30_mortrg=Bt 1  rg+500 

10305  END  IF 
10308  FOR  1=1  TO  4 

10311  IF  B_dsmort_avai 1(1) >0  THEN 

10314  V=l-(B.dsmort_4ire(I)/B.dsmort_flvai  1(D) 

10317  Frac_mort  (  I)  =  (Y/X*  (B_p30_mor t.r g-Bt  1  _rg>  > 
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10320  ELSE 

10323  Frac_mor t < I ) =0 

10326  END  IF 

10329  NEXT  1 

10332  B_p30_mor trq=Bt 1 _rg 
10335  END  IF 
1 0338  1 

10341  Set_b_dsmort_rd: IF  B_mo_shi -f  t=0  THEN 
10344  Mort_bound=B  mo_conc _1 eve 1 
10347  ELSE 

10350  Mor c_bound= 1 . 0 
10353  END  IF 
1 0356  ‘ 

10359  FOR  1=1  TO  4 

10362  IF  Fr ac_mort < I ) < . 083  THEN  Frac_mort ( I > =. 083 

10365  IF  Mine_hit*.  >0  AND  Frac_mor  t  (  I  )  <  .  20  THEN  Frac_mort  (  I  >  =.  20 

10368  IF  B_dsmrt_avai  ]  <  I )  >0  THEN 

10371  IF  Fr ac  mort ( I ) >Mort_bound- ( B_dsmort_t i re ( I ) /B_dsmort_avsi  1  ( I >  )  THEN 

10374  Fr  acmor t ( I >  =Mor t_bound- ( B_dsmor t i r e ( I > /B_dsmor t_avai 1(1)) 

10377  END  IF 

10380  END  IF 
1 0383  1 

10386  Moattempted ( I ) =Frac_mort ( 1 >  *B_dsmort_avai 1(1) 

10389  IF  Mo_attempted ( I )  >Ri  F_msn_tons ( 1+7, 2)  THEN  Mo_att.empted  (  I  )  =Bi  f_m5n_torv 
1+7. 2) 

10392  IF  Mo_attempted ( I ) <  B_mort_cap  (  I  ,  2)  THEN 
1 0395  Bi-f_-fired(I+7,2)  =Mo_at tempted  (  I  > 

1  0398  Bi  -f  _msn_tons  (  I  +7. 2)  =Bi  -f  _msn_tons  (1+7,2)  -Mo_at  temp  ted  (  I  ) 

1  040 1  B  dsmor  t  _-f  l  re  (  I  )  =B_dsmor  t_-f  i  r e  (  I  )  +Mo_at tempted  (  I  > 

1  0404  Tot_arty<  1,  I+7)=Tot_arty( 1 .  I +7) +Mo_at tempted ( I  ) 

10407  ELSE 

10410  Mo  attempted ( I ) =B_mort_cap ( I ,  2) 

1 04 13  Bit_tired(I+7,2) =Mo_at tempted  (I  > 

1 04 16  Bit  _msn_tons  ( I  +7 . 2)  =Bi  -f  _msn_tons  (1+7,2)  -Moat  temp  ted  (  I  ) 

104 1 9  B_dsmor t i r e ( I ) =&_dsmor t  _fire(I>  +Mo_at tempted ( I > 

10422  T ot _ar t y T 1  ,  I +7 ) =Tot _ar ty ( 1 ,  I +7 ) +Mo_at t empted ( I > 

10425  END  IF 
10428  NEXT  I 
10431  1 

10434  Set_red_ds:  ! 

10437  Tot_ds_avai 1 =0 
10440  EOF:  1  =  1  TO  7 

10443  Tot_ds_avai 1 =Tot_ds_avai 1 +R_dsartv_avai 1(1) 

10446  NEXT  I 

10449  IF  Bt  1  _rg  ;R_dsarty_star  t  OR  Tot_ds_avai  1  =0  OR  Bt  1  _t  l  me'  R_prep_t.  l  me  THEN 

10452  FOR  1=1  TO  11 

10455  Ri  -f  _f  i  r ed  (  1 , 2 )  —  0 

10458  NEXT  I 

10461  GOTO  Set_r_dsmort 

10464  END  IF 

10467 

10470  Set  _r  _dsar  t  v :  I F  Bt  1  _rq-  R  dsar  ty_st  ar  t  AND  Bt  1  _rq  =R_d=._ronc  _pt.  THEN 
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f 

i 

■* 


4 


10473  X=R_dsar tv_star t-R_ds_conc _pt 
10476  Y=R_ds_conc_l  eve! 

10479  FOR  1=1  TO  7 

10482  IF  R_dsar ty_avai 1 ( I ) >0  THEN 

10485  Frac_arty  (  I  )  =  <  Y  /  X  *  <R_dsarty_start-Bt)  _rg>  )  -  (R_dsartv_-fi  re  (  I  )  /R_dsar 

_avai 1(1)) 

10488  ELSE 

10491  Frac_arty ( I ) =0 

10494  END  IF 

10497  NEXT  I 

10500  R_p30_ar tyrg=Bt 1 _rg 
10503  GOTO  Set_r _dsartv_rd 
10506  END  IF 
10509  1 

10512  IF  Btl  _rg<R_ds_canc_pt  AND  R_p30_artyra  >=R_ds_conc_pt  AND  R  ds_shi-ft=0  T> 
N 

10515  FOR  1=3  TO  5 
10518  FOR  J=1  TO  7 

10521  Ri  -f  _msn_  tons  (J,2)=Ri-f  _msn_t  ons  ( J ,  2)  +Ri  -f  _msn_tons  <  J ,  I ) 

10524  R_dsartv_avail  ( J  > =R_dsar t y_avai 1  ( J  >  +Ri f _msn_t ons ( J , I > 

10527  Ri  t_<nsn_tans  <  J  .  I  )  =0 

10530  NEXT  J 

10533  NEXT  I 

1 0536  R_ds_sh i f t = 1 

10539  END  IF 

10542  ! 

10545  IF  R_ds_sh i  -f  t  =  1  THEN 
10548  FOR  1=3  TO  5 
10551  FOR  J=1  TO  7 

10554  R_arty_cap ( J , 2 ) =R_ar ty_cap ( J . 2) +R_arty_cap (3.1) 

10557  R_arty_cap ( J . I ) =0 

10560  NEXT  J 

10563  NEXT  I 

1 0566  X =R_p 30 _ar tyr g-R_dsar ty_br krg 
10569  IF  X <  =0  THEN 
10572  X=500 

10575  B_p30_ar tyrg=Bt 1 _r g+500 

10578  END  IF 

10581  FOR  1=1  TO  7 

10584  IF  R_dsarty_avail (I) >0  THEN 

10587  Y=l-  (R_dsarty_f  i  red)  /R_dsarty_avai  1  (  I )  > 

10590  Fr ac _arty ( I > = ( Y / X # (R_p30_ar tyr g-Bt 1  ra) ) 

10593  ELSE 

10596  Frac_arty ( I ) =0 

10599  END  IF 

10602  NEXT  I 

10605  R_p30_artyrg=Btl _rg 
10608  END  IF 
1 06 1  1  1 

10614  Set_r_dsarty_rd: IF  Rds  shift=0  THEN 
1 06 1 7  Arty  bound =R_ds_conc _ 1 evel 
10620  ELSE 
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10623  Ar t y _ bound= 1 . 0 
10626  END  IF 
1 0629  ' 

10632  FOR  1=1  TO  7 

10635  IF  Frac_arty  (IX.  083  THEN  Frac_arty < I > =. 083 

10638  IF  Mi ne_hi  t<  X>  AND  Frac_ar  ty  <  I )  <  .  20  THEN  Frac..artv  ( I  )  =  .  20 

10641  IF  R_dsarty_avai 1 < I ) >0  THEN 

10644  IF  Frac_arty  ( I )  >Arty_bound— (R_dsarty_-f  i  r  p  ( I  > /R_dsar  ty_avai  1  ( I )  >  THEN 

10647  Fr ac_arty ( I ) =Arty_bound- (R_dsarty  f i re ( I ) /R_ dsar t y_avai 1(1)) 

10650  END  IF 

10653  END  IF 
1 0656  ! 

10659  Ds_attempted ( I ) =Frac_ar ty < I ) #R_dsarty_avai  1  (I) 

10662  IF  Ds_attempted ( I ) >Ri f  msn_tons ( I , 2)  THEN  Ds_attempted  ( I )  =Fti  f_msn_tons  ( 
2 ) 

10665  IF  Ds_attempted ( I ) <R_arty_cap ( I , 2)  THEN 
10668  Ri 4  _4 i red (1,2) =Ds_at temp ted ( I ) 

1 067 1  Ri  4  _msn_tons  ( 1 , 2) =Ri  I_niBn_tons  (1,2)  -Ds_at  temp  ted  ( I ) 

10674  Tot_arty  (2,  I )  =Tot_arty  (2,1)  +Ds_attempted  ( I ) 

10677  R_dsarty_f  i  re  ( I )  =R_dsarty_f  i  re  ( I )  +Ds_at temp ted  ( I ) 

10680  ELSE 

10683  Ds_attempted ( I ) =R_artv_cap (1,2) 

10686  Ri 4 _4 i red ( I , 2) =Ds_at temp ted ( I ) 

10689  Ri  4  _msn_tons  (1,2)  =Ri  4  _msr>_t  ons  (1,2)  -Ds_at  tempted  ( I  ) 

10692  Tot_arty (2, I ) =Tat_arty (2, I ) «-Ds_attempted ( I ) 

10695  R_dsarty_-f  i  re  ( I )  =R_dsarty_F  i  re  ( I )  +Ds_at  temp  ted  ( I ) 

10698  END  IF 
10701  NEXT  I 
10704  1 

10707  ! 

10710  Set_r_dsmort:  !  ALLOCATE  RED  MORTAR  DS  FIRES 
10713  Tot_ds_avai 1 =0 
10716  FOR  1=1  TO  4 

10719  Tot_ds  avail=Tot  ds  avai 1 +R_dsmort_avai  1  ( I ) 

10722  NEXT  I 

10725  IF  Btl_rg>R  dsmort_start  OR  Tot  _ds_avai  1  =0  OR  Bt  1  _t  i  me*!  R_pr  ep_t.i  me  THEN 

10728  FOR  1=8  TO  11 

10731  Ri F i red ( I , 2) =0 

10734  NEXT  I 

10737  GOTO  10944 

10740  END  IF 

10743  ! 

10746  IF  Btl _rg<R_dsmort_start  AND  Bt 1 _r g  =R_ma_conc_pt  THEN 
1 0749  X=R_dsmort _st art-R_mo_conc_pt 
10752  Y=R_mo_conc_l evel 
10755  FOR  1=1  TO  4 

10758  IF  R_dsmort_avai I ( I > >0  THEN 

1 0761  Frac_mort  ( I  )  =  ( Y/X  *  (R_dsmor  t  _st  art  -Btl_rq)  )  —  (Rdsmor  t  _  t  ired)  /R_dsmor 

__avai  1  (  I  )  > 

"l  0764  ELSE 

10767  Frac_mor t ( I ) =0 

10770  END  IF 
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10773  NEXT  I 

10776  R_p30_mortrg=Bt 1 _rg 
10779  GOTO  Set_r  dsmort  rd 
10782  END  IF 
10785  ! 

10788  IF  Btl  _rg*:.R_mo_canc_pt  AND  R_p30_mort.rg  >=R_mo_conc_pt  AND  R_mn_sh  l  i  t  =0  Ti 
N 

10791  R_mo_shi-f  t=l 
10794  END  IF 
10797  ! 

10800  IF  R_mo_shi*t=l  THEN 
10803  X=R_p30  mortrg-R  dsmort  brkrg 

10806  IF  X<=0~THEN 
10809  X*500 

10812  R_p30_mortrg=Btl  rg+500 

10815  END  IF 
10818  FOR  1  =  1  TO  4 

10821  IF  R_dsmort_avai 1 < I > >0  THEN 

10824  Y=l  —  <R_dsitiort_'f  i  re  <  I )  /R_dsmort_avai  1(I>) 

10827  Frac_mort ( I ) = (Y/X* <R_p30  mortrg-Btl  rg) ) 

10830  ELSE 

10833  Frac_mort ( I ) =0 

10836  END  IF 

10839  NEXT  I 

10842  END  IF 

10845  ! 

10848  Set_r_dsmort_rd:  IF  R_mo_shitt=0  THEN 
10851  Mort_bound=R_nio  eonc_level 
10854  ELSE 

10857  Mort_bound=l .  O 
10860  END  IF 
10863  ! 

10866  FOR  1  =  1  TO  4 
10869 
10872 
10875 
10878 
10881 
10884 
10887 
1 0890 
10893 
10896 
1+7,2) 

10899 
1 0902 
10905 
10908 
1091  1 
10914 
10917 
1 0920 


IF  Frac_mort ( I >< .083  THEN  Frac_mort ( I ) =. 083 

IF  Mi ne_hi t<  >0  AND  Fr ac_mort < I ) < . 20  THEN  Frac_mort ( I )  =  . 20 

IF  R_dsmort_avai 1 ( I ) >0  THEN 

IF  Frac_mort  <  I )  >Mort_bound- <R_dsmort_-f  i  re  ( I  >  /R_dsmort_avai  1  ( I )  >  THEN 
Frac_mort ( I ) =Mort  bound-(R  dsmort  lire ( I > /R  dsmort.avai 1 ( I ) ) 

END  IF 
END  IF 

I 

Mo_attempted  < I ) =Frac_mort  < I >  *R_dsmort_avai 1(1) 

IF  Mo_attempted  ( I  >  >Ri  f  _msn_tons  (1+7, 2)  THEN  Mo_at  temp  ted  ( I )  =Ri  -f  _nisn  ton- 

IF  Mo_attempted ( I )<R_mort_cap ( I , 2)  THEN 
Ri  -f  _f  i  red  (1+7,2)  =Mo_at tempt ed  ( I ) 

Ri  •f_msn_tons  (1+7,2)  =Ri -f  _msn_tons  ( 1+7, 2)  -Mo_at tempted  ( I ) 

R_dsmor t_f  i  re ( I ) =R_dsmort_f i re ( I ) +Mo_at temp ted ( I ) 

T ot _ar t y (2,  1+7 ) =Tot _art y (2. I +7 ) +Mo_at tempt ed ( I ) 

ELSE 

Mo_at temp ted ( I ) =R_mort_cap (1,2) 

Ri ired ( 1+7,  2) =Mo_at tempted ( I > 
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10923  Ri  i  _msn_tons  ( 1+7, 2)  =Ri  -f  _msn_tons  (1+7.2)  -Mo_at tempted  <  I  > 

10926  R_dsmort_'f  ire(I)  =R_dsmor  t  _f  i  r  e  <  I )  -t-Moattempted  ( I ) 

10929  Tot_arty  <2,  1+7)  «*Tot_arty  <2,  1+7)  +Mo_at. tempted  ( I ) 

10932  END  IF 

10935  NEXT  I 

10930  ! 

10941  ! 

10944  !  A1 locate_sead  .'SCHEDULE  INCOMING  SEAD  MISSIONS  !  ROB 
10947  ! 

10950  !  MORTARS  DO  NOT  FIRE  SEAD 

10953  FOR  1=8  TO  11 

10956  Bi  -f  _msn_tons  ( 1 , 3)  =0 

10959  Ri  -f  _msn_tons  <  1 , 3)  =0 

10962  NEXT  I 

10965  ! 

10968  IF  Btl_rg >12000  OR  Btl  _time<B_prep_time  THEN 

10971  FOR  1  =  1  TO  7 

10974  Bi  -f  _-f  i  red  (1,3)  =0 

10977  NEXT  I 

10980  GOTO  Red_arty_sead 

10983  END  IF 

10986  BI ue_arty_sead :  ! 

10989  FOR  1=1  TO  7 

10992  IF  Bi  -f  _msn_tons  (1,3)  <B_arty_cap  (1.3)  THEN 
10995  Bi  -f  _-f  ired  ( 1 ,  3)  =Bi-f  _msn_tons(  I , 3) 

10998  Bi  -f  _msn_tons  ( 1 , 3)  =0 

11001  Tot  arty ( 1 , I ) =Tot_arty (1,1) +Bi F i red ( I , 3) 

11004  ELSE 

1 1007  Bi-f_-f  ired  (1,3)  =B_arty_cap  (1,3) 

11010  Bi f _msn_tons (1,3) =Bi 4 _msn_tons (1,3) - (B_arty_cap (1,3) ) 

11013  Tot_arty (1,1) =Tot  arty ( 1 , I ) + (B_arty_cap ( I , 3) ) 

11016  END  IF 
11019  NEXT  I 
11022  ! 

11025  Red_arty_seads ! 

11028  IF  Blt_rg>14000  OR  Btl_time<R_prep_time  THEN 
11031  FOR  1=1  TO  7 
11034  Ri  -f  i  red  ( I « 3)  =0 
11037  NEXT  I 

11040  GOTO  BI ue_ml rs_sead 
11043  END  IF 
11046  FOR  1=1  TO  7 

11049  IF  Ri  -f  _msn_tons  ( 1 , 3)  <R_arty_cap  ( 1 . 3)  THEN 
1  1052  Ri  -f  _?ired  (1,3)  =RiF _m*n_tons  (1,3) 

11055  Ri f _msn_tons ( I , 3) =0 

l 1058  Tot_arty (2,1) =Tot_arty (2, I ) +Ri f ired ( I , 3) 

11061  ELSE 

1 1064  Ri  F_-f  ired  <  1 , 3)  =R_arty_cap  (1,3) 

1 1067  Ri i _msn_tons (1,3) »Ri T _msn_tons (1,3)- (R_arty_cap (1,3)) 

1 1070  Tot_arty(2, I) =Tot_arty (2. I ) + (R_arty_cap (1,3) ) 

11073  END  IF 
1 1076  NEXT  I 
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11079  ! 

11082  Blue_mlrs_sead: IF  Btl  rg>25000  OR  Blt_time<B_prep_time  THEN 
11085  FOR  1=12  TO  15 
11088  BiF  Fired(I,3)=0 

11091  NEXT  I 
11094  GOTO  Red_ml rs_sead 
11097  END  IF 
11100  ! 

11103  FOR  1=12  TO  15 

11106  IF  BiF_msn_tons ( I , 3) <B_ml r s_cap < 1-1 1 , 3)  THEN 
1 1 109  BiF_Fired(I,3) =Bi F_msn_tons (1,3) 

11112  Bi F_msn_tons ( I , 3) =0 

11115  Tot~arty  < 1 , I >  =Tot_arty ( 1 , I ) +Bi F_F i red ( 1 . 3) 

11118  ELSE 

11121  BiF_Fired(I,3>  =B_ml r s_cap (1-11,3) 

1 1 124  Bi F_msn_tons (1,3) =Bi F_msn_tons (1,3)- (B_ml rs_cap (1-11,3) ) 

11127  Tot_arty ( 1 , I ) =Tot  arty < 1 , I ) + <B_mI rs_cap < 1-1 1 , 3) ) 

11130  END  IF 
11133  NEXT  I 
11136  ! 

11139  Red_mlrs_sead: ! 

11142  IF  Btl_rg>15500  OR  Bit  time<R_prep  time  THEN 
11145  FOR  1=12  TO  15 
11148  RiF_Fired(l,3) =0 

11151  NEXT  I 

11154  GOTO  A1 locate_cFire 

11157  END  IF 

11160  FOR  1=12  TO  15 

11163  IF  Ri F_msn_tons (1,3) <R_mlr%_cap (1-11,3)  THEN 
11166  RiF_Fired(I,3) =Ri F_msn_tons (1,3) 

11169  Ri F_msn_tons ( I , 3) =0 

11172  Tot_arty (2, I >  =Tot_arty (2, I ) +Ri F_Fi red ( 1 , 3) 

11175  ELSE 

11178  Ri F_F i red ( I , 3) =R_ml rs_cap ( 1-1 1 , 3) 

11181  Ri F_msn_tons (1,3) =Ri F_msn_tons (1,3)- (R_mlrs_cap (1-11,3) > 

11184  Tot_arty  (2,  I )  =Tat  arty  (2,  I )  *  (R_ml  rs  cap  ( 1-1 1 , 3)  ) 

11187  END  IF 
11190  NEXT  I 
11193  « 

11196  ! 

11199  Allocate  cFire:  !  SCHEDULE  INCOMING  COUNTERFIRE  MISSIONS 

11202  ! 

11205  !  MORTARS  DO  NOT  FIRE  COUNTERFIRE 

11208  FOR  1=8  TO  11 

11211  Bi F_msn_tons ( I , 4) =0 

11214  Ri F_msn_tons ( I , 4) =0 

11217  NEXT  I 

11220  ! 

11223  IF  Btl_rg>12000  OR  Btl  time<B_prep_time  THEN 
11226  FOR  1=1  TO  7 
11229  Bi F_F i red ( I , 4) =0 

11232  NEXT  I 
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11235  GOTO  Red_ar ty_cf i r e 
1 1230  END  IF 
11241  Bl ue_ar ty_cf ire:  1 
11244  FOR  1=1  TO  7 

11247  IF  Bif  msn_tons < I , 4> < B_ar ty_cap < I . 4 )  THEN 
1 1250  Bi f _f i red  < 1 , 4) =Bi F_msn_tons (1,4) 

11253  Bi f _msn_tons ( I , 4) =0 

1 1256  Tot_ar  ty  (1,1)  =Tot_arty  <1,  I)-*-Bif_fired(I,4) 

11259  ELSE 

11262  Bif _f ired  ( 1 , 4>  =B_arty.  cap  ( 1 , 4) 

1 1265  Bi f _msn_tons (1,4) =Bi f _msn_tons ( I . 4> - (B_arty_cap (1,4) > 

11268  Tot_arty ( 1 , I ) *Tot_arty ( 1 , I ) + <B_arty  cap(I,4)> 

11271  END  IF 
11274  NEXT  I 
11277  ! 

11280  Red_arty_cf ire:  ! 

11283  IF  Btl_rg >14000  OR  Btl _ti me<R_prep_t i me  THEN 
11286  FOR  1=1  TO  7 
11289  Rif _f ired  ( I , 4)=0 

11292  NEXT  I 

11295  GOTO  Bl ue_ml rs_cf ire 
11298  END  IF 
11301  FOR  1=1  TO  7 

11304  IF  Ri f _msn_tons (1,4) <R.arty_cap (1,4)  THEN 
1 1307  Ri f _f i red (1,4) =Ri f _msn_tons (1,4) 

11310  Ri f _msn_tons < I , 4) =0 

11313  Tot_arty (2,  I ) =Tot_arty (2. I ) +Ri f _f i red ( 1 , 4) 

11316  ELSE 

11319  Rif_fired(1 , 4) =R_arty_cap  < 1 , 4) 

1 1322  Ri f _msn_tons ( 1 , 4) =Ri f _msn_tons ( 1 , 4> - (R_arty_cap (1,4)  > 

1 1325  Tot_arty  <  2, I ) =Tot_arty  <2, I )  +  (R_arty_cap (1,4)) 

11328  END  IF 
11331  NEXT  I 
1 1 334  > 

11337  Bl ue_ml rs_cf i re: IF  Btl_rg >25000  OR  Bt I _ti me<B_prep_t l me  THEN 
11340  FOR  1=12  TO  15 
11343  Bif_fired(I,4> =0 

11346  NEXT  I 

11349  GOTO  Red_ml rs_cf i re 
11352  END  IF 
11355  ! 

11358  FOR  1=12  TO  15 

11361  IF  Bi f _msn_tons ( 1 , 4) < B_mlr s_cap <  I -1 1 , 4)  THEN 
1 1364  Bi f _f ired ( I , 4) =Bi f _msn_tons (1,4) 

11367  Bi f _msn_tons < I , 4) =0 

11370  Tot  ar  ty  <  1 ,  I  )  =Tot  arty  ( 1 ,  I  >  »-Bi  f  fired  (I.  4) 

11373  ELSE 

11376  Bif _f ir ed (I, 4)=B_mlrs_cap (1-11,4) 

1 1379  Bi f _msn_to’.s ( 1 , 4  >  =Bi f _msn_t ons (I,4)-(B_mlrs_cap(I-ll,4>) 

11382  Tot  ar  ty  ( 1 ,  I  >  =Tot  arty  <  1 ,  I )  ■*-  ( B_ml  r  s_cap  ( I -1  1 . 4  >  ) 

11385  END  IF 
113F.8  NEXT  I 
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•  1391  ' 

11394  Red_ml r s_cf i re:  !  CALCULATE  P^D  MRL  COUNTERFIRE 
11397  • 

11400  IF  Btl _rg >15500  OR  Btl_time< R  prep_time  THEN 

11403  FOR  1=12  TO  15 

11406  Rif_f ired < I,4>=0 

11409  NEXT  I 

11412  GOTO  Allocate  intd 

11415  END  IF 

11418  FOR  1=12  TO  15 

11421  IF  Ri  f  _msn_tons  ( 1 . 4)  <R_ml  rs_cap  <  1-1 1 , 4)  THEN 
1 1424  Ri  f  _f  i  red  ( 1 , 4)  =Ri  f _msn_tons  (1.4) 

11427  Rif  _(nsn_tons  <  1 , 4 )  =0 

1 1430  Tot_arty <2, I ) =Tot_arty (2, I ) +Ri f _f i red (1,4) 

1 1433  ELSE 

1 1436  Ri f _f ired  < 1 , 4) =R_ml rs_cap <1-1 1,4) 

1 1439  Ri f _«sn_ton* < I , 4) =Ri f _msn_tons ( I , 4) — (R_ml rs_cap (1—11,4)) 

11442  Tot~arty (2,1) =Tot_arty (2, T )  +  <R_ml r s_cap (1  —  11,4) ) 

11445  END  IF 
11448  NEXT  I 
11451  • 

11454  ! 

11457  All ocate_i ntd :  !  SCHEDULE  INCOMING  INTERDICTION  MISSIONS 

11460  ! 

11463  !  MORTARS  DO  NOT  FIRE  INTERDICTION 

11466  FOR  1=8  TO  11 

11469  Bi f _man_tons ( I , 5) “O 

11472  Rif_msn_tons(I,5)=0 

11475  NEXT  I 

11478  ! 

11481  IF  Btl_rg >12000  OR  Btl_time<B_prep_time  THEN 

11484  FOR  1=1  TO  7 

11487  Bi f _f ired  < I , 5) =0 

11490  NEXT  I 

11493  GOTO  Red_arty_i ntd 

11496  END  IF 

11499  Blue  arty_intd: ! 

11502  ! 

11505  FOR  1=1  TO  7 

11508  IF  Bi f _msn_tons ( I , 5) <B_arty_cap ( I , 5)  THEN 
11511  Bi f _f ired (1,5) =Bi f _msn_tons (1,5) 

11514  Bif _msn_tons < I , 5) =0 

11517  Tot_arty  < 1 , I >  =Tot_arty  <1, I)+Bif_fired(I,5> 

11520  ELSE 

1 1523  Bif_f ired (1,5) =B_arty_cap (1,5) 

1 1526  Bi f _msn_tons  < 1 , 5) =Bi f _msn_tons (1,5) - <B_arty_cap (1,5)) 

1 1529  Tot_arty (1,1) =Tot_arty  <1,  I )  +  (B_arty_cap ( I  ,  5) ) 

11532  END  IF 
11535  NEXT  I 
11538  ' 

11541  Red_arty_intd:  ! 

11544  IF  Bt  1  _rg  >  1 4000  OR  Bt  1  _t i  me<R_prep._t  i  me  THEN 
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11547  FOR  1=1  TO  7 
11550  Ri-f_-fired(I.5)=0 

11553  NEXT  I 

11556  GOTO  BI ue_ml r s_i ntd 
11559  END  IF 
1 1562  ! 

11565  FOR  1=1  TO  7 

11568  IF  Ri f _msn_tons ( I , 5) <R_arty_cap < I ,5)  THEN 
1 157 1  Ri f _f i red ( I , 5) =Ri f _msn_tons (1,5) 

11574  Ri  ■f  _msn_tons  ( 1 , 5)  =0 

1 1577  Tot_arty (2.1) =Tot_arty (2.1) +Ri f _f i red ( I , 5) 

1 1580  ELSE 

1 1583  RiF i red ( I , 5) =R_arty_cap (1,5) 

1 1586  Ri  (_msn_tons  (1,5)  =Ri  -f  _msn_tons  (1,5)-  (R_arty_cap  (1,5)) 

11589  Tot_arty (2, I ) =Tot_arty (2. I ) •+■ (R_arty  cap(I,5)> 

11592  END  IF 
11595  NEXT  I 
11598  ! 

11601  Blue_mlrs_intd:  IF  Btl _rq >25000  OR  Btl  time<B_prep_time  THEN 

11604  FOR  1=12  TO  15 

11607  Bi  F  _-f  i  red  (1,5)  =0 

11610  NEXT  I 

11613  GOTO  Red  mlrs  intd 

11616  END  IF 

11619  ! 

11622  FOR  1=12  TO  15 

11625  IF  Bi f_msn_tons ( I . 5) <B_mlrs_cap ( 1-1 1 , 5)  THEN 
1 1628  Bi  i  red  ( 1 , 5)  =Bi  -f  _msn_tons  (1,5) 

11631  Bi F _msn_tons ( I , 5) =0 

11634  Tot_arty ( 1 , I ) =Tot  arty ( 1 .  I ) +Bi F_f ired ( 1 . 5) 

1 1637  ELSE 

1 1640  Bi-f_fired(I,5)  =B_ml  rs_cap  (1  —  11,5) 

1 1643  Bi  -f  _msn_tons  (1,5)  =Bi  f  _msn_tons  (1,5)-  (B_ml  rs_cap  (1-11,5)) 

11646  Tot_arty ( 1 . I ) =Tot  arty ( 1 . I )  +•  ( B_ml r s_cap ( I - 1 1 . 5 ) ) 

11649  END  IF 
11652  NEXT  I 
11655  ! 

11658  Red_mlrs_intd:  !  CALCULATE  RED  MRL  INTERDICTION 

11661  ! 

11664  IF  Bt 1 _r g > 1 5500  OR  Btl _time<R_prep_time  THEN 
11667  FOR  1=12  TO  15 
11670  Ri  4  _-f  i  red  ( 1 , 5)  =0 

11673  NEXT  I 

11676  GOTO  End  artv_arrive 

11679  END  IF 

11682  FOR  1=12  TO  15 

11685  IF  Ri 4 _msn_tons ( I , 5) <R_ml rs_cap ( I -1 1 , 5)  THEN 
1  1688  Ri-f_Fired(I,5)=Ri  f  _msn_tons  (1,5) 

11691  Ri -f  _msn_tons  ( 1 , 5)  =0 

1  1694  Tot  _ar  tv  (2.  I)=Tot._arty(2,  I)  +Ri  f  _-f  i  red  ( 1 , 5) 

11697  ELSE 

1  1 700  Ri-f_-fired  ( 1 .5)  =R<nlrs_cap  ( 1-1  1 ,5) 
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1 1703  Ri  -f  _msn_tons  ( 1 , 5) =Ri  ■f  _msn_tons  (1,5)  —  <R_ml  rs_cap  < I -1 1 , 5) ) 

11706  Tot  arty <2.  I ) =Tot_arty (2. I )  +  (R_ml r s  cap<I  — 11.5)) 

11709  END  IF 

11712  NEXT  I 
11715  * 

11710  ! 

11721  End_arty_arri ve: RETURN 
11724  > 

11727  1  - 

1 1 730  ! 

11733  Calc_moveraent:  THIS  SBR  CALCULATES  ATTACKER  MOVEMENT  DISTANCES  DURINt 

11736  (  THE  DESIGNATED  30  MINUTE  PERIOD 

11739  ! 

11742  Prev30_btl _rq=Bt 1 _r q 
11745  1 

11740  !  SET  NUMBER  OF  MINUTES  ADVANCED 
11751  IF  Mine_delay<30  THEN 

1 1754  Move_mi nutes=30-Mi ne_del ay 
11757  ELSE 

11760  Move_mi  nutes=0 

11763  Mi ne_del  ay=Mi  ne_del ay-30 

11766  END  IF 

11769  ! 

11772  1  SET  UNSUPPRESSED  ADVANCE  RATE  PER  MINUTE 

11775  IF  Atk_de-f  =0  THEN 

11770  Mission=R  msn ( 1 ) 

11701  ELSE 

11704  Mission=B  msn ( 1 ) 

11707  END  IF 

11790  1 

11793  IF  Btl_phase=l  THEN 
11796  Phase= 1 
11799  ELSE 
11002  Phase=3 
11005  END  IF 
1 10O0  ! 

11011  M_per_mi nute=Ad vane e_r ate (Pbase+Ri de, Mi ssi on ) 

11014  Unsupp_advance=M  per _mi  nute*Move_mi nutes 
11017  ! 

11020  '  CALCULATE  SUPPRESSION  FROM  CASUALTIES  (UP  TO  407.) 

11023  '  67.  CASUALTIES  IN  THE  PREVIOUS  GAME  TURN  WILL  CAUSE  MAX 

11026  '  MOVEMENT  SUPPRESSION 

11029  ! 

11032  IF  Atk_de-f  =0  THEN 

11035  Casual  ty_l  evel  =  (Prev30  r_e-f  t  /  Ini  t_r_e+  i  )  -Curr  _r  e-f-f 
11838  ELSE 

11841  Casual  ty_l  evel  =  (F'rev30  b_et'f  /  Ini  t_b_e-f-f  ) -Curr  _b  e-f-f 
11844  END  IF 

11847  IF  Casual ty_l evel  >. 06  THEN  Casual ty_ 1 evel  =  . 06 
11850  Cas  suppr =. 40*Casual ty  level/. 06 
11853  1 

11056  •  CALCULATE  SUPPRESSION  FROM  ARTILLERY  (UP  TO  307.) 
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11859  !  DS  AND  COUNTERPREP  SUPPRESS  ATTACKER  MOVEMENT 

11862  !  A  SINGLE  155mm  EQUIV  MISSION  SUPPRESSES  A  CO- 

11865  !  SIZED  ELEMENT  FOR  5  MINUTES 

11868  ! 

11871  IF  Atk_det=0  THEN 
1 1874  Si de=4 
11877  ELSE 
11880  Si de=2 
11883  END  IF 
11886  * 

11889  *  TALLY  SYSTEMS  TO  BE  SUPPRESSED 

11892  Tot_systems=0 

11895  FOR  1=1  TO  20  ■  TALLY  DIRECT  FIRE  PLATFORMS 

11898  Tot  systems=Tot  systems+Sys  tot (Side, I) 

11901  NEXT  I 

11904  FOR  1=36  TO  47  !  TALLY  SMALL  ARMS  (INFANTRY) 

11907  Tot  systems=Tot  systems+Sys_tot (Side, I > /8 
11910  NEXT- I 
11913  ! 

11916  !  TALLY  AMOUNT  OF  INCOMING  FIRE 

11919  IF  Atk_d@t=0  THEN 
11922  FOR  1=1  TO  7 

1 1925  Incomi  ng_arty  ( I )  =Bi t_t ired  (1,1)  +Bi  t  _t  ired  (1.2) 

11928  NEXT  I 
11931  FOR  1=1  TO  4 

11934  Incoming_mlrs(I)=Bit  tired ( 1+1 1 . 1 ) 

11937  NEXT  I 
11940  FOR  1=1  TO  4 

11943  Incomi  ng_mort  ( I )  =Bi  t  t  ired  ( 1+7.  1 )  +Bit  tired  ( 1+7,2) 

11946  NEXT  I 

11949  ELSE 

11952  FOR  1=1  TO  7 

1  1955  Incoming  arty  ( I )  =Ri  t_t  ired  ( I  .•  1 )  +Ri  t_ti  red  ( 1 , 2) 

11958  NEXT  I 
11961  FOR  1=1  TO  4 

1 1964  Incomi ng_ml r s < I >  =Rit_t ired ( 1  +  1 1 . 1) 

11967  NEXT  I 
11970  FOR  1=1  TO  4 

1 1973  Incomi ng_mort ( I ) =Ri t_t i red ( I +7. 1 >  +Ri t_t i red ( 1+7, 2) 

11976  NEXT  I 
11979  END  IF 
11982  ! 

11985  !  TALLY  155mm  MISSION  EQUIVALENTS 

11988  Arty_equiv=0 
11991  Mort_equiv=0 
11994  Mlrs_equiv=0 

11997  FOR  1=1  TO  7  ! NEED  TO  CHANGE  NO.  OF  TONS  W/IN  TYPES?? 

12000  Ar ty_equi v=Ar t y_equi v+ Incomi ng  artv(I)/1.8  '  1 . 8=T0NS  IN  1  FA  155mm  M? 

12003  NEXT  I 
12006  FOR  1=1  TO  4 

12009  Mort_equi v=Mort_equi v+Incomi ng_mort ( I ) / 1 . 2  !  1 . 2=T0NS  IN  A  MORTAR-  155r 

EQUIV 
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12012  NEXT  I 
12015  FOR  1=1  TO  4 

120 IS  Ml  rs_equi  v=Ml  r s_equ i v+Incominq_mlrs(I>/1.8 
12021  NEXT  I 

12024  Tot_i ncom_msn=Ar ty_equi v+Mort_equi v+Ml rs_equi  v 
12027  ' 

12030  !  TALLY  NUMBER  OF  COMPANY  EQUIVALENTS 

12033  Arty_l evel =0 

12036  IF  Tot_incom_msn=0  THEN  GOTO  Hel o_suppress 
12039  Company_equiv=Tot_sy stems/ 28 
1 2042  Ar ty_l evel =Tot_i  ncom_msn /Company_equi v 
12045  • 

12048  !  COMPUTE  ARTY  LEVEL 

12051  IF  Arty_level>6  THEN  Arty_level=6 

12054  ! 

12057  !  COMPUTE  ARTILLERY  SUPPRESSION 

12060  IF  Atk_def =0  THEN 
12063  Arty_suppr=Arty_level *. 30/6 
12066  ELSE 

12069  Arty_suppr=Arty_l evel * . 40/6 
12072  END  IF 
12075  ! 

12078  !  CALCULATE  SUPPRESSION  FROM  ATK  HELICOPTERS  (UP  TO  207.) 

12081  !  ONE  ATTACK  HELICOPTER  WILL  SUPPRESS  THE  MOVEMENT 

12084  •  OF  12  VEHICLES 

12087  Hel o_suppr ess :  ! 

12090  Tot_vehi cl es=0 

12093  IF  Atk  det=0  THEN 

12096  Si de=4 

12099  ELSE 

12102  Si de=2 

12105  END  IF 

12108  FOR  1=1  TO  20 

12111  Tot_vehi c 1 es=Tot_veh i c 1 es+Sys_tot (Side, I) 

12114  NEXT  1 

12117!  Tot_vehi cl es=T ot_vehi c  1  es*-.  5*Sys_tot  (Side.  49)  *■.  20*Sys_tot  (Si 
12120  IF  Atk_de-f  =0  THEN 
12123  Atk  helos=Bah 1+Bah2 
12126  ELSE 

12129  Atk_hel os=Rah 1 +Rah2 

12132  END  IF 

12135  Atk_helo_level =0 

12138  IF  Tot_vehicles=0  THEN  GOTO  Atkhelo_s 
12141  At k_helo_ level  =  12*Atk_hel  os/Tot_vehicl es 
12144  IF  Atk_hel o_l evel >1  THEN  At k_hel o_l evel = 1 
12147  Atkhelo_s:  ' 

12150  Atkhelo  suppr=Atk_hel o_l evel * . 30 
12153  ! 

12156  Tot_move_suppr =Cas_suppr ■►Ar ty_suppr +At khel o_suppr 
12159  ' 

12162  !  CALCULATE  AMOUNT  OF  ADVANCE 

12165  * 
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12168 
12171 
12174 
12177 
12180 
12183 
12186 
12189 
12192 
12195 
12198 
12201 
12204 
12207 
12210 
12213 
12216 
12219 
12222 
12225 
12228 
12231 
12234 
12237 
12240 
12243 
12246 
1 2249 
12252 
12255 
12258 
12261 
12264 
12267 
12270 
1 2273 
12276 
12279 
12282 
12285 
12288 
12291 
12294 
12297 
1 2300 
12303 
1 2306 
POINT" 
1  2309 
12312 
12315 
12318 


Table  6-14.  Ground  combat  code  (continued). 

Amt  _o-f  _ad vane e=Unsupp_ad  vance*  <  1  -Tot  _move__suppr  ) 

I 

RETURN 


Mi ne_encounter :  !  THIS  SBR  CHECKS  FOR  MINEFIELD  ACTIVATION 

I 

Mi  ne_hi  t<=0 

IF  No_mi ne-f  i  el  ds=0  THEN  End_mine_encoun 

FOR  1*1  TO  No_mine-f  ields 

IF  Btl_rg-Amt_o-f_advance<Mi  nef  i  el  d  <  1 ,  1  >  AND  Mi  nef  i  el  d  ( 1 . 6)  =0  THEN 
!  MINEFIELD  ENCOUNTERED  WHICH  HAS  NOT  BEEN  ASSESSED  BEFORE 
Mine_hi t=I 

I 

!  CALCULATE  MINE  DELAY  AND  SET  MINE  TACTIC 
SELECT  Atk_de-f 

CASE  O  ! RED  IS  ENTERINO  MINEFIELD 
Mine_vic*=MRED" 

!  CHECK  FOR  OVER  KILL  BY  MINES 
IF  (Curr_r_ef  -f-R_cas_break)  <  .  05  THEN 
IF  Mine-field  <  l7l  >  >D-f_rg  THEN 
Mine  delay=30 
ELSE 

Mi ne_del ay*45 
END  IF 
Bui _bch=0 
GOTO  Mine  clear 
END  IF 

CASE  1  !  BLUE  IS  ENTERING  MINEFIELD 
Mi  ne_vi  c**‘‘BLUE" 

!  CHECK  FOR  OVERKILL  BY  MINES 
IF  < Curr _b_ef  f — B_cas_break ) < • 05  THEN 
SELECT  Btl_phase 
CASE  1 

Mi ne_del ay«30 
CASE  273 

Mi ne_del ay=45 
END  SELECT 
Bui  _bch«=0 
GOTO  Mi ne_cl ear 
END  IF 
END  SELECT 
GOTO  Bui  1 _or _breach 

Mine_clear:  ! 

PRINT 

PRINT  "  " ; Mine_vic*; "  ENCOUNTERS  MINEFIELD  WITH  CASUALTIES  NEAR  BR 

PRINT 

PRINT  "  " ; Mi nevi c*; "  STOPS  TO  CLEAR  MINEFIELD" 

GOTO  End_delay 

Bui  1 _or  breach :  1 
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12321  IF  Minefield ( I , 1 ) >Df_rg  THEN 
12324  Max  _del  ay=30 

12327  Bui _bch=2 

12330  Mi ne_tac*=” BREACH" 

12333  ELSE 

12336  Ma>:_del  ay=10 

12339  Bui ~bch=l 

12342  Mine_tac*=" BULL  THROUGH" 

12345  END  IF 

1 2348  Mine_del ay=Max  _del ay*Minef i el d  <Mine_hit,2) /Minefield (Mi ne  hi t . 3) *Mi ne 

eld (Mi ne_hi t, 4  > / 1 00 
12351  "PRINT 

12354  PRINT  »  " ; Mi ne_vi c*; "  ENCOUNTERS  MINEFIELD" 

12357  PRINT 

12360  PRINT  "  " ;Mine_vic*; "  ELECTS  TO  " : Mi ne.tac*: "  MINEFIELD" 

12363  End_delay:  1 

12366  Prnt_mn_dl ay=Mi ne_del ay 

12369  GOTO  End_mi ne_encoun 

12372  END  IF 
12375  NEXT  I 

12378  End_<ni ne_encoun :  ! 

12381  RETURN 
12384 

12387  !  - 

1 2390  ! 

12393  Phasel_btl :  '  THIS  SBR  CONDUCTS  THE  ATTRITION  ASSESSMENTS  FOR  THE 

12396  1  PHASE  1  (PRE-CLOSURE  FIRE>  BATTLE 

1 2399  ! 

12402  Phase_ct <1 ) =Phase_ct < 1 )+l  ! COUNTS  NUMBER  OF  30MIN.  INTERVALS  OF  THIS  PHA 

12405  Del_blue=0 

12408  Del  red=0 

12411  GOSUB  Phase.int 

12414  !  **  MINEFILD  PORTION  OF  PHASE  I  ** 

12417  •  CHECK  FOR  MINEFIELD  ASSESSMENTS 

12420  IF  Mi ne_hi t=0  THEN  GOTO  Run_arty 

12423  IF  Minefield (Mine_hit,6)=l  THEN  GOTO  Run_arty 

12426 

12429  GOSUB  Run_mine 
12432  ' 

12435  ! 

12438  Run_arty :  !**  ARTILLERY  ATTRITION  OF  PHASE  I  ** 

12441  1 

12444  'CHECK  ON  INDIRECT  FIRE  USED  THIS  PHASE 
12447  Blue_aty=0  'BLUE  FIRE  FLAG 

12450  Red_aty=0  ! RED  FIRE  FLAG 

12453  FOR  1=1  TO  15 
12456  FOR  J=1  TO  5 

12459  IF  Bif _f ired ( I , J) >0  THEN  Blue_atv=l 

12462  IF  Ri f  _f i red ( I . J  > >0  THEN  Red_aty=l 

12465  NEXT  J 
12468  NEXT  I 
12471  ' 
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12474 
12477 
12480 
12483 
1  2486 
12489 
12492 
12495 
12498 
12501 
12504 
12507 
12510 
12513 
12516 
12519 
12522 
12525 
12528 
12531 
12534 
12537 
12540 
12543 
12546 
12549 
12552 
12555 
1  2558 
12561 
12564 
12567 
12570 
12573 
12576 
12579 
12582 
12585 
12588 
12591 
12594 
12597 
1 2600 
1 2603 
12606 
12609 
12612 
12615 
12618 
12621 
12624 
12627 


! SET  PARAMETERS  FOR  ARTY. 

IF  Blue_aty=0  AND  Red_aty=0  THEN  GOTO  Direct._li  re 

I 

GOSUB  Arty_sub 

i 

Direct_-f  ire:  !  **  DIRECT  FIRE  PORTION  OF  PHASE  I  ** 

IF  Atk  det  =0  THEN 


A_pct_-fwd=R_pct_-fwd  !  RED  ATTACKER  SET  ATTACKER  FORWARD 

D_pct_'fwd=B_pctI-fwd  'BLUE  IS  DEFENDER 

ELSE 

A_pct_-fwd  =  B_pct  _-fwd  !  BLUE  ATTACKER 

D_pct_fwd*=R_pct_-fwd  'RED  DEFENDER 

END  IF 
FOR  1=1  TO  2 
FOR  J=1  TO  3 

Cell <1.2. J)=0  'ZERO  OUT  RED  &  BLUE  HELO"S  CELLS 

NEXT  J 
NEXT  I 

Cell  <1,1,1  )«=Bahl  ! LOAD  UP  CELLS 

Cell <1, 1,2) =Bah2 

Cell <1, 1.3>«Bsct 

Cell <2, 1, 1 ) =Rah 1 

Cell <2, l,2)=Rah2 

Cell <2, 1,3) =Rsct 

CALL  Hel  o_  range  (Cell  <  *  )  .  Hel  o_mis(*>  ,Stnd_o-f-f_rg  (*)  )  'CALCULATE  RANGES 

i 

•  IF  DEFENDER  HAS  NO  FORCES  FORWARD  THEN  THERE  WILL  BE  NO  DIRECT  FIRE 
'BATTLE  IN  PHASE  I. 

IF  D_pct_Fwd=0  THEN  GOTO  Helo_atrit 
« 

'DEFENDER  IS  FORWARD.  DETERMINE  IF  DEFENDER  PULLED  BACK  FOR  ATTRITIQ 
IF  Atk_det =0  THEN  ! RED  IS  DEFENDER 
'CALCULATE  FP  SCORE 

CALL  Fwd-f  p  (Sys_tot  <*)  .Bf_mask  <*)  ,Atk_de+,D_pct_+  wd  .Dtp,  Sys_e+  -f  <  *  )  ) 
ELSE  ! BLUE  IS  DEFENDER 

'CALCULATE  FP  SCORE 

CALL  FwdFp  <  Sys_tot  <  *  )  .  R-f  _mask  (  *  )  ,  At  k  _deF  .  D_pct  wd  ,D_+p.Sys_e-f  +  (*)  ) 

END  IF 


'ZERO  OUT  RED  &  BLUE  HELO"S  CELLS 


! LOAD  UP  CELLS 


IF  D_Fp >. 25  THEN  GOTO  Start^direct 
PRINT 

PRINT  "  FORWARD  FORCES  ATTRITED  TO  ":D  fp 
PRINT 

PRINT  "  NO  DIRECT  FIRE  PHASE  I  BATTLE  IN  STEP  " : Phase_ct ( 1 ) 
GOTO  Helo_atrit 

i 

Start_di rect :  ' 

IF  A_pct_-f wd<  >0  THEN  GOTO  Attack_Fwd 

t 

'ATTACKING  MAIN  BODY  ;  SET  UP  ARRAY 
IF  Atk _de+  =0  THEN  GOTO  Red  attck 
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12630  FOR  1=1  TO  70  ! SET  UP  BLUE  MAIN  BODY 

12633  Sys  (1,1)  =Sys_tot  <2,  I )  *Bdf  _mask  (1,1)  *B_dt_t  (B_ms,  I ) 

12636  Sys  <5,  I  >=Sys_tot  (2,  I)  *BdT  .mask  <1 .  I )  *B  -f  <B  ms,  I) 

12639  NEXT  I  • *******  ANTI-ARMOR 

12642  FOR  1=1  TO  70  ! SET  UP  RED  ELEMENTS 

12645  Sys (3, I ) =Sys_tot (4,1) *Rf _mask ( I ) *D_pct_fwd 
12648  Sys (6,1) =Sys (3,1) 

12651  NEXT  I 

12654  ! SET  UP  VULNERABILITY — ASSUME  MAIN  BODY  WILL  HAVE  GIVEN  VULNERABI LI T > 

12657  FOR  1=1  TO  70 

12660  Blue_vul ( I > =B_v (B_ms, I) 

12663  Red_vul (I >=.25  ! RED  DEFENDERS  FORWARD 

12666  NEXT  I 

12669  GOTO  Call_dt_cbt 

12672  Red_attck:  !  RED  ATTACKING  WITH  NO  FORCES  FORWARD 

12675  FOR  1=1  TO  70  f SET  UP  RED  MAIN  BODY 

12678  Sys  (3,1)  =Sys_tot  (4,  I  >  *RdT_mask  ( 1 .  I)  *R_d-f_t  (R_ms.  I) 

12681  Sys  (6,  I )  =Sys_tot  (4,1)  *RdT  mask  ( 1 .  I )  *R_d-f  t(R_ms,I> 

12684  NEXT  I 

12687  FOR  1=1  TO  70  ! SET  UP  BLUE  ELEMENTS 

12690  Sys ( 1 , I )=Sys_tot (2,1) *BT _mask ( I ) *D_pct_Twd 
12693  Sys (5, I ) =Sys7 1 , I > 

12696  NEXT  I 

12699  Sys (1,5) =0  ! TEMPORARY  CODE  FOR  HTLE/ADEA  ONLY 

12702  FOR  1=1  TO  70 

12705  Red_vul ( I ) =R_v (R_ms, I ) 

12708  B1  ue_vt.il  (  I )  =.  25 

12711  NEXT  I 

12714  GOTO  Cal  1  __d-f_cbt 

12717  Attack  -fwd:  !  BOTH  ATTACKER  AND  DEFENDER  HAVE  FORCES  FORWARD 

12720  FOR  1=1  TO  70 

12723  Sys  (1,1)  =Sys_tot  (2.  I )  *B-f  _mask  ( I )  *B_pct_-f  wd 
12726  Sys (5, I ) =Sys (1,1) 

12729  Sys  (3,  I )  =Sys_tot  (4,  I)  *R-f  _mask  ( I  >  *R_pct_-fwd 
12732  Sys (6,1) =Sys (3,1) 

12735  NEXT  I 

12738  Sys (1,5) =0  ! TEMPORARY  CODE  FOR  HTLD/ADEA  ONLY 

12741  FOR  1=1  TO  70 

12744  Red_vul (I >=.25  ! ASSUME  BOTH  RED  AND  BLUE 

12747  B1  ue_vul  ( I )  =  .  25  !  ELEMENTS  FORWARD  HAVE  ONLY  257.  EXOPSED 

12750  NEXT  I 
12753  ! 

12756  ! NOW  CAL  GROUND  ATTRITION  ;  NOTE-ONLY  HANDLING  1  RANGE  BAND  AT  2000M 

12759  Cal  1 _dt_cbts  1 

12762  Bt 1 _phase= 1  ! BATTLE  PHASE  1 

12765  f SET  RANGE  BAND 
12768  SELECT  Vis 
12771  CASE  1  TO  2 

12774  Rng_band=4  ! ENGAGEMENTS  AT  2000m 

12777  CASE  3 

12780  Rng_band=3  ! ENGAGEMENTS  AT  1500m 

12783  CASE  4 
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12786  Rng_band=l  ‘ENGAGEMENTS  AT  0  TG  500m  FOR  1  Fm  DAY 

12789  END  SELECT 

12792  Terrain=B_terr  (FIGHT  ON  DEFENDERS  TERRAIN 

12795  IF  AtF_de-f  =  1  THEN  Terr ai n=R_t err 
12798  Num_bands=. 5  ! ONLY  HALF  A  RANGE  BAND 

12801  GOSUB  Df _cbt 
12804 ! 

12807  Helo_atri t:  !  **  HELICOPTER  ATTRITION  FOR  PHASE  I  ** 

12810  IF  Bah  1 +Bah2+Bsct<  =0  AND  Rahl+Rah2+Rsct<=0  THEN  GOTO  No_helol 
12813  ! LOAD  CELL  SIZES 

12816  Arty (1) =2  I  ARTILLERY  NOT  SHOOTING 

12819  Arty (2) =2 

12822  Veh_ada ( 1 >  =Bveh_sup  (SUPPRESSION  OF  VEHICULAR  HAND-HELD  ADA 

12825  Veh_ada (2) =Rveh_sup 

12828  Hnd_ada ( 1 ) =Bhnd_sup 

12831  Hnd_ada (2) =Rhnd_sup 

12834  T i me_step= 1 5 

12837  (SET  VULNERABILITY  OF  RED  TARGETS 

12840  IF  L_blue_helos=Phase_ct <1>-1  THEN 

12843  Del  _red=Del  _red+l 

12846  ELSE 

12849  Del _red=0 

12852  END  IF 

12855  Lb 1 ue_hel os=Phase_ct ( 1 ) 

12858  FOR  1=1  TO  70 

12861  P_det  <2,  I)=R_v(R_ms,  I )  -t-Del  _red#R_dv  (R_ms.  I> 

12864  IF  P  det  < 2 . 1 7< . 1  THEN  P_deF (2, I > = . 1 
12867  IF  P“de-f  <2.  I)  >.9  THEN  P_det  <2,  I  >  =.  9 
12870  NEXT  I 

12873  'SET  VULNERABILITY  OF  BLUE  TARGETS 

12876  IF  L_red_hel os=Phase_ct  < 1 > -1  THEN 

12879  Del_blue=Del  blue+1 

12882  ELSE 

12885  Del_blue=0 

12888  END  IF 

12891  L_red_hel os=Phase_ct < 1 ) 

12894  FOR  1=1  TO  70 

12897  P_de-f  <1.  I)=B_v(B_ms.  I )  +Del  _blue*B_dv  (B,ms,  I) 

12900  IF  P_def  (l.IX.l  THEN  P_de?  ( 1 ,  I )  =.  1 
12903  IF  P_deF  (1.  I)  >.9  THEN  P_de-f  ( 1 ,  I )  = .  9 
12906  NEXT  I 

12909  !  - PREPARE  FORCES 

12912  FOR  1=1  TO  70  (RED  GROUND  TARGETS 
12915  Target  <1 . I >=Sys_tot (4, I >  *R_dt_t  <R_ms, I ) 

12918  Target (2,1) =0 

12921  Hel o_tgt ( 2 , 1 , I ) =Target ( 1 . I )  (PASSED  TO  HELO_KILLS  (INITIAL  NO.) 

12924  HelcTtgt (2,2, I > =0  (REMAINING  NO  OF  TGTS 

12927  NEXT  I 
12930  ! 

12933  'APPORTION  RED  AD  AMMO  BASED  ON  RED  TARGET  ELEMENTS 
12936  1  RED  AD  SYSTEMS 

12939  Adsi de=2 
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12942  Ad_ammo=R_ad_ammo 

1 2945  CALL  Hel  o_ammo  <Sys_tot ( * ) .Target ( * ) , Ad si de, Ad  ammo. Ad  he l n ( 2  > , Basi c  1 d ( * 
Ammo_wt ( * ) ) 

12948  Ad  sv ( 2 ) =Ad_hel a ( 2 ) 

12951  Sided=2 

12954  FOR  1=1  TO  70 

12957  H_tarq (3, I > =Target ( 1 . I ) 

12960  NEXT  f 

12963  CALL  Dismount  (H_targ  (  * )  ,  R_1  d_F  act ,  F:_msn  ( 1 )  , Si  ded,  Btl  _rg .  Remount ,  R_dmount 
12966  CALL  Appor t_i nF (Target (*>, 1 , R_dmount > 

12969  ! RED  HELOS — PREPARE  BLUE  FORCES 

12972  FOR  1=1  TO  70 

12975  Target (1,1) =Sys_tot (2,1) *B_dF_t (B_ms, I ) 

12978  Target <2, I ) =0 

12981  Hel o_tqt (1,1,1) =Tar get (1,1)  ‘PASSED  TO  HELO_KILLS  (INITIAL  NO.) 

12984  Hel o_tgt (1,2.  I ) =0  ! REMAINING  NO  OF  TGTS 

12987  NEXT  I 

12990  'APPORTION  BLUE  AD  AMMO 

12993  !  BLUE  AD  SYSTEMS 

12996  Arisi de=l 
12999  Ad_ammo=B_ad_ammo 

1 3002  CALL  Hel o_ammo (Sys_tot (*) ,  T ar get ( * ) , Ad si de. Ad_ammo, Ad_hel o(l) ,Basic_ld(# 
Ammo_wt.  (  *  )  > 

13005  Adsv ( 1 >=Ad_hela ( 1 ) 

13008  DF _ammo ( 1 ) =B_dF  ammo 

13011  D-f_ammo  (2)  =R_dF_ammo 

13014  Sided=l 

13017  FOR  1=1  TO  70 

13020  H  tar g ( 1 , I ) =Target ( 1 . I > 

13023  NEXT  I 

13026  CALL  Dx  smount (H_targ ( * ) . B_1 d_+ act , B_msn ( 1 ) , Si ded, Bt 1 _rg , B  .mount . B_dmount 
13029  CALL  Appor t _i  nF ( Tar get ( * ) , 1 , B_dmqunt ) 

1 3032 1 

1 3035  CALL  Hel o_kxlls(Cell  ( *  )  , Hel  o_tgt ( *  > , Ad  _hel o ( * ) , Terr . At k_pr oF ( * )  . Hel o_mi s 
) , Day_ni te, Ti me  step  ,  P_deF ( * ) , Ar ty ( *  > , Veh_ada ( * ) . Hnd_ada (#) . Stnd  _oF  F  _r q ( *) .Vis 
13038' 

13041  R_ad_ammo=R_ad_amma- (Ad_sv (2) -Ad_hel o (2) ) 

13044  B_ad_ammo=B_ad_ammo— ( Ad_sv ( 1 > -Ad_hel o ( 1 > ) 

13047  B_dt_ammo=DF_ammo ( 1 ) 

13050  R_dt_ammo=D+_ammo (2) 

1 3053  ' 

13056  'STORE  KILLS  AND  SUBTRACT  BLUE  HELICOPTERS 

13059  FOR  Si de= 1  TO  2 
13062  FOR  1=1  TO  70 

1 3065  Sys_hel o (Si de, I >  =Hel o_tgt (Side,  1 . I ) -Hel o_tat (Si de . 2 . I ) 

13068  NEXT  I 

13071  IF  Side=l  THEN  CALL  In+ _sur v i ve ( H_t ar g ( * ) . 1 , Svs_hel o ( # > , 1 , B_1 d_ F act . I n+ 
ur  v ( *  )  ) 

13074  IF  Si  de=2  THEN  CALL  I nF_sur vi  ve  (H_tar g  (  *  )  .  3,  Sys  hel  o  (  *  )  .  2 .  R_1  d_F  ac t. .  I nF 
urv(D) 

13077  FOR  1=36  TO  40 

1  3'.)8i »  Sys  hel  n  (Side,  I  )  =Sys_hel  o  (Side,  I  )  + 1  nF  _surv  (  I  —  35) 
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Table  6-14.  Ground  combat  code  (continued). 

13083  NEXT  I 
13086  NEXT  Side 

13089  IREMOVE  HELOS  (ATTACKING  AND  DEFENDING) 

13092  FOR  1=1  TO  3 

13095  B_hel o ( I ,2) =B_helo (1.2) +Cel  1  (1.1. I) -Cell (1,2.1) 

13098  R_hel o ( 1 , 2) =R  helot  1 , 2) +Cel 1  (2, 1 , I ) -Cel  1 (2. 2, I ) 

13101  NEXT  I 

13104  ! SUBTRACT  SYSTEM  LOSSES 

13107  FOR  1  =  1  TO  70 

13110  Sys_tot(2, I >  =Sys_tot (2, I ) -Sys_hel o ( 1 . I) 

13113  Sys_tot (4, I ) =Sys_tot (4, I ) -Sys_hel o (2, I) 

13116  NEXT  I 
13119  No_helol:  ! 

13122  « 

13125  !  **  PGM  PORTION  OF  PHASE  I  ** 

13128  ! SET  UP  CLGP  AND  GAMP  ARRAY  FACTORS 

13131  FOR  1=1  TO  70 

13134  Gamp_-fact (I)=R_df_t (R_ms, I) 

13137  Clgp^-fact ( I ) «2*R_pct_f wd 

13140  IF  R_pct_fwd=0  THEN  Cl gp_f act ( I ) =R_df _t (R_ms, I ) *2 
13143  IF  Clgp_-f  act  ( I )  >1  OR  Clgp_rpv=l  THEN  Cl  gp_-f  act  ( I )  =1 
13146  NEXT  I 

13149  GOSUB  Clgp_gamp_atrit 
13152  ! 

13155  GOSUB  Updatek_v 
13158  * 

13161  End  phase 1  btl : RETURN  !  t*  END  BATTLE  PHASE  I  ** 

13164  * 

13167  ! - 

13170  ! 

13173  Phase2_btl:  !  THIS  SBR  ASSESSES  ATTRITION  IN  THE  PHASE  2  (DIRECT  FIRE) 
13176  • 

13179  Phase_ct (2) =Phase_ct (2) +1  ! COUNT  NUMBER  OF  30  MIN  INTERVALS  IN  PHASE 

13182  Btl _phase=2 

13185  GOSUB  Phase_int  ! ZERO  ALL  KILL  ARRAYS  FOR  THIS  30  MINUTES 
13188  ! 

13191  !  **  MINEFIELD  PORTION  OF  PHASE  II  ** 

13194  IF  Mi ne_hi t=0  THEN  GOTO  Arty_phase2 

13197  IF  Mine-field  (Mine_hi  t ,  6)  =1  THEN  GOTO  Arty_phase2 

13200  GOSUB  Run_mine 

13203  Arty_phase2:  !  **  ARTILLERY  PORTION  OF  PHASE  II  ** 

1 3206  ! 

13209  ! CHECK  ON  INDIRECT  FIRE  USED  IN  THIS  PHASE 

13212  81 ue_aty=0  'BLUE  FIRE  FLAG 

13215  Red_aty=0  '.RED  FIRE  FLAG 

13218  FOR  1=1  TO  15 
13221  FOR  J=1  TO  5 

13224  IF  Bif_-fired  (I,  J)  >0  THEN  Blue_aty=l 
13227  IF  Ri  f  _-f  i  red  <  I ,  J  )  >0  THEN  Red_aty=l 
13230  NEXT  J 
13233  NEXT  I 

13236  IF  Blue_aty=0  AND  Red_aty=0  THEN  GOTO  Dir_fir2 
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13239  GOSIJB  Arty_sub 

13242  Di  r  -f  l  r 2:  !  **  DIRECT  FIRE  PORTION  OF  PHASE  II  ** 

13245  ! SET  UP  FORCES  FOR  TARGETS  IN  DIRECT  FIRE 

13248  Del _30=Phase_ct (2) -1 

13251  GOSUB  Col  lect_trucks  TEMPORARY  CODE  FOR  HTLE/ADEA  ONLY 
13254  FOR  1=1  TO  70 

13257  Red_+ ct=R_+ <R_ms, I ) +Del  _30*R_d-f <R_ms. I) 

13260  Blue_fct=B_f  (B_ms,  I  > -t-Del  _30*B_d-f  (B  ms,  I) 

13263  IF  Red_Fct  >. 95  THEN  Red_Fct=.95 

13266  IF  B1 ue_f ct  >. 95  THEN  Blue_F ct=. 95  !ADJUST  FIRERS  FOR  THIS  30  MIN 

13269  IF  Blue_Fct< . 05  THEN  Blue_Fct=.05 
13272  IF  Red_f ct< . 05  THEN  Red_Fct=. 05 

13275  Sys (5,1) =Sys_tat (2, I ) *BdF _mask (Balb, I ) *Blue_Fct  ‘SET  #  BLUE  FIRE 

13270  Sys(6, I)=Sys_tot <4, I ) *Rdt_mask (Ralb, I ) *Red_fct  'SET  #  RED  FIRE 

13281  'CALCULATE  #  OF  SYSTEMS  WHICH  ARE  TARGETS 

13204  Red_F_t  ( I )  =R_dF_t  <R_ms,  I  )  +Del  _30*R_df _dt  <R_ms,  I ) 

13207  Blue_F_t (Il=B_dF_t <B  ms, I > +Del _30*B  dF_dt (5_ms, I > 

13290  IF  Red_F_t ( I ) >1  THEN  Red_f _t < l7=l 

13293  IF  Blue_F_t  < I ) >1  THEN  Blue_F  t(I)*l 

13296  IF  Red_F_t  (IX.05  THEN  Red_F^t  (I)=.05 

13299  IF  B1  ue_7_t  (IX.  05  THEN  Blue_F_t  ( I)  =.  05 

13302  Sys  < 1 , I) =Sys_tot  <2, I ) *B1 ue_F ~t 7l >  *BdF_mask (Balb. I ) 

13305  Sys <3, I ) =Sys_tot (4, I) #Red_F _t ( I ) *RdF _mask (Ralb, I> 

13308  'CALCULATE  SYSTEM  VULNERABILITIES 

1 331 1  Red_Fct=R_v (R_ms, I ) +R_dv  <R_ms, I >  *Del _30 

13314  Blue_F ct=B_v (B  ms,  I ) -t-B_dv  (B_ms,  I  >  *Del  _30 

13317  IF  Red_Fct>l  THEN  Red_fct=l 

13320  IF  Blue_fct>l  THEN  Blue_Fct=l 

13323  IF  Red_7ct< . 05  THEN  Red_-fct=.05 

13326  IF  Blue_Fct< . 05  THEN  Blue_Fct=. 05 

13329  Red_vul < I ) =Red_Fct 

13332  B1 ue_vul ( I ) =B1 ue_f ct 

13335  NEXT  I 

1 3338  ! 

13341  Sys (1,5) =0  ! TEMPORARY  CODE  FOR  HTLE/ADEA  ONLY 

13344  ! SET  UP  GROUND  ATRITION  PARAMETERS 

13347  Bt 1 _phase=2 

13350  ! DETERMINE  PROPER  RANGE  BAND 

13353  Rng_band=Cur  _bnd 
13356  Num_bands=DF_500_bds 

13359  IF  Cur _bnd-Num_bands<0  THEN  Num_bands=l 
13362  IF  Amt_oF_advance=0  AND  Cur_bnd<>0  THEN 
13365  Cur _bnd=Cur _bnd  '.NO  aBvANCE 

13368  ELSE 

13371  Cur _bnd=Cur _bnd-Num_bands  ! SET  UP  CURRENT  BAND  FOR  NEXT  CALL 

13374  END  IF 

13377  IF  Cur_bnd<0  THEN  Rng_band=l  ! DON’T  ALLOW  FORCES  TOGET  BEHIND  EACH  0T( 
13380  Terrai n=B_t  err  'FIGHT  ON  DEFENDERS  TERRAIN 

13383  IF  At k  de-f  =  1  THEN  Terrain=R_terr 
1 3386  ' 

13389  FOR  1=1  TO  2 
13392  FOR  J=1  TO  3 
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Table  6-14.  Ground  combat  code  (continued). 

13395  Cell  <1.2,  J>=0  !  ZERO  OUT  RED  S<  BLUE  HELO'S  CELLS 

13390  NEXT  J 

13401  NEXT  I 

13404  Cell  ( 1,1,1 >=Bahl  ! LOAD  UP  CELLS 

13407  Cell (1, 1.2) =Bah2 

13410  Cell (1, 1,3) *Bsct 
13413  Cel  1 (2, 1,  l)=Rahl 
13416  Cell (2, l,2)=Rah2 

13419  Cell (2, l,3)=Rsct 

13422  CALL  Helo  range (Cel  1 (*>, Hel o  mi  s  (  * )  .  Stnd_o-f  -f  rg(*>)  !  CALCULATE  RANGES 

IFOR  HELICOPTERS 

13425  GOSUB  DF_cbt  I  PERFORM  DIRECT  FIRE  COMBAT 

13420  I 

13431  !  **  HELICOPTER  ATTRITION  OF  PHASE  II  ** 

13434  IF  Bahl+Bah2+Bsct<=0  AND  Rah 1 +Rah2+Rsc t <  =0  THEN  GOTO  No_helo2 
13437  ' 

1 3440  Ar ty ( 1 ) =2 
13443  Arty (2) -2 

13446  Veh_ada < 1 ) =Bveh_sup  ! SUPPRESS  I ON  OF  VEHICULAR  &  HAND-HELD  ADA 

13449  Veh_ada (2) =Rveh_sup 
13452  Hnd_ada ( 1 ) =Bhnd_sup 
13455  Hnd_ada (2) =Rhnd_sup 

13450  T i  me_step= 15 

13461  I  BLUE  HELOS - PREPARE  RED  FORCES 

13464  FOR  1=1  TO  70 

13467  Target  (1,1)  =Sys_tot  (4.1)  *Red_-f  t  ( I )  *Rdt _masMRal  b ,  I ) 

13470  Target (2, I ) =0 

13473  P_deF (2, I>=Red_vul (I)  I  SET  VULNERABILITY 

13476  Helo_t.gt  (2,  1,1)  “Target  (1,1)  I  PASSED  TO  HELO_KILLS  (INITIAL  NO  OF  TGTE 
13479  Helo_tgt (2.2. I)=0  ! REMAINING  NO.  OF  TARGETS 

13402  NEXT  I 

13405  I 

13488  '.APPORTION  RED  AD  AMMO  BASED  ON  RED  TARGETS 

13491  I  RED  AD  SYSTEMS 

13494  Adside=2 

13497  Ad_ammo=R_ad_aimno 

13500  CALL  Helo_ammo (Sys_tot (*> , Target (*> , Ad side, Ad_ammo, Ad_hel o (2) , Basi c_l d ( 
Ammo_wt ( * ) ) 

13503  Ad_sv(2)»Ad_helo(2) 

13506  Sided=2 

13509  FOR  1=1  TO  70 

13512  H_targ (3, I ) =Target ( 1 , I ) 

13515  NEXT  I 

1 3518  CALL  Di smount (H_targ ( * ) , R_1 d_f act , R_msn ( 1 ) .Sided , Btl _rg , R_mount , R_dmaun 
13521  CALL  Apport_i nf (Target (*), 1 . R_dmount ) 

13524  I 

13527  'RED  HELOS  —  PREPARE  FORCES 
13530  FOR  1=1  TO  70 

13533  Target  ( 1 ,  I )  =Sys_tot  (2,  I )  *B1  ue_-f  _t  (  I  )  *Bd+  _masi  (Balb.  I  > 

13536  Target (2, I ) =0 

13539  P_de+ ( 1 , I ) =B1 ue_vul ( I )  'SET  VULNERABILITY 

13542  Hel o_tgt (1,1,1) =Target (1,1)  'PASSED  TO  HFLO_ KILLS  (INITIAL  NO.) 
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Table  6-14.  Ground  combat  code  (continued) 


13545  Hel o_tgt (1.2,1) =0  'SET  REMAINING  NO.  OF  TGTS  TO  O 

13548  NEXT  I 

13551  ! APPORTION  AD_AMMO  TO  BLUE  AD  SYSTEMS 

13554  Adside=l 

13557  Ad_ammo=B_ad_ammo 

1 3560  CALL  Helo_ammo (Sys_tot  <  * ) , Target ( * ) , Adsi de. Ad_ammo. Ad_hel o ( 1 ) , Basi c_l d ( * 
Amma_wt (* )  ) 

13563  Ad_sv ( 1 ) =Ad_helo ( 1 ) 

13566  DR _ammo ( 1 > =B_dR_ammo 
13569  DR _ammo (2) =R_dR _ammo 
13572  Sided=l 
13575  FOR  1=1  TO  70 
13578  H_targ  < 1 , I ) =Target  < 1 . I ) 

13581  NEXT  I 

13584  CALL  Di smount <H_targ  <  * ) , B_1 d_R  act . B_msn ( 1 ) , Si ded . Bt 1 _rg , B_mount . B_dmaunt 
13587  CALL  Apport_i nR (Target (*), 1 , B_dmount > 

13590  ! 

1 3593  CALL  Hel o_k  ills(Cell  <  *  )  ,  Hel  o_t.  gt  (  *  )  .  Ad_hel  o  (  *  )  ,  Terr  ,  At  k_pr oR  ( *  )  ,  Hel  o_mi  s 
)  ,  Day_ni  te.  T  i  me  step.  P_deR  (  *  )  .  Ar  ty  (  *  )  ,  Veh  ad  a  (  *  )  .  Hnd_ada  (  *  )  ,  St.nd_oR  R_rg  (  *  )  .Vis 
13596  f 

1 3599  R_ad_ammo=R_ad_ammo- ( Ad_sv ( 2) -Ad_hel o (2) ) 

13602  B_ad_ammo=B_ad_amma- ( Ad_sv  < 1 ) -Ad_hel o  ( 1 )  ) 

13605  B_dE_ammo=DR_ammo ( 1 ) 

13608  R_dR_ammo=DR_ammo (2) 

13611  STORE  KILLS  AND  SUBTRACT  BLUE  HELICOPTERS 
13614  FOR  Si de=l  TO  2 
13617  FOR  1=1  TO  70 

13620  Sys  hel o (Si de, I ) =Hel o  tgt (Side. 1 . I > -Helo  tgt (Side, 2. I ) 

13623  NEXT  I 

13626  IF  Side=l  THEN  CALL  InR_survi ve (H_tar g ( *> , 1 , Sys_hel o ( *> , 1 , B_1 d_Ract , InR 
urv ( * )  ) 

13629  IF  Side=2  THEN  CALL  I nR _survi ve < H_targ (*), 3 , Sys_hel o (*), 2 , R_1 d_Ract , I rvf 
urv(D) 

13632  FOR  1=36  TO  40 

13635  Sys_hel o (Si de. I ) =Sys  hel o (Si de. I ) +InR_surv ( 1 -35) 

13638  NEXT  I 
13641  NEXT  Side 
13644  ! REMOVE  HELOS 

13647  FOR  1=1  TO  3 

13650  B_hel o ( I , 2) =B_hel o ( I , 2) +Cel 1 (1,1. I ) -Cell (1,2.1) 

13653  R  helo(I,2)=R  hel o ( I , 2> +Cel 1 (2.1. I ) -Cell (2.2, I) 

13656  NEXT  I 
13659  • 

13662  *  ADJUST  BLUE  AD  AMMO  AND  DELETE  SYSTEMS 

13665  'SUBTRACT  SYSTEM  LOSSES  FOR  HELOS 
13668  FOR  1=1  TO  70 

1  3671  Sys_tot  (2,1)  =Sys_tot.  (2,  I )  -Sys_hel  o  ( 1 ,  I) 

13674  Sys_tot (4, I ) =Sys_tot ( 4, I ) -Sys” he) o ( 2 . I > 

13677  NEXT  I 
13680  No_hel o2: 1 
1 3683  ' 

13686  '  **  PGM  PORTION  OF  PHASE  II  ** 
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Table  6-14.  Ground  combat  code  (continued). 

13689  'SET  UP  CLGP  AND  GAMP  ARRAY  FACTORS 

13692  FOR  1=1  TO  70 

13695  Gamp_f act ( I ) =Red_f _t ( I ) 

13698  Clgp_f  act  <  I )  =Red_f  _t  ( I  >  *2 

13701  IF  Clgp_f  act  <  I  >  >  1  OR  Clgp_rpv=l  THEN  Cl  gp_fact  ( I)  =1 
13704  NEXT  I 

13707  GOSUB  Clgp  gamp  at.rlt 
13710  ! 

13713  !  **  INFANTRY  PORTION  OF  PHASE  II  ** 

13716  !  NOTES  RNG_BAND  HOLDS  THE  BAND  IN  WHICH  THE  FIGHT  HAS  BEGUN 

13719  !  IF  RNG_BAND<=2  THEN.  AT  LESS  THAN  1000M  ,  INFANTRY  WILL  DISMOUN 

13722  IF  Rng_band >=2  THEN  GOTO  Finish2 

13725  ! 

13728  T_conf  1  i ct  =  .  5  !  INFANTRY  CONFLICT  TIME  IN  HOURS 

13731  GOSUB  Inf antry_cbt 
13734  ! 

13737  Fi ni sh2:  ! 

13740  GOSUB  Updatek_v 

13743  End_phase2  btls RETURN  *  **  END  BATTLE  PHASE  II  ** 

13746  ! 

13749  ! - 

13752  • 

13755  Phase3_btl :  !  THIS  SUBROUTINE  CONDUCTS  ATTRITION  ASSESSMENTS  FOR 

13758  !  PHASE  III  (WITHDRAWAL) 

13761  .' 

13764  ! 

13767  Phase_ct (3) =Phase_ct (3) +1  ! COUNT  #  OF  30  MINUTE  SEGMENTS  IN  PHASE  II 

13770  « (SHOULD  ONLY  BE  ONE) 

13773  Btl_phase=3 

13776  GOSUB  Phase_int  ! ZERO  ALL  KILL  ARRAYS  FOR  THIS  30  MIN. 

13779  • 

13782  !  **  NO  MINES  IN  PHASE  III  ** 

13785  ! 

13788  !  MINES  ADDED  TO  PHASE  III  !  ROB 

13791  IF  Mi ne_hi t=0  THEN  GOTO  13803 

13794  IF  Minef i eld (Mi ne_hi t , 6) =1  THEN  GOTO  13803 

13797  GOSUB  Run_mine 

13800  !  **  ARTILLERY  PORTION  OF  PHASE  III  ** 

13803  !  CHECK  ON  INDIRECT  FIRE  USED  IN  THIS  PHASE 

13806  Blue_aty=0  ! BLUE  FIRE  FLAG 

13809  Red_aty=0  'RED  FIRE  FLAG 

13812  FOR  1=1  TO  15 

13815  FOR  J=1  TO  5 

13818  IF  Bi f _f ired ( I . J) >0  THEN  Blue_aty=l 

13821  IF  Rif  fired  < I „ J ) >0  THEN  Red_aty=l 

13824  NEXT  J 
13827  NEXT  I 

13830  IF  Blue_aty=0  AND  Red_aty=0  THEN  GOTO  Direct_3 
13833  GOSUB  Arty  sub 
1 3836  • 

13839  Direct_3:  '  **  DIRECT  FIRE  PORTION  OF  PHASE  III  ** 

13842  FOR  1=1  TO  2 
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Table  6-14.  Ground  combat  code  (continued) 


13845  FOR  J=1  TO  3 

13848  Cell(I.2.J>=G  ’ZERO  OUT  RED  S<  BLUE  HELO’S  CELLS 

13851  NEXT  J 
13854  NEXT  I 

13857  Cell <1. 1, l)=Bahl  ! LOAD  UP  CELLS 

1 3860  Cel  1  ( 1 , 1 , 2 > =Bah2 

13863  Cel  1  ( 1 , 1 , 3) =Bsct 

13866  Cell <2, 1, l)=Rahl 

13869  Cell (2.1,2) =Rah2 

13872  Cell (2, l,3>=Rsct 

13875  CALL  Hel o_r ange (Cel  1  < * ) , Hel o  mis(*),Stnd  o-f-f_rg(*>>  'CALCULATE  RANGES 
13878  'TEST  FOR  ENTERING  PHASE  II 

13881  IF  Phase_ct  <2>  =0  THEN  GOTO  Helos3  ! NO  PHASE  II.  NO  DIRECT  FIRE  PULLC 
1 3884  ! 

13887  GOSUB  Col  1  ect.trucks  'TEMPORARY  CODE  FOR  HTLD/ADEA  ONLY 
13890  FOR  1=1  TO  70 
13893  SELECT  Breakpoint 
13896  CASE  1  ‘ BLUE  BREAK 

13899  Blue_Fct=B_-MB_ms,  I)  *.9  !  SET  BLUE  FIRERS  TO  907. 

13902  Red_?ct=R_F  (R_ms,  I )  +Phase_ct  (2>  *R_dF  (R_ms,  I  > 

13905  IF  Red_Fct< . 05  THEN  Red_fct=.05 

13908  CASE  2  ! RED  BREAK 

13911  Blue_-fct=B_*  (B_ms.  I  >+Phase_ct  (2)  *B  d-f  (8_ms,  I ) 

13914  Red_-fct=R_-f  (R_ms,  I)  *.9  !SET~RED  FIRERS  TO  907. 

13917  IF  Blue_-fct<  .05  THEN  B1  ue_-f ct=.  05 

13920  END  SELECT 

13923  IF  Red_f ct >1  THEN  Red_fct=l 
13926  IF  B1 ue_F ct >1  THEN  Blue_Fct=l 

13929  Sys  (5,  I  )=Sys_tot  <2.  I )  *BdF_mask  (Balb.  I  >  *Blue_-fct  !  SET  BLUE  FIRERS 

13932  Sys<6,  I)=Sys_tot <4. I) *Rdf_mask (Ralb. I) *Red_?ct  !SET  RED  FIRERS 

1 3935  ! 

13938  ! CALCULATE  SYSTEMS  WHICH  ARE  TARGETS 

13941  SELECT  Breakpoint 
13944  CASE  1  '.BLUE  BREAK 

13947  Blue_f_t  <I)=B_dF_t (B_ms,  I) *.9 

13950  Red_f_t  (I)=R_d-f_t  <R_ms.  I ) +Phase_ct  (2)  *R_d-f  dt(R_ms.I> 

13953  CASE  2  'RED  BREAK 

13956  B1  ue_F _t  ( I )  =B_d-f  _t  <B_ms,  I ) +Phase  ct  <21  #B_d-f  _dt  <B_ms.  I ) 

13959  Red_f_t(I>=R_dF_t(R_ms.I>*.9 
13962  END  SELECT 

13965  IF  Red_+_t  ( I )  >1  THEN  Red_-f_t(I)=l 

13968  IF  Blue_f_t (I) >1  THEN  81 ue_f _t <  I  >  =  1 

13971  IF  Red_E_t  (IX.05  THEN  Red_F  “t  <  I )  =.  05 

13974  IF  BI  ue_t_t  (IX.  05  THEN  B1  ue_f  _t  ( I  )  =.  05 

13977  Sys (1, I ) =Sys_tot (2, I ) *B1 ue_f _t 1 1 ) *Bdf _mask (Balb,  I ) 

13980  Sys <3, I ) *Sys_tot (4,1) *Red_?_t ( I) *Rdf .mask (Ralb,  I ) 

13983  'CALCULATE  SYSTEM  VULNERABILITIES 

13986  SELECT  Breakpoint 

13989  CASE  1  ! BLUE  BREAK 

1  3992  Red_f ct=R_v  (R_ms,  I )  -*-R_dv  (R_ms,  I )  *Phase_ct  (2) 

13995  Blue_-fct  =  B_v  (B_ms,  I) *.9 
13998  CASE  2  ' RED  BREAK 
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Table  6-14.  Ground  combat  code  (continued). 

14001  Red_-fct=R_v  (R_ms,  I)  *.9 

14004  B1  ue_-f  ct=B_v  (B  ms,  I)+B_dv(B  ms.  1 )  *Phase._ct  (2) 

14007  END  SELECT 

14010  IF  Red  *ct>l  THEN  Red  tct=l 
14013  IF  Blue_-fct>l  THEN  Blue_tct=l 
14016  IF  Red_t ct< . 05  THEN  Red_Fct=.05 
14019  IF  B1  ue_f  ct<  .  05  THEN  B1  ue_-f  ct  =  .  05 
14022  Red_vul ( I ) =Red_f ct 
14025  Blue_vul ( I ) =Blue_T ct 
14028  NEXT  I 

14031  IF  Break_poi nt< >1  THEN  Sys(l,5>=0  ! TEMPORARY  CODE  FOR  HTLD/ADEA  ONLY 

14034  ! SET  UP  GROUND  ATTRITION  PARAMETERS 

14037  Btl_phase=3 
14040  Rng_band=Cur_bnd 

14043  SELECT  Breakpoint  •  SET  BREAK  TIME 

14046  CASE  1  !  BLUE  BREAK 

14049  Num_bandS’=B_break_t  (B_ms>  /30 

14052  CASE  2  ! RED  BREAK 

14055  Num_bands=R_break_t  <R_ms)/30 

14058  END  SELECT 

14061  IF  Cur_bnd<=0  THEN  Rng_band=l 

14064  Terrai rt=8_terr  'FIGHT  ON  DEFENDERS  TERRAIN 
14067  IF  Atk_det=l  THEN  Terrain=R_terr 
14070  GOSUB  Dt_cbt  'PERFORM  DIRECT  FIRE  COMBAT 
1 4073  ! 

14076  Helos3:  •  **  HELICOPTER  ATTRITION  FOR  PHASE  III  ** 

14079  IF  Bahl+Bah2+Bsct<=0  AND  Rah 1+Rah2+Rsct<=0  THEN  GOTO  No  helo3 
14082  Arty  < 1 ) =2 
14085  Arty (2) =2 

14088  Veh_ada(l)=Bveh_«sup  • SUPPRESSION  OF  VEHICULAR  HAND-HELD  ADA 

14091  Veh_ada (2) =Rveh_sup 

14094  Hnd_ada ( 1 ) =Bhnd_sup 

14097  Hnd_ada (2) =Rhnd_sup 

14100  Time_step=15 

14103  ! BLUE  HELOS  —  PREPARE  FORCES 

14106  FOR  1=1  TO  70 

14109  IF  Phase_ct (2) >0  THEN 

14112  Target  <1, I)  =Sys_tot  <4,  I )  #Red_t  _t  <  I )  *Rd-f  _mask  (Ral  b  ,  I ) 

14115  P_det (2. I)=Red_vul (!) 

14118  ELSE 

14121  Target (1,1) =Sys_tot (4,1) *R_dt_t  <R_ms.  I) 

14124  SELECT  Breakpoint 

14127  CASE  1  ! BLUE  BREAK;  RED  VULNERABILITY  NOT  AFFECTED 

14130  P_de-f  (2,  r>=R_v(R_ms,  I  >  «-DeI  _red*R_dv  (R_ms,  I) 

14133  IF  P_de-f  (2,  I )  >1  THEN  P_de-f  ~<2,  I )  =  1 

14136  IF  P_det  (2,  I )  <  .  05  THEN  P_de-f  <2,  I  >=.  05 

14139  CASE  2  'RED  BREAK 

14142  P_de*(2, I)=R_v(R_ms,  I)*. 9 

14145  IF  P_det (2, I) >1  THEN  P_det (2. I ) = 1 

14148  IF  P_def  (2.IK.05  THEN  P  ds?f<2,  I>=.05 

14151  END  SELECT 

14154  END  IF 
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Table  6-14.  Ground  combat  code  (continued). 

14157  Target (2, I ) =0 

14160  Hel o_tgt (2, 1 , I ) “Target (1.1)  'THIS  ARRAY  IS  PASSED  TO  HELO_KILLS 

14163  Helo_tgt <2,2, 1 1=0 
14166  NEXT  1 

14169  ! APPORTION  RED  AD  AMMO  BASED  ON  -RED  TARGETS 

14172  1  RED  AD  SYSTEMS 

14175  Adside=2 

14178  Ad_ammo=R_ad_ammo 

14181  CALL  Hel  o_ammo  <Sys_tot  <*)  , Target  <*>  ,  Adside,  Ad_ammo.  Ad_hel  o  <21  ,  Basi c_l  d  (  * 
Ammo_wt  <  * ) ) 

14184  Ad_sv ( 1 ) =Ad_hel o (2) 

14187  Si ded=2 

14190  FOR  1=1  TO  70 

14193  H_targ (3, I ) “Target ( 1 , I > 

14196  NEXT  I 

141 99  CALL  Di  smount  <H_targ  ( * )  ,  R_1  d_T  act ,  R_msn  ( 1 )  ,  Si  ded ,  Bt  1  _  rg ,  R  mount. ,  R  d mount 
14202  CALL  Appor t_i nt < Tar get < * >  ,  1 .  R_dmount > 

14205  ! - PREPARE  BLUE  FORCES 

14208  FOR  1=1  TO  70 

14211  IF  Phase_ct  <21 >0  THEN 

14214  Target  <  1 ,  I )  =Sys_tot  <2.  I )  *Blue_t_t  <  I )  *Bdt _mask  < Bal b .  I) 

14217  P_def (1,11 =B1 ue_vul ( I > 

14220  ELSE 

14223  Target  < 1 , I ) =Sys_tot  <2, I ) *B_dT _t (B  ms. I) 

14226  SELECT  Break  _pomt 

14229  CASE  1  ! BLUE  BREAK;  BLUE  VULNERABILITY  AFFECTED 

14232  P_det <1 , I)=B_v(B_ms, I) *.9 

14235  IF  P_def  (1,  I T >  1  THEN  P  de-f<l.I)=l 

14238  IF  P_def  <  1 .  I )  <  .  05  THEN  P_de-f  <1,1 )  =  .  05 

14241  CASE  2  'RED  BREAK;  BLUE  NOT  AFFECTED 

14244  P_def  <  1 ,  I)=B_v<B_ms,  I )  -t-Del  _bl ue*B_dv  < B_ms.  I) 

14247  IF  P_de-f  <  1  ,  I  )  >1  THEN  P_det(l.I)=l 

14250  IF  P_def  < 1 , I ) < . 05  THEN~P  deT < 1 , I > =. 05 

14253  END  SELECT 

14256  END  IF 

14259  Target <2, I ) =0 

14262  Hel o_tgt  < 1 . 1 , I ) =Taraet  < 1 , I )  !THIS  ARRAY  IS  PASSED  TO  HELO_KILLS 

14265  HeIo_tgt <1,2, I ) =0 
14268  NEXT  I 

14271  ! APPORTION  AD_AMMQ  TO  BLUE  AD  SYSTEMS 

14274  Adside=l 

14277  Ad_ammo=B_ad_ammo 

1 4280  CALL  Hel o_ammo  <Sys_tot  <  * ) , Target  <  * ) , Adsi de. Ad_ammo, Ad_hel o  < 1 ) , Basi c  l d ( * 
Ammo_wt ( * ) ) 

14283  Ad_sv  < 1 ) =Ad_hel o  < 1 ) 

14286  Dt  _ammo  <  1 )  =B_d-f  _ammo 
14289  D-f  ammo  ( 2 )  =R_d-f  ammo 
14292  Si ded=l 
14295  FOR  1=1  TO  70 
14298  H_targ  <  1 ,  I  )  “Target.  <  1 ,  I  > 

14301  NEXT  I 

14304  CALL  Di  smount  <H_t  ar  q  <  #  )  .  B  _  1  d_  t  act. ,  B  msn  <  1  )  .  Si  ded .  Bt  1  r  g .  B  mount  .  B_dmount 
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Table  6-14.  Ground  combat  code  (continued). 

14307  CALL  Appor  t  _i  n*  ( Tar  get  (  *  )  ,  1  ,  B  d  mount ) 

14310  1 

1 4-'  1 3  CALL  Helo_ki  11s  (Cel  1  <  *  )  ,  Hel  o_  t.gt  <  # )  ,  Ad_hel  o  (  *  )  .  Terr  .  At k_ pr  o*  (  *  )  ,  Hel  o_mi  = 
)  ,Day_nite,Time_step,P_de*  <*)  ,Arty~<*>  .  Veh  ada ( * >  .  Hnd  c-da(*),Stnd  o**  rg <») . Vi s 
14316  ! 

14319  B_ad_ammo=B_ad_ammo- <Ad_sv ( 1 )-Ad_helo(l) > 

14322  R_ad_ammo=R_ad_ammo-(Ad_sv (2) -Ad.helo (2) ) 

14325  B_d*  _am<no=D*_ammo  <  1 ) 

14328  R_d*_ammo=D*_ammo (2) 

14331  ! STORE  KILLS  AND  SUBTRACT  BLUE  HELICOPTERS 

14334  FOR  Si de= 1  TO  2 
FOR  1=1  TO  70 

Sys_helo<2, I )=Helo  tgt (Side. 1 . I ) -Helo_tgt (Side, 2, I ) 

NEXT  I 

IF  Side=l  THEN  CALL  In* _sur vi ve (H_tar g ( * ) , 1 , Sys_hel o ( * ) , 1 , B  Id  *act.Jn( 
urv(ll)  ~ 

14349  IF  Side=2  THEN  CALL  In* _sur vi ve <H_t arg < * ) . 3. Sys_hel o < * > , 2 . R  Id  *act.In* 
urv<*>)  .  _  _ 

14352  FOR  1=36  TO  40 

14355  Sys_hel o (Si de, I ) =Sys  hel o (Side. I > +In* _surv ( 1-35) 

14358  NEXT  I 
14361  NEXT  Side 
1 4364  ! REMOVE  HELOS 

14367  FOR  1=1  TO  3 

14370  B_helo(I,2)=B_helo<I.2>+Cell (1.1, I ) -Cell (1.2,1) 

14373  R_helo(I,2)=R_helo(I.2)+Cell  <2,1. I ) -Cel  1  (2,2. I) 

14376  NEXT  I 
14379  • 

14382  ‘ADJUST  BLUE  AD  AMMO  AND  DELETE  SYSTEMS 
14385  ! SUBTRACT  SYSTEM  LOSSES  FOR  HELOS 

14388  FOR  1=1  TO  70 

14391  Sys_tot <2, I ) =Sys_tot (2, I) -Sys  helo(l.I) 

14394  Sys_tot<4. I ) =Sys_tot (4, I ) -Svs~hel o(2. I> 

14397  NEXT  I 
14400  No_helo3s ! 

14403  !  **  PGM  PORTION  OF  PHASE  III  ** 

14406  ! IF  BLUE  IS  BREAKING  THEN  ONLY  GAMP 

14409  FOR  1=1  TO  70 

14412  Gamp_*act ( I ) =Red_*_t <  I ) 

14415  Clgp_*act < I ) =Red_*_t ( I ) 

14418  IF  Break_point=l  AND  Clgp_rpv=0  THEN  Cl gp_* act < I ) =0  ‘BLUE  BREAKS  W 

14421  .  N0  Rpv^S 

14424  NEXT  I 

14427  GOSUB  Cl gp_gamp_atr i t 

14430  !  **  INFANTRY  PORTION  OF  PHASE  III  ** 

14433  IF  Phase_ct (2) =0  THEN  GOTO  FinishS 
14436  !I*  RNG_BAND<2  ti.en  in*antry  will  play 

14439  IF  Rng_band>=2  THEN  GOTO  Finish3 

14442  T_con* 1 ict=T ime_step/60  ‘SET  TIME  IN  HOUR  UNITS 

14445  GOSUB  In*antry_cbt. 

1 4448  1 

1  4451  Fi ni sh3:  1 


14337 

14340 

14343 

14346 


i 

f 
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Table  6-14.  Ground  combat  code  (continued). 

14454  GOSUB  Updated _v 

14457  End  phase3_btl : RETURN  '  **  END  BATTLE  PHASE  III  ** 
14460  ! 

14463  1 - 

14466  ' 

14469  Phase_int:  ! 

14472  FOR  1*1  TO  2 
14475  FOR  K-l  TO  70 

14478  Sys_direct  < I , K) =0  ! ZERO  DIRECT  FIRE  KILLS 

14481  NEXT  K 

14484  NEXT  I 

14487  FOR  J*1  TO  70 

14490  FOR  1-1  TO  2 

14493  Sys_helo(I, J ) =0 

1 4496  Sys_pgm ( I , J ) =0 

14499  Sys~i nf ( 1 , J ) =0 

14502  NEXT  I 

14505  FOR  1*1  TO  4 

14508  Sys_mi ne < I . J ) =0 

14511  Sys'arty ( I , J  >  *0 

14514  NEXT  I 

14517  FOR  1*1  TO  6 

14520  Sys(I,J)*0 

14523  NEXT  I 

14526  NEXT  J 

14529  RETURN 

1 4532  ' 

14535  • - 

14538  > 

14541  Updatek_vs  !  UPDATES  THE  KV 
14544  Hh*Hh+l 
14547  FOR  J=1  TO  70 

14550  Kv_b  ( 1 ,  J  )  =Kv_b  <  1 ,  J  )  -►Sys_di  rect  ( 1 ,  J  ) 

14553  Kv_r  < 1 , J ) =Kv_r  < 1 , J ) +Sys_di r ect <2, J  > 

14556  Kv_b <2,  J  > =Kv_b (2. J ) +Sys~arty (2, J > 

14559  Kv_r <2, J)=Kv_r <2, J ) +Svs_ar ty ( 4, J ) 

1 4562  Kv_b (3, J  >  =Kv_b (3, J ) +Sys_pgm  < 1 , J? 

1 4565  Kv_r  <  3 ,  J ) =K v_r ( 3 . J  >  +Sys_pgm ( 2 , J  > 

1 4568  Kv_b <4, J ) =Kv_b (4, J ) +Sy s_hel o ( 1 , J  > 

14571  Kv_r (4, J)=Kv_r (4, J ) +Sys~hel o (2. J  > 

14574  Kv_b  (5,  J )  *Kv_b  (5,  J )  -*-Sys_i  nf  (1,  J) 

1 4577  Kv_r (5, J ) =Kv_r <5, J ) +Sys_i nF (2. J ) 

14580  Kv_b<6, J)*Kv”b<6, J ) +Sys_mi ne (2, J ) 

1 4583  Kv_r  <6, J ) =K v_r <6. J ) +Sys_mi ne  <4, J > 

14586  NEXT  J 
14589  ' 

14592  RETURN 
14595  ' 

1 4598  '  - 

14601  ! 

14604  Run_mine:  1 

14607  'CALCULATE  THE  7.  OF  FORCE  IN  MINEFIELD 
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Table  6-14. 


Ground  combat  code  (continued). 


1 46 1 0 
14613 
14616 
14619 
14622 
14625 
14628 
14631 
1  4634 
1  4637 
t  ed  ) 

1  4640 

14643 

14646 

1  4649 

14652 

14655 

14658 

14661 

14664 

14667 

14670 

14673 

1  4676 

14679 

14682 

146C5 

LAY 

14688 

14691 

14694 

1  4697 

14700 

14703 

1  4706 

1  4709 

14712 

ted  > 

14715 

14718 

14721 

14724 

1  4727 

1  4730 

14733 

1  4736 

1  4739 

1  4742 

1  4745 

1  4748 

14  751 

1  4  754 


SELECT  At k_def + 1 

CASE  1  'RED  FORCES  IN  THE  MINEFIELD 

FOR  1=1  TO  70 

Sys_mine(3,I)=Sys_tot(4,I)*R  d-f  t.  <  R  _ms .  I  >  f  PH  mar-  *  '  I  ' 

NEXT  I 

FOR  1=36  TO  40  'SAVE  INFANTRY  COUNT  FOR  SUB  INF._SURVIVE 
R_i  n-f  <  1  ,  I  -35)  =Sys_mi  ne  (  3 .  I  > 

NEXT  I 
Si ded=2 

CALL  Di  smount  (Sys_mi  neli)  ,R_ld_-fact,R_msn(l)  .  Sided,  Rtl  rg.  Mounted  .  Di  srr. 
CALL  Apport  _i  n-f  (Sy5_mine(l)  ,  3 ,  Di  s  mounted  ) 

CALL  Mi  nes  (Sys_mine(*)  .Mine+ield  (*)  ,  Mi  ne_h  i  t ,  At  k_de-f  .  Bui  _bch  ,  Btl  _phase 

I 

! ELEMENTS  LOST  DUE  TO  MINES  ARE  IN  SYS_MINE (4,1) 

FOR  1=1  TO  70 

Sys_tot (4, I)=Sys_tot (4, I)-Sys_mine<4, I) 

NEXT  I 

IF  Mounted< >0  THEN 

CALL  Inf  _survi  ve  <R_i  n-f  <*)  , 0 , Sy s_mi ne ( * )  , 4 , R_1 d_f ac t ,  Inf_surv(»)  ) 

FOR  1=36  TO  40 

Sys_tot  (4,  I )  =Sys_tot  (4,  I  >  -Inf _surv  (  1-35) 

Sys_mine(4, I) =Sys_mine (4,1) +Inf_surv ( 1-35) 

NEXT  I 
END  IF 
PRINT 

PRINT  "  RED  FORCES  IN  MINEFIELD  AT  RANGE  " : Mi  net i el d < Mi ne_h 1 1 . 1 ) . " : 
Prnt  mn  dlay?"  MINUTES" 

CASE  2  'BLUE  FORCES  IN  THE  MINEFIELD 
FOR  1=1  TO  70 

Sys_mi ne  < 1,1) =Sys_tot (2.1) *B_df _t (B_ms.  I ) *Bf _mask ( I > 

NEXT  I 

FOR  1=36  TO  40  'SAVE  INFANTRY  COUNT  BEFORE  MOUNTING 
B_  l  n  f  (  1  ,  I -35  )  =SvS_mi  ne  (  1  ,  I  ) 

NEXT  I 
Si ded= 1 

CALL  Dismount  <Sys_mi ne (* )  , B_ld_f act .  B_msn  (  1  )  .  Sided.  Bt  1  _rg.Mounted.Di  sm< 
CALL  Apport_i  n-f  (Sys_mine<#>  .  l.Di  s  mounted  ) 

CALL  Mines (Sys_mi ne ( * ) , Mi  net i el d ( *  > , Mi ne_hi t , AtB_det . Bui _bch. Btl _phase 

I 

FOR  1=1  TO  70 

Sys_tot (2, I ) =Sys_tot (2.1) -Sys_mi ne (2. I ) 

NEXT  I 

IF  Mounted*  O  THEN 

CALL  In-f  survi  ve  (B_inf  (  *  )  .  O.  Sys_mi  ne  (  *  )  ,  2 ,  B_  1  d_-f  act .  I  n-f  .  surv  (  *  )  ) 

FOR  1=36  TO  40 

Sys_tot  (2,  I  )  =Sys_tot  (2.  I  )  —  I  n-f  _  surv  (  .—35) 

Svs_mine(2.  I) =Sys_mine(2.  I ) +Inf  _sur v ( I -35  > 

NEXT  I 
FND  IF 
PRINT 
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Table  6-14.  Ground  combat  code  (continued). 

14757  PRINT  "  BLUE  FORCES  IN  MINEFIELD  AT  RANGE  leld (Mine  hi t. l ) , 

LAY  " ; Prnt_mn_dl ay ; "  MINUTES" 

14760  END  SELECT 
14763 

14766  RETURN 
•14769  ! 

14772  - - 

14775  1 

14778  Arty_sub:  ! 

14781  IF  Red_aty=0  THEN  GOTO  Bluearty 
14784  Redarty:  ! 

14787  Rarty_-f  ire=Rarty_-f  ire  +  1  'INCREASE  RED  ARTY  COUNTER 

14790  FOR  1=1  TO  70 

1  4793  B1  ue_-f  ct  =  B_i  -f  _t  <B_ms ,  I  >  -*-B_i  f  _dt  ( B_ms,  I  )  #Rar  ty_F  ire 

14796  IF  B1 ue_fct  1  THEN  Blue_fct=l 

14799  Sys_arty  (  1  ,  I  >=Sys_tot  (2,1)  *Blue_-fct 

14802  NEXT  I 

14805  ' 

14808  ! CALCULATE  RED  SYSTEMS  TARGETABLE 

14811  Bluearty:  ! 

14814  IF  Blue_aty=0  THEN  Bar  ty_-f  i  r  e=Bar  t  y_f  i  r  e+ 1  !  INCREASE  BLUE  ARTY  COUNTE 

14817  FOR  1=1  TO  70 

1 4820  Red_-f  ct=R_i  -f  _t  (R_ms,  I ) +R_i F_dt  (R_ms ,  I)*Barty_-fire 
14823  IF  Red_F ct  >1  THEN  Red_-fct=l~ 

14826  Sys_arty  <3.  I )  =Sys_tot  <4.  I  )  *Red_-fct 
14829  NEXT  I 

14832  FOR  1=36  TO  40  'SAVE  THE  INFANTRY  COUNT  BEFORE  MOUNTING 
14835  B_i  n-f  (  1  ,  I -35)  =Sys_ar  t  y  <  1  .  I  ) 

14838  R_i  rrf  <1.  I -35)  =Svs_ar  t  y  ( 3,  I) 

14841  NEXT  I 
14844  1 

14847  ! CALCULATE  ARTILLERY  LOSSES 

14850  B_phase=Bt 1 _phase 
14853  R=Ride 
14856  Sided=2 

1  4859  CALL  Di  smount  (Sys_arty(*>,R_ld_-fact.R_msn(l),Sided,Btl_rg,  R_  mounted  .  R_d  i 
ounted ) 

14862  CALL  Appor t _i n+ ( Sys_arty (* ) . 7, R_d i smounted) 

14865  Si ded= 1 

1 4868  CALL  Di  smount  ( Sys  _ar  ty  (#)  ,B_ld_-fact.  B_msn  (  1  )  .Si  ded ,  Bt  1  _r  g  ,  B_mounted  .  B_d  i 
ounted ) 

14871  CALL  Appor  t  _i  n-f  <  Sys_artv  (*),  1 ,  B_d  l  smount  ed ) 

14874  CALL  Arty_atr  1 1  (Sys_arty  (  *  )  ,  B_msn  (B_ms)  ,  R_msn  (R_ms)  ,  Bi  -f  _i  i  red 
(  *  )  ,  T_1  ength  <*),T_width<*),Barty_-fire.Rarty-fire,  B_phase  .Atk_de+.Sys_tot  <  *  '  -R> 
14877  FOR  1=1  TO  70 

14880  Sys_tot (2, I ) =Svs_tot <2. I )-Sys_artv <2. I )  'SUBTRACT  BLUE  KILLED 

1 4883  Sys_tot (4, I ) =Sys_tot (4,1)— Sys_arty<4.1)  ! SUBTRACT  RED  K ILLED 

14886  NEXT  I 

14889  IF  R  mounted:  0  THEN 

14892  CALL  In-f  survive(R  l  nf  (  #  )  .  O.  Svs_arty  (  #  )  ,  4,  R_1  d_-f  act .  In-f  _surv  (  *  )  ) 

14895  FOR  1=36’ TO  40 

14898  Sys  arty (4, I)=Sysarty(4. I)+Int_surv(I-35) 
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Table  6-14.  Ground  combat  code(continued) . 


14901  Sys_tot  (4,  I  )  =Sys_tot  (4,  I  )  -In-f  _surv  (  I  -35) 

14904  NEXT  I 
14907  END  IF 

14910  IF  BjnountecK  >0  THEN 

14913  CALL  Int  _sur  vi  ve  (B_i  n-f  <*>  , 0„Sys_arty(»)  ,2.B_ld_-fact.  Inf  survOi)  > 

14916  FOR  1=36  TO  40 

1 4919  Sys_arty (2,1) =Sys_arty  <2, I >  +  In  +  _ sur v ( 1-35) 

14922  Sys  tot  < 2,  I )  =Sys_t ot  < 2,  I )  —  I n-f  _sur v  (  I -7-5 ) 

14925  NEXT  I 
14928  END  IF 
14931  « 

14934  RETURN 
14937  ! 

14940  ' - 

14943  ' 

14946  Collect_trucks:  !  TEMPORARY  CODE  FOR  HTLD/ADEA  ONLY 
14949  IF  BalbOl  THEN 

14952  Sys_tot (2,6) =Sys_tot (2,  55) +Sys_t ot  (2.58) 

14955  Pct_-fuel  _truck=Sys_tot  <2, 55)  /Sys_tot  (2,  6) 

14958  END  IF 

14961  RETURN  ! ENDS  TEMPORARY  CODE  FOR  HTLD/ADEA 

14964  1 

14967  ! - 

14970  ! 

14973  D-f_cbt:  ! 

14976  PRINT 

14979  SELECT  Btl_phase 
14982  CASE  1 

14985  PRINT  "  FORWARD  FORCES  IN  CONTACT  FOR  15  MINUTE  PERIOD" 

14988  CASE  2 

14991  SELECT  Atk_de* 

14994  CASE  0 

14997  B_r_attack*="RED  " 

1 5000  CASE  1 

15003  B_r  _at  tack  *=*' BLUE" 

1 5006  END  SELECT 

15009  IF  Cur _bnd=Rng_band  THEN 

15012  PRINT  USING  "30A.6D";"  STATIONERY  FORCES  AT  RANGE  ":Btl_rg 
15015  ELSE 

15018  PRINT  "  BOTH  FORCES  IN  CONTACT  FOR  30  MINUTE  PERIOD  " 

15021  END  IF 
15024  CASE  3 

15027  Prnt_rg=B_rg_break 

15030  IF  Break_poi nt=2  THEN  Prnt_rg=R_rq_ break 

15033  'PRINT  USING  "54A.6D":"  "  FORCES  DISENGAGING  ;  DIRECT  FIRE  Of 

RING  AT  RANGE  ";Btl_rg 

15036  END  SELECT 

15039  FOR  1=1  TO  20 

15042  B_F l re_sv ( I ) =Sys (5,1) 

15045  R_-f  i  r  e_sv  ( I )  =Sys  <6,  I  > 

15048  NEXT  I 

15051  CALL  D-f  ammo  ( Sys_tot  <  *  )  ,  B_ammo  1  1 )  ,  R  ammo  (  *  >  .  B  d-f  ammo,  R_d-f  _ammo,  B  engage 
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Table  6-14.  Ground  combat  code  (continued). 


nt.s  <  *  >  ,  R _ en qaqpnipn t  s  <  *  )  > 

15054  FOR  1  =  1  TO  5 

15057  R_int_save(  I  )  =Sys  (3.1  +35) 

15060  B_i nf _save ( I ) =Sys  <1,1 +35) 

15063  NEXT  I 
15066  Si ded=2 

15069  CALL  Dismount  <Sys<#>  ,  R_ld_-f  act ,  R_msn  (  1  )  ,  Si  ded ,  Bt  1  _r  q ,  R_moun  t  ed .  R_  d  l  smonn 
d) 

15072  CALL  Appor  t _i  n-f  (Sys  (  * )  «  3,  R_di  smounted  > 

15075  Sided=l 

15078  CALL  Dismount  (Sys  <#>  ,  B_1 d_f ac t , B_msn  < 1 >  ,  Si  ded  .  Bt  1  _rg .  B_mounted .  B_di  smoun 
d> 

15081  CALL  Apport_inf (Sys (*), 1 ,  B_di amounted) 

15084  T=Turn 
15087  Sec=Sector 
15090  Bu=No_b_unit 
15093  Ru=No_r_uni t 
15096  St=St_ti me 

15099  CALL  D-f  _at  tr  i  t  i  on  (Blue_vul  (*>  ,  Red_vul  (*)  .  Terr  ai  n ,  Day_m  te.  Vi  s.  Num_bands. 
gband, AtL_de+ , Sys ( * )  ,B_ammo(*) ,R_ammo<*> ,B_vis<*> , R_vis(*> , T, Sec , Bu. Ru , St . Dc ) 
15102  1 

15105  Aporti on_trucks:  !  TEMPORARY  CODE  FOR  HTLD/ADEA  ONLY 

15108  IF  BalbOl  AND  Btl_phase<>l  THEN 
15111  Sys (2,55) =Sys (2,6) *Pct_-f uel .truck 
15114  Sys (2, 58) =Sys (2, 6) -Svs(2,55> 

15117  Sys  <2. 6) =0 
15120  Sys_tot (2. 6>=0 
15123  END  IF 

15126  !  ENDS  TEMPORARY  CODE  FOR  HTLD/ADEA 

15129  'CALCULATE  LOSSES  AND  STORE  IN  SYS_DIRECT 
15132  R_ammo_l st=0  'RED  AMMO  USED 

15135  B_ammo  lst=0  'BLUE  AMMO  USED 

15138  FOR  1=1  TO  70 

15141  Svs_di r ec t < 1 . I ) =Sys < 2 . I )  (UPDATE  BLUE  LOSSES 
15144  Sys  d i r ec t ( 2. I ) =Sys ( 4 . I )  ! UPDATE  RED  LOSSES 

15147  Sy s~ tot (2.1) =Sys_tot (2.1) -Sys (2. I > 

15150  Sys_tot (4, I)=Sys_tot (4, I )-Sys(4, I) 

15153  NEXT  I 

15156  FOR  1=1  TO  5 

15159  Sys  ( 3,  1+35)  =R_in-f_save(I) 

15162  Sys  ( 1 ,  I+35>  =B_i  n-f  _save  ( I ) 

15165  NEXT  I 

15168  IF  B_mounted<>0  THEN 

15171  CALL  I  n-f  _survi  ve  (Sys  (*)  .  l,Sys<*>  ,  2 ,  B_1  d_-f  act .  In-f_surv(»)  ) 

15174  FOR  1=36  TO  40 

15177  Sys  tot  (2,1)  =Sys_tot  (2,1)  -In-f  surv  (  1-35) 

151 80  Sys_  di r ect ( 1 ,  I) =Sys_d l rect(l,I)  +  Int  surv ( I -o5) 

15183  NEXT  I 
15186  END  IF 

15189  IF  R  mounted*-  >0  THEN 

15192  CALL  Inf  survi  ve  (Sys  (  *  )  .  3,Svs(*)  .  4 .  R_  1  d  .  -f  act .  Inf.surv(i)  ) 

15195  FOR  1=36  TO  40 
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Table  6-14.  Ground  combat  code  (continued). 

15198  Sys_tot  (4,1)  =Sy s_tot  (4,  I  )  —  X rvf  _sur v  ( I -35) 

1 5201  Sys_d l  rec  t  (2,1)  =Sys  direct  (2.  I>+Irvf_surv(I  —35 ) 

15204  NEXT  I 
15207  END  IF 
1  52 1 0  1 

15213  FOE  1=1  TO  20 

1 5216  B_ammo_ 1 oad=Ammo_wt (1,1) *B_enqaqement s ( I ) 

15219  IF  B_ammo_l oad >B_ammo ( 1 « I )  THEN  B_  ammo_  1  oad  =  B_aimno  ( 1  .  J  ) 

15222  B_ammo_l  st=B_ammo_l  st  +Sys_d  i  rect  (1,  I)  #B_  ammo_  load 
15225  IF  Sys_di rect < 1 ,  I ) <B_Fire_sv < I )  THEN 

1 5228  B_ammo_l st=B_ammo  lst+(B_Fire_sv(I> -Sys_d i rect ( 1 . I ) ) * B_ammo (2,1) 

15231  END  IF 

1 5234  R_ammo_l oad=Ammo_wt (2,1) *R_engagements ( I ) 

1523>7  IF  R_ammo_l oad >R_ammo ( 1 « I )  THEN  R_ammo_l  oad=R_ammo  (  1  .  J  ) 

1  5240  R_ammo_l  st=R_ammo_l  st+Sys_di  rect  (2,  I )  *R_ammo  1  oad 
15243  IF  Svs_di rect (2,1) <R_f  i r e_sv ( I )  THEN 

15246  R_ammo_l st=R_ammo  lst-MR  F i r e_sv ( I ) -Sysdi r ec t ( 2 . I > ) *R_ammo ( 2, I ) 

15249  END  IF 

15252  1 

15255  NEXT  I 

15258  1 

15261  ! UPDATE  AMMO,  BOTH  RED  AND  BLUE 

15264  B_dF_amma=B_dF_a<nma-B_ammo_l  st 
1 5267  R_dF _ammo=R_dF _a<nmo-R_ammo_  1  st 
15270  ~  ! 

15273  IF  B_dF_ammo<0  THEN  B_dF_ammo=0 

15276  IF  R_dF_ammo<0  THEN  R_dF  ammo=0 

15279  I 

15282  RETURN 
15285  1 

15288  1 - 

15291  W_smoke:  ! 

15294  !  THIS  ROUTINE  WILL  ESTABLISH  DIMINISHES  FOR  SMOKE  SCREEN  AND  THEN  CAL 

15297  1  SMOKE  EMPLACE ( SMKEMP )  ROUTINE...  THE  SMKEMP  ROUTINE  RETURNS  THE 

15300  !  VISIBILITY  THROUGH  THE  SCREEN  AND  THE  AMOUNT  OF  AMMO  USED  TO  EMPLACE 

15303  !  THE  SCREEN 

15306  1  BLUE  SMOKE 

15309  Iunt  =  l  1  **#CHANGES  ACCORDING  TO  HTLD  (  =  1  )  0F:  C-SERIES  (=2) 

15312  Ielem=l 

15315  S_t i me=B_break_t  (  1  ) *  1 .  1 
15318  IF  S_ time >30  THEN  S_time=30 
15321  FOR  Vkp= 1  TO  3 
15324  B  vis ( Vkp ) = 1 
15327  NEXT  Vkp 

1  5330  CALL  Smkemp  (Iunt,  Iel  em ,  B_smok  _t  ons  (  ♦  )  .  T_wi  dth  (  1  )  ,  S_t.  l  me  ,Vis,Btl_rg.B_ms 
used  U)  ,B_asmk  _used (#) ,B_vis(l) ,B_vis(2) ,B_vis(3) ,  Irh) 

15333  FOR  1=1  TO  4 

15336  B_msmk  used  ( I  )  =B  smol-  _t  ons  (  I  +7 )  -B_msmk _  ’  e-f  t  (  1  ) 

15339  NEXT  I 
15342  FOR  1=1  TO  7 

1 5345  B_asmk  used ( I ) =B_smok_tons ( I ) -B_asmk_l eF t ( I ) 

15348  NEXT  I 
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Table  6-14.  Ground  combat  code  (continued) 


15351  • 

15354  !  RED  SMOKE 

15357  Iunt=3  '***3  REPRESENTS  THE  RED  FORCE 
15360  Ielem=l 

15363  S_t i me=R_break_t < 1 ) *  1 .  1 
15366  IF  S_time>30  THEN  S_time=30 
15369  FOR  Vkp  =  l  TO  3 
15372  R_vi s (Vkp) =1 
15375  NEXT  Vkp 

1537S  CALL  Smkemp ( Iunt , Iel em, R_smok_tons ( *  >  . T_wi dth (2) , S_t i me. Vi s, Bt 1 _rg . R_msmi 
used ( * ) . R_asmk_used  <  *)  ,  R_vi s  ( 1 )  , R_vi s  (2)  , R_vi s ( 3> , Irh ) 

1 538 1  FOR  1=1  TO  4 

153S4  R_msmk_used  <  I  >  =R_smok_tons  <  1+7  )  —  R_msmk_l  eft  ( I ) 

15387  NEXT  I 
15390  FOR  1=1  TO  7 

15393  R_asmk_used  ( I )  =R_smok_tons  ( I )  -R_asmk_l  e-f  t  <  I ) 

15396  NEXT  I 
1 5399  ! 

15402  FOR  Vkp= 1  TO  3 
15405  Vi ss=R_vi s (Vkp ) 

15408  IF  Vi ss>B_vi s  < Vkp )  THEN  Vi ss  =  B_vi s < Vkp > 

15411  B_vi s < Vkp ) =Vi ss 
15414  R_vi s ( Vkp ) =Vi ss 
15417  NEXT  Vkp 
15420  RETURN 
15423  ! 

15426  ! - 

15429  Inf antry_cbt :  ! 

15432  Force=l  ! ***CHANGES  ACCORDING  TO  HTLD  ( =  1  )  OR  C-SERIES  (=2) 

15435  Bstat ( 1 ) =B_msn (B_ms)  • SET  BLUE  MISSION 

15438  Bstat <2)=R_msn(R_ms)  ! SET  RED  MISSION 

15441  Attacker=2— At k_def  'SET  ATTACKER;  1  FOR  BLUE.  2  FOR  RED 

15444  PRINT 

15447  SELECT  Attacker 

15450  CASE  1 

15453  B_r _attac  kS=" BLUE" 

15456  CASE  2 

15459  B_r_attack*="RED" 

15462  END  SELECT 

15465  PRINT  "  ” ; B_r .attack*; “  ATTACKER  DISMOUNTS  AND  CONTINUES  ATTACK" 

15468  Lossblue=0 
15471  Lossred=0 
15474  Sx  ded=2 

15477  CALL  Di  smount  (Sys  <  * )  , R_ld_f act ,  R_msn  (  1  >  ,  Si  ded.  Bt  1  _rg .  Remounted ,  R_di  smour, 
d) 

15480  CALL  Apport_i nf (Sys < * ) . 3, R_d l smounted > 

15483  Si ded= 1 

1  5486  CALL  Di  smount (Sys (*) .B_ld_fact,B_  msn ( 1 > . Sx  ded . Bt 1 _rq . B_mounted.  B_di  smour 
d  > 

15489  CALL  Appor t _ i nf < Sys <*), 1 , B_d l smount ed ) 

1  5492  CALL  Inf  ant  r  y  ( Sys  (  *  )  ,  For  ce.  Bst  at  <  *  >  .  At  t.  acker  .  T  c  onf  1  j  c  t  ,  Lossbl  tie.  L  ossr  ec 
15495  'APPORTION  OUT  LOSSES  OVER  SMALL  ARMS  ELEMENTS 
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I 


1 15498 
15501 
1  5504 
1 5507 
15510 
15513 
15516 
15519 
15522 
1 5525 
15528 
1 553 1 
15534 
15537 
15540 
15543 
15546 
.  5549 

Iccc  r 
jjj.1 

15555 
15550 
15561 
1 5564 
15567 
15570 
15573 
15576 
15579 
1 5582 
15585 
15588 
15591 
15594 
15597 
1  5600 
15603 
1 5  6'.' 6 
1  5609 
15612 
15615 
15618 
1 562 1 
1  5624 
15627 
1  5630 
1  5633 
1  56  _'6 
15639 
15642 
15645 
15648 
1  565  l 


Table  6-14. 


Ground  combat  code  (continued). 


Sum_  i  rvf  _b=0 
Sum_i  nf  _r=0 

FOR  1=36  TO  47  1  SUM  UP  NO.  OF  SMALL  ARMS 

Sum_i  nf _b=Sum_i  nf  _b+Sys  (1,1) 

Sum  i  rvf  _r=Sum_i  n-f  r+Sys(3, I) 

NEXT  I 

FOR  1=36  TO  47  ! APPORTION  OUT  LOSSES  IN  SMALL  ARMS 

IF  Sum_inf_b>0  THEN  Svs_inf ( 1 , I ) = (Sys < 1 . 1 ' /Sum_ i nf _b ) 
IF  Sum_inf_b<=0  THEN  Sys_i nf  < 1 , I / =0 

IF  Sum_inf_r>0  THEN  Sys_i nf (2, I )  =  (Sys (3, I ) 7Sum_i  nf _r ) 
IF  Sum_inf _r<=0  THEN  Sys_i nf (2,  I ) =0 
Sys_tot  <2,  I  >  =Syi.  .tot  (2,1)  -Sys_inf  <  1 .  I) 

Sys_tot (4, I )=Sys_tot  <4, I) -Sys_inf (2,1) 

NEX  ;  I 


*Lossbl ue 
♦Lossred 


RETURN 


Cl gp_gamp_atr i t :  ! 

I 

IF  Clgp  msns<=0  AND  Gamp  «isns(=0  THEN  End_clgp 
FOR  1=1  TO  2 
Nrnds ( I ) =0 
Sens_typ ( I ) =0 
Fi r _typ ( I ) =0 
NEXT  I 
S_clgps  ! 

IF  Clgp_msns<=0  THEN  S_gamp 
Fa  r _typ7 1 )  =  1 

Sens_typ ( 1 ) =C1 gp_r p v+ 1  !  SET  RPV  l=no  2=yes 

N_rnds(l)=Clgp_msns/. 1 1  1  CONVERT  TONS  TO  ROUNDS 

S_gamp:  ! 

IF  Gamp_msns<=0  THEN  Set_pgm_tgt 
Fir  _typ  To ) = 1 

Sens_typ (2) =0  1  SENSORS  ASSUMED  IN  GAMP  DATA 

N_rnds (2) =Gamp_msns/ .  11 
Set_pgm_tgt:  1 

I 

FOR  1=1  TO  70 

C_targ (1,1) =Sys_tot < 4 ,  I >  *C1 gp_f act  < I > 

C_targ (2,1) =C 

C_t (3, I)=C_targ( 1, I) 

C_t (4,  I >  =0 
NEXT  I 

I 

■CALL  DISMOUNT  TO  DETERMINE  NUMBER  OF  INFANTRY  IN  CARRIERS 
Si ded=2 

CALL  Di smoun t  <C_t (*) . R_ld_fact,R_msn ( 1 > ,Si ded . Bt 1  r  q , R_ mount , p_d mount ' 
CALL  Apport_i  nf  (C_targ  (  *  )  ,  1  ,  R_dmount ' 

Dus t  =  1  'DUST  FACTOR  ;  NO  DUST 

CALL  F'qm_atr  it.  (Fir_tvp(»)  ,N_rnds(*>  .Vis,  R.tprr  ,  Sons  t  yp ( *  > . Cl  oud  tit  .Du"' 
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Table  6-14.  Ground  combat  code  (continued). 


_tar g  <  * ) ) 

15654  'STORE  CLGP  KILLS  AND  SUBTRACT  LOSSES 
15657  FOR  1=1  TO  70 
15660  IF  I <36  OR  I >40  THEN 

15663  Sys_pgm <2, I ) =Sys_pgm (2, I ) +C  targ(2,I) 

15666  Sys_tot (4, I )=Svs_tot (4,1) -c’  targ  <2. I ) 

15669  END  IF 
15672  NEXT  I 

15675  IF  R_mount<  >0  THEN 

15678  CALL  In-f  _sur  vi  ve  <C_t  <  *  )  ,  3,  C_t ar  g  (  *  )  .  2,  R_  1  d_-f  act ,  I n-f  s  urvU)  ) 

15681  FOR  1=36  TO  40 

15684  Sys_pgm  (2,1)  =Sys_pgm  (2,  I )  -t-In-f  _surv  (  1-35) 

15687  Sys_tot ( 4 , I ) =Sys_tot (4, I > -Inf _surv ( 1-35) 

15690  NEXT  I 
15693  END  IF 
15696  1 

15699  End_clgp:  ! 

15702  RETURN 
15705  ! 

15708  ! - 

15711  ' 

15714  Dump _ input:  ! 

15717  IF  End_t i me\ 2400  THEN 

15720  PRINT  "LINE  1  :  ",  Turn, Sector ,No_b  un i t , No_r_un i t , St  t i me, End  1 1 me 

15723  ELSE 

15726  PRINT  "LINE  1  :  ",  Turn , Sector , No_b  uni t , No_r _uni t , St _ti me, End  1 1 me-240 

15729  END  IF 

15732  PRINT  USING  " / ,  1 1 A, 29X . 10A" ; "BLUE  UNI TS : " . "RED  UNITS:" 

15735  FOR  1=0  TO  9  STEP  3 
15738  FOR  J=1  TO  3 

15741  PRINT  USING  Fmtd : B_uni  t _no < I +J ) . B  uni t _pct < 1+ J > 

15744  NEXT  J 

15747  Fmtd: IMAGE  3D,  1 X , 3D,  3X  ,  # 

15750  PRINT  USING  "7X,#" 

15753  FOR  J=1  TO  3 

15756  PRINT  USING  Fmtu : R_uni t _no ( I +J ) , R_un i t _pct < I +J ) 

15759  NEXT  J 

15762  Fmtu: IMAGE  3X . 3D, 1 X . 3D, # 

15765  PRINT  USING 
15768  NEXT  I 
15771  PRINT 
15774  PRINT 

15777  PRINT  "  "ATTACKER" ," INI T  RG ” . " DF  R3"."#  MINFLDS" . "MTD/DSMT" . " 

MT  INF?" 

15780  PRINT  "LINE  4  :  ";AtK  de-f.Init  rg  ,  D+  _rq .  No_mi  net  l  el  ds .  Ri  de.  Di  s_i  n-f 
15783  PRINT 

15786  PRINT  “LINE  5  :  VISIBILITY.  CLOUD  HT.  AND  HUMIDITY:  ":Vis. Cloud  ht.Irh 
15789  PRINT 

15792  PRINT  "LINF  6  :  DEEP  ATTACK  #";Ialb 
15795  PRINT 
15798  PRINT 

15801  PRINT  "BATTI  E  PARAMF  rFF:S:  " 
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Ground  combat  code  (continued). 


1 5804  PRINT 

1 15007  PRINT  "LINE  7  :  "  ;  B_msn  <  1  )  -1  .  B_terr  .  B_rq  break,  R_pct_fwd,  B_mopp  .  T_1 enqt 

1 > / 1 000, T_width(l) /lOOO, B_ break _t < 1 ) , B,cas_breat 
15810  PRINT 

15813  PRINT  "LINE  8  :  R_msn  (1) -1 ,  R_terr .  R  rq  break .  R  .pct_fwd ,  R_mopp ,  T_1  engt 

2)  /  lOOO,  T_  wi  dth  (2)  /  1000.  R_break_t  ( 1 )  ,  R_cas_.br  eal' 

15816  PRINT 
1 58 1 9  PRINT 

15822  PRINT  "HELICOPTER  DATA: " 

15825  PRINT 

15828  PRINT  "LINE  9  :  “  ;  B_hel  o  <  1  „  1  >  ,  B_hel  o  <2.  1  >  .  B_hel  o  <3,  1  >  ,  B_hel  o  <  1 , 3)  .  B._hel 

2,3) , B_helo_atkpro-f ( * ) , B_hel o_del ay , B_hel o_rq  del  ay . B_hel o_msn  < * ) , B _atk_r g ( * ) 
15831  PRINT 

15834  PRINT  "LINE  10:  " ; R_hel o < 1 , 1 > . R_hel o <2. 1 > , R„hel o (3, 1 > , R_hel o < 1 . 3) , R_hel c 

,  3)  ,  R_hel  o_atkprof  <  * )  , R_hel  o_del  ay,R_helo_rq  del av, Rhel  omsn  (  *  )  ,  Rat  k  rg  (  *  ) 
15837  PRINT 
15840  PRINT 

15843  PRINT  "ARTILLERY  DATA:" 

15846  PRINT 

15849  PRINT  "LINE  11:  Bi f _msn <*), B_prep_ t i me-30 . No_gamp , Per c_gamp , No_c 1 qp . Pe 

_cl gp , Cl gp_rpv 
15852  PRINT 

15855  PRINT  "LINE  12:  ";  Ri  -f  _msn  (*).  R  _prep  t 1  me-30 
15858  PRINT 
15861  PRINT 

15864  PRINT  "MINEFIELD  DATA:" 

15867  PRINT 

15870  FOR  I=-13  TO  15 

15873  PRINT  "LINE  ";I:":  "  ;  Mi  ne-f  i  el  d  <  I -12 . 1 )  .  Mx  nef  i  el  d  <  I- 12, 2)  ,  Mi  ne-f  i  el  d  ( I -12 

)  .Mine-field  (  1-12,  4) 

15876  NEXT  I 
15879  RETURN 
15882  1 

1 5885  1 - — - 

15888 

15891  Cl ose_f i 1 es:  ! 

15894  ASSIGN  SOJnitpath  TO  * 

15897  ASSIGN  t?Kvpath  TO  * 

15900  ASSIGN  <?Helopath  TO  * 

15903' ASSIGN  BAmmopath  TO  * 

15906  ASSIGN  <?Advanpath  TO  * 

15909  RETURN 
15912  ' 

15915  ! - 

15918  ' 

15921  1 

15924  Halt:  ' 

15927  END 
15930  ' 

15933  ' 

15936  ' 

15939  '*********************»*********#**********»*****#*****»**************** 
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Table  6-14.  Ground  combat  code  (continued). 

*********************  ************************************************ 

15942  ! 

15945  SUB  Fwd-fp  (Sys_tot  (*)  .F_masK«)  ,  At._d  +  .D  pet  Jwd.D  fp.Sys.eH  (*)  ) 

15948  OPTION  BASE  I 
15951 1 

15954 'SET  POINTERS  FOR  EFFECTIVENESS 
15957' 

15960  IF  At_d*=0  THEN 
15963  Spt=l  'BLUE  DEFENDER 

15966  Se-f  =  1 

15969  ELSE 

15972  Spt=3  ! RED  DEFENDER 

15975  Sef =2 

15978  END  IF 
15981  ' 

15984! CALCULATE  INITIAL  EFFECTIVENESS 
15987 ' 

15990  lnit_e-f-f=0 
15993  Cur_e-f  f  =0 
15996' 

15999  FOR  1=1  TO  10 

1 6002  A=F_mask  <  I )  *D_pct_-f  wd *Sys_e-f  -f  (Se-f  .  I  ) 

16005  Init_e-f  -f  =  Init_e-f  f +A*Sys_tot  (Spt.  I ) 

16008  Cur  e-f  -f  =Cur_e+ -f  +A*Sys_tot  (Spt+1 .  I ) 

16011  NEXT  I 
1 60 1 4 ! 

16017  D_Tp=0 

16020  IF  Ini  t_e-f  f  =0  THEN  GOTO  Ret 
16023  D_-fp=Cur _e-f  f /  Ini  t  _et  f 
16026  Ret:  ' 

16029  SUBEND 
16032  ! 

1 6035  !****************** ******************************  ********************* 

1 6038  ' 

1 604 1  SUB  D-f  _ammo  <Sys_tot  (*)  ,  B_amma  ( *  >  ,  R_ammo  (  *  >  ,  B_d-f  _ammo .  R_df  _ammo .  B_engaq 
ts  ( *  > . R_enqaqements (  * )  ) 

16044  ' ~ 

16047  OPTION  BASE  1 
1 6050  ! 

16053  DIM  B_ammo_wt (20) , R_ammo_wt (20) 

16056  ' 

16059  ! 

16062  Run«="BH_" 

16065  DIM  Dlsk:3*C503 
1 6068  Di sk3*= " : 9 1 34 . 704 ,  O" 

16071  ' 

16V74  'READ  WEIGHT  ?-  ENGAGEMENT  FILE 
16077  ASSIGN  tl'Pl  TO  Run*?-"  DFAMO"  ?<Di  sk3* 

1 6080  ' 

16083  Red*="RD_" 

16086  ASSIGN  <?P2  TO  Red*?-" DFAMO" ?<Di  si  3* 

16089  ENTER  i;‘Pl.l;B  ammo  w  t  (  * ) 
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16092  ENTER  i?P  1 , 2;  B_engagements  (  *  ) 

16095  ENTER  i?P2 ,  1 ;  R_  ammo_  wt  (  * ) 

16098  ENTER  G'P2. 2:  R  engagements  (  ♦  ) 

16101  ASSIGN  PPl  TO  * 

16104  ASSIGN  i?P2  TO  * 

16107  ! 

16110  ‘TOTAL  CAPACITY 
16113  B_capacxty=0 
16116  R_capacity=0 
16119  FOR  1  =  1  TO  20 

16122  B_capacity=B_capacity+Sys_tot (2, I >  #B_ammo_wt  < I ) *B_engagements ( I ) 

16125  R_capaci ty=R_capaci ty+Sys  tot  <4, I ) *R_ammo_wt  < I ) *R_engagements ( I > 

16128  NEXT  I 
16131  > 

16134  ! RNDS  FOR  EACH  WEAPON  IN  POUNDS 
16137  FOR  1=1  TO  20 

16140  IF  B_capaci ty< >0  THEN  B_ammo ( 1 , I ) =B_engagements ( I ) #B_d+ _ammo*200O/B_c 
acity 

16143  IF  R_capaci  ty<  >0  THEN  R_ammo  ( 1 ,  I )  =R_engagements  ( I  >  *R_d-f  _ammo*2000/R_c 
acity 

16146  NEXT  I 
16149  FOR  1=1  TO  20 

16152  Bammo (1,1) =8_ammo (1,1) #Sys_tot (2, I ) 

16155  R_ammo (1,1) =R_ammo (1,1) *Sys_tot (4,1) 

16158  NEXT  I 
16161  FOR  1=1  TO  20 

16164  IF  Sys_tot (2, I ) < >0  THEN  B_ammo ( 1 , I ) =B_ammo ( 1 , I ) /Sys_tot (2. I > 

16167  IF  Sys  tot(4,I)<>0  THEN  R  ammo ( 1 , I ) =R_ammo ( 1 ,  I ) /Sys  tot(4.I) 

16170  NEXT  I 
16173  ! 

16176  ‘WEIGHT  IN  TONS  PER  WEAPON 
1-6179  FOR  1  =  1  TO  20 

16182  B_ammo (1,1) =B_ammo (1,1) *B_ammo_wt ( I ) /2000 

16185  R_ammo (1,1) =R_ammo (1,1) *R  ammo_wt ( I > /2000 
16188  NEXT  I 
16191  ' 

16194  SUBEND 
16197  1 

1 6200  ‘ft*******************************************************  *******  #**#*#*# 
16203  ! 

16206  SUB  Ammo (Rndse ( * ) , Wrndse ( * )  ,  Ad_ammo, Ad_el  e ( * )  , Ad_eng ( * ) ) 

16209  !•• — THIS  SUBROUTINE  CALCULATES  THE  NUMBER  OF  ENGAGEMENTS  AVAILABLE  FOR 
EACH  AD  ELEMENT  BASED  ON  ITS  SHARE  OF  THE  AMMO. 

16212  OPTION  BASE  1 
16215  DIM  Wt_ad ( 7 ) 

16218  !  CALCULATE  THE  PERCENTAGE  OF  AMMO  DUE  TO  EACH  ELEMENT  TYPE 
16221  Total =0 
16224  FOR  1=1  TO  7 

16227  Wt  _ad ( I )  =  (Ad_el e( I ) * (Ad_eng (1,1) +Ad_eng (1,2)) *Wrndse ( I ) ) /2O00 

16230  Total=Wt_ad ( I ) +TotaT 
16233  NEXT  I 

16236  IF  Total  •  =Ad_ammo  THEN  16269 
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16239  ‘COMPUTE  SCALE  FACTOR 
16242  Sc  1 e=Ad_ammo/Total 
16245  (RESCALE  ALL 
1624S  FOR  1=1  TO  7 
16251  Wt_ad(I)=Scle*Wt_ad(I) 

16254  Ad_eng (1,1) =Ad_eng (1,1) *Scle 

16257  Ad_eng (1,2) =Ad  eng ( I , 2) *Scl e 

16260  NEXT  I 
16263  Total-Total *Scle 

16266  (NOW  SUBTRACT  AMMO  USED  FROM  AMOUNT  AVAILABLE 
16269  Ad_ammo=Ad_ammo-Total 
1 6272  SUBEND 
16275  ! 

1627S  !**********************i*********************************************** 
16281  ! 

16284  SUB  Ad_pri (Expos (*), N_systems (*), Ad_pri or (*> ) 

16287  ! ! !  -  THIS  SUBROUTINE  DISTRIBUTES  THE  AD  FIBERS 
16290  OPTION  BASE  1 
16293  Total =0. 

16296  FOR  1=1  TO  2 
16299  Ad_pr i or ( I > =0 

16302  Total  -Expos  ( I )  *N_systems  ( I )  -t-Total 

16305  NEXT  I 

16308  IF  Total =0  THEN  End_sub 
16311  FOR  1=1  TO  2 

16314  Ad_pr l or ( I ) -Expos ( I ) *N_systems ( I ) /Total 

16317  NEXT  I 
16320  End_sub: ! 

16323  SUBEND 
16326  ! 

1 6329  !********»**********»**«********:**«************************************ 

16332  ! 

16335  SUB  Fi  redst  (P_pret  (  * )  .  Target  <*)  .  Mtgpr-f  (#)  ,  P_pep ,  P_veh ,  T_targets,  Pkmse  (  * 

16338  (!!  -  THIS  SUBROUTINE  CALCULATES  THE  DISTRIBUTION  OF  FIRE  UNDER  THE  CUF 

T  TARGET  CONFIGURATION.  ADJUST  THE  TARGET  ENTRY  TO  REPRESENT  INFANTRY  SOUADS 

16341  OPTION  BASE  1 

16344  FOR  1=36  TO  47 

16347  Target (1,1) -Target ( 1 , I ) /8. 

16350  Targ.  L (2, I ) -Target (2, I ) /8. 

16353  NEXT  I 

16356  ! ! !  —  CALCULATE  THE  WEIGHTED  TARGET  SUM  AND  TARGET  SUM 
16359  W_sum=0 
16362  T_targets=0. 

16365  FOR  1=1  TO  70 
16368  Tgt— Target (2, I ) 

1637 1  W_sum=Mtgprf  ( I )  *Tgt*Pl'mse  <  I )  +W_sum 

16374  T_targets=T_targets+Tgt 

16377  NEXT  I  , 

16380  • ! !  -  CALCULATE  THE  WEIGHTS 
16383  IF  W_sum=0  THEN  GOTO  S_end 
16386  FOR  1=1  TO  70 
16389  Tgt=Tarqet (2, I ) 
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1  6392  P_pre-f  (  I  )  =Mtgpr -f  (  I  )  #Tgt  tPkmse  <  I  )  /W  sum 

16395  NEXT  1 

16398  IF  T_targets=0  THEN 

16401  P_pep=0 

16404  ELSE 

16407  Tot_init=0 

16410  T  ot_rem=0 

16413  FOR  1=36  TO  47 

16416  Tot_init=Tot_init+Target (1 , I ) 

16419  Tot_rem=Tot_rem+Target  (2,1  > 

16422  NEXT  I 

1 6425  P_pep=  <Tot_i ni t-Tot_rem> /T_t ar gets 

16428  END  IF 

16431  P_veh=l . — P_pep 

16434  FOR  1=36  TO  47 

16437  Target (1,1) =Target  < 1 . I ) *8.  !  RESTORE  TARGET 

16440  Target (2, I)=Target  <2, I) *8. 

16443  NEXT  I 
16446  S_end:  ! 

16449  SUBEND 
16452  ! 

16455  !***************************»**********«******************************** 

16458  1 

1 6461  SUB  Hel o_am<no (Sys_tot ( * ) , Target ( * ) .Side. Ad _ ammo. Ad_hel o, Basi c_l d ( #  > . Ammo 

tun 

16464  OPTION  BASE  1 
16467  DIM  Adc  < 7 > 

16470  1 

16473  Total =0  'SET  TOTAL  WEIGHT 
16476 'CALCULATE  POINTER  TO  TOTAL 
16479  Adpt=Side*2  'SET  POINTER  TO  AD  SIDE 
16482  FOR  1=1  TO  7 

1 6485  Adc  < I ) =Sys_tot ( Adpt , I +47 ) *Basi c_ld (Side, I+47>  * Ammo  wt (Side, 1+47) 

16488  Total =Total +Adc ( I ) 

16491  NEXT  I 
16494  Ad_helo=0 
16497  FOR  1=1  TO  7 

16500  IF  Sys_tot  (Adpt,  1+47)00  AND  Total  OO  THEN 

1 6503  Ad_hel o=Ad_hel o+ ( Adc (I) /Total ) * Ad_ammo/Sys_tot ( Adpt , 1+47) # Tar get ( 1 . 

47) 

16506  END  IF 

16509  NEXT  I 
16512  SUBEND 
16515  ! 

16518  '****************#*****#***********************************#*  *********** 

16521  ' 

16524  SUB  Mi  nes  ( Sys_mi  ne  (  #  )  ,  Mi  ne-f  i  el  d  (  *  )  .  Mi  ne_h i  t .  At k  de-f  ,  Bui  bch. Phase) 

16527  1 

16530  OPTION  BASE  1 
1 6533  ' 

16536  COM  /Mines/  Mineirct (4,70) 

16539  ' 
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16542  'INITIALIZE 
16545  FOR  1=1  TO  70 
16548  Sys_mi ne (2, I > =0 

16551  Sys_mine <4, I ) =0 

16554  NEXT  I 
16557  ! 

16560  !  CHECKS  FOR:  _ 

16563  ! SECTOR  WIDTH=0, MINEFIELD  W I DTH=0, FORCE  ENTER ING=0 . OR  PREVIOUS  ASSESSME 

16566  IF  Minefield (Mi ne_hi t, 2) =0  OR  Mi nef i el d (Mi ne_hi t , 3> =0  OR  Mi nef i el d (Mi ne 
i t , 4 ) —0  OR  Minef i el d (Mi ne_hi t , 6) =1  OR  Bul_bch=0  THEN  GOTO  Rtn 
16569  ! SET  FOR  ATTACK  POSITION 
16572  SELECT  Atk_def 

16575  CASE  0  'RED  IS  ENTERING  MINEFIELD 
16578  Entering=3 

16581  Kill ed=4 

16584  I as=3 

16587  IF  Bui _bch=2  THEN  Ias=4 
16590  CASE  1 
16593  Enter i ng= 1 

16596  Kill ed=2 

16599  Ias=l 

16602  IF  Bui _bch=2  THEN  Ias  =  2 

16605  END  SELECT 
1 6608  ( 

16611  'MINEFIELD  COVERAGE  FRACTION 

16614  Mcf =  (Mi  nef  i  el  d  (Mi  ne_hi  t  .2)  /Minefield(Mine_hit,3>  > 

16617  f 

16620  Tot_veh=0 
16623  FOR  1=1  TO  70 

16626  Tot _veh  =  Tot  _veh+Sys_mi ne (Enter ing, I ) 

16629  NEXT  I 

16632  IF  Tot_veh<3  THEN  Rtn 
16635  ' 

16638  SELECT  Phase 

16641  CASE  0,1  (PHASE  1 

16644  Col _no=3 

16647  CASE  ELSE  'PHASE  2  OR  3 

16650  Col_no=6 

16653  END  SELECT 

1 6656  ! 

16659  Calumns=Tot_veh/Col  no 
16662  ' 

16665  'CALCULATE  LOSSES 
16668  FOR  1=1  TO  70 

16671  Sys  mi ne (k l 1  led, I )  =  < Me f *Sys_ mi  ne ( Ent er  i  ng . I ) /Tot  _veh ) *Cal umns*Mi ne_t 

(  las,  I ) 

16674  NEXT  I 
16677  ' 

16680  (SET  ASSESSED  FLAG 
16683  Rtn:  ' 

16686  Mi nef i el d (Mi ne  hit.6)=l 
16689  ' 
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16692  SUBEND 

16695  1 

16696  ^t^l**************************************************************** 

16701  ' 

16704  SUB  In-fan  try  (Sys  <  #  )  .Force.  Cstat  (  *  )  .  Attacker  ,  Hr  con  -f  1  i  ct .  Lossb  1  ue.  Lossn 
16707  OPTION  BASE  1 

16710  DIM  Brate (2) , Loss (2)  « Pers (2) .Bstat (2) 

16713  DIM  Fr at i o <2) , What (2) 

16716  1 

16719  COM  /In-fantry/  Conver  td  ( 10>  .  Conver  ta  ( 1 0,  10)  ,  Fpsb  (70, 2 . 2)  ,  Fpsr  ( 70.  2 . 2 ) 
16722  1 

16725  Bstat (l)=Cstat(l) 

16728  Bstat (2) =Cstat (2) 

16731  Frac_comtd=l . 

16734  IF  Attacker =1  THEN 
16737  Defender=2 

16740  ELSE 
16743  Defender=l 

16746  END  IF 
16749  ! 

16752  Pers  < 1 ) =0 

16755  Pers (2) =0 

16758  FOP  1=36  TO  47 

16761  Pers ( 1 ) =Pers ( 1 ) +Sys ( 1 , I ) 

16764  Pers (2) =Pers (2) +Sys (3,1) 

16767  NEXT  I 

16770  ! PERFORM  CONVERSION  TO  SUB  MISSION  VALUES  FOR  RATE  SUB  USAGE 
1 6773  What  ( Attacker  )  =Converta  (Bstat  (Attacker  )  .Bstat  (De-fender  )  ) 

16776  Defender*  (Attacker  MOD  2>-+-l 

16779  What (Defender ) =Convertd (Bstat (Defender  > ) 

16782  1 

16785  Fratio(l)=0 
16788  Fr at i o (2) =0 

16791  ! COMPUTE  BLUE  (1)  AND  RED  (2)  UNADJUSTED  FIREPOWER  SCORES 

16794  FOR  1=1  TO  70 

16797  Fratio  ( 1 )  =Fratio  ( 1 )  -►  (Sys  (1,1)  *Fpsb  ( I ,  Force,  Attacker  )  ) 

16800  Frat  i  o  (2)  =Fr  at  i  o  ( 2 )  ( Sys  (3,  I  >  *Fpsr  (  I ,  Force.  Attacker  )  ) 

16803  NEXT  I 

16806  ! DETERMINE  WHO  IS  ATTACKER/DEFENDER; GET  APPROPRIATE  FORCE  MULTIPLIER 

16809  ! BASED  ON  MISSIONS  OF  EACH 

16812  IF  Attacker=l  THEN 
16815  T  op=Fr  at 1 o ( 1 ) 

16818  Bottom=Fratio (2) 

16821  ELSE 

16824  Top=Frati o (2) 

16827  Bottofn=Frati  o  (  1  > 

16830  END  IF 

16833  SELECT  What ( Defender ) 

16836  CASE  21 

16839  Omul t 1 p 1 y=l . 0 

16842  CASE  22 

16845  Dmul 1 1 p 1 y= 1 . 0 
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16848 
16851 
16854 
16857 
16860 
16863 
16866 
16869 
16872 
16875 
16878 
16881 
16884 
16887 
1 6890 
16893 
16896 
16899 
16902 
16905 
16908 
16911 
16914 
16917 
1 6920 
16923 
16926 
16929 
16932 
16935 
16938 
16941 
16944 
16947 
16950 
16953 
16956 
16959 
16962 
16965 
16968 
16971 
16974 
16977 
16980 
16983 
16986 
16989 
16992 
16995 
16998 
1  700 1 


CASE  23 

Drm.il  t  i  pi  y= .  5 
CASE  24 

Dmul tiply*=2. 0 
CASE  25 

Dmul t i pi y=l . 5 
CASE  26 

Dmul  ti  pi  y=l .  2 
CASE  27 

Dmul ti pi y=4. 5 
END  SELECT 

SELECT  Bstat (Attacker) 

CASE  2 

Amul tipi y= 1.5 
CASE  4 

SELECT  6s tat ( Defender ) 

CASE  2 

Amul tipi y=l . 5 
CASE  6 

Amul ti pi y=l . 5 
CASE  9 

Amul t i pi y=2 . 

CASE  ELSE 

Amultiply=l 
END  SELECT 
CASE  5 

SELECT  Bstat  (De-fender ) 

CASE  2 

Amul t i pi y=l . 5 
CASE  6 

Amul t i pi y=  1 . 5 
CASE  7 

Amul tipi y=l . 5 
CASE  8 

Amul t i pi y= 1 . 3 
CASE  9 

Amultiply*=2.0 
CASE  ELSE 

Amul ti pi y=  1 . 

END  SELECT 
CASE  7 

PRINTER  IS  1 

PRINT  "ATTACKER  HAS  BEEN  GIVEN  DEFENSIVE  MISSION. 
PRINT  "INFANTRY  ROUTINE  WILL  NOT  ACCEPT  THIS  CASE 
Subend*="SUBEND" 

CASE  8 

PRINTER  IS  1 

PRINT  "ATTACKER  HAS  BEEN  GIVEN  DEFENSIVE  MISSION. 
PRINT  "INFANTRY  ROUTINE  WILL  NOT  ACCEPT  THIS  CASE 
Subend*=" SUBEND" 

CASE  10 

Amul ti pi y=4. 5 


Table  6-14.  Ground  combat  code  (continued). 

17004  CASE  ELSE 
17007  Amultiply=l. 

17010  END  SELECT 

17013  IF  Subend*  = 11  SUBEND  "  THEN  GOTO  Subend 
17016  •  COMPUTE  FIREPOWER  RATIO 

17019  IF  Amul tipi y=0  OR  Dmultiply=0  THEN 
17022  PRINTER  IS  1 

17025  PRINT  "ERROR  IN  INFANTRY  SUBROUTINE:  FORCE  MULTIPLIER  IS  O" 

17028  END  IF 

17031  Tap=Top*Amul tipi y 

17034  Bottom=Bottom*Dmul  ti  pi  y 

17037  IF  Bstat (Defender ) =10  THEN 

17040  X=Top 

17043  Top=Bottom 

17046  Bottom=X 

17049  END  IF 

17052  Fpr=Top/Bottom 

17055  GOSUB  Losses 

17058  Lossbl ue=Loss < 1 ) 

17061  Lossred=Loss <2) 

17064  GOTO  Subend 
17067  ! 

17070  ! - 

17073  ! 

17076  Lasses:  ! 

17079  FOR  1=1  TO  2 
17082  GOSUB  Rate 

1 7085  X=Pers ( I ) *Fr ac_comtd*Brate ( I ) *Hr_conf 1 i ct 

17088  Loss ( I ) =X 

17091  NEXT  I 

17094  RETURN 

17097  t 

17100  ! - 

1 7 1 03  ! 

17106  Rate: ! 

17109  SELECT  What (I) 

17112  CASE  11 

17115  8rate(I>=. 0384* (Fpr^ (-.2383) ) 

17118  CASE  12 

17121  Brate  <  I )  =  .  0384*  (Fpr'*-  (-.  2383)  ) 

17124  CASE  13 

17127  Brate ( I ) =.0384* (Fpr  ^ (  — .  2383) ) 

17130  CASE  14 

17133  Brate  ( I )  = .  0483*  (Fpr"'  <-.  251 )  ) 

17136  CASE  15 

17139  Brate  <  I )  =.  0483*  (Fpr"v  251 )  ) 

17142  CASE  16 

17145  Brate  < I ) =. 0401  * (Fpr  (-.237) ) 

17148  CASE  21 

17151  Brate ( I >=.0125714+ (Fpr*. 0005)  +  (.001 143* (Fpr#Fpr>  > 

17154  CASE  22 

17157  Brate  ( I )  =  .  003286 +  ( .  0034 286 *Fpr  ) 
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17160  CASE  23 

17163  Brate < I )=. 003286+ ( . 0O34286*Fpr ) 

17166  CASE  24 

17169  Br at e ( I ) = . 009 1 9+  < . 0040B5*Fpr )  +  ( . 000097* < Fpr  *Fpr ) ) 

17172  CASE  25 

17175  Brate  < I >=.00919+ ( . 0040B5*Fpr >  +  ( . 000097* (Fpr *Fpr ) > 

1 7 178  CASE  26 

17181  Brate ( I >=. 012714+ (. 0005*Fpr >  +  (.001* <Fpr*Fpr  >  > 

17184  CASE  27 

171 87  Br  at  e  ( I  )  = .  0384*  (Fpr  '■  (  — .  2383)  ) 

17190  CASE  ELSE 
17193  PRINTER  IS  1 

17196  PRINT  "BAD  What  VALUE  IN  SUBROUTINE  Rate" 

17199  STOP 

17202  END  SELECT 
17205  RETURN 
17208  Subend: SUBEND 
17211  ! 

17214  ( ************************************************************  *********** 

17217  • 

1 7220  SUB  Di  smount  (Sys  ( * )  ,  Load_f  actor  ,  Mi  ssi  on  .Side. Range.  Mounted ,  Di  smount  ed  ) 

17223  !  PURPOSE  TO  CALCULATE  THE  NUMBER  OF  ELEMENTS  MOUNTED  AND  DISMOUNTED 

17226  OPTION  BASE  1 

17229  Si de_pt=2*Si de- 1 

17232  Sum_inf=0 

17235  FOR  1=36  TO  40 

17238  Sum_i  nf =Sum_i nf +Sys  (Si  de_pt ,  I  >  !  TOTAL  INFANTRY  FOR  DF 

17241  NEXT  I 

17244  IF  (Mission=4  AND  Range<600)  OR  •/Mission>=6  AND  Missions  =10)  THEN 
17247  Mounted3') 

17250  Di smounted=Sum_i nf 

17253  ELSE 

1 7256  Sum_df =Svs  (Si de_pt ,  16)  +Sys  (Side_pt,  17)  +Sys  (Sidept,  18)  +Sys  (Si  dept .  lc 

Sys (Sidept, 20) 

17259  CALL  Load_i  n-f  an  try  (Sys  (*>  .Mission, Si  de_pt .  Sumi  nf  .  Sum_df  .  Load_  factor) 

1 7262  Mount ed=Sum_df  *Load_f actor 

1 7265  Di smounted=Sum_i nf-Mounted 

17268  END  IF 

17271  SUBEND 

17274  ! 

17277  1  ***************************************************  ******************* » 

1 7280  ' 

1 7283  SUB  Load_i nfantry ( Sys (*) .Missi on ,Side_pt, Sum_ i nf . Sum_  df  .  Load_f  actor ) 
17286  ' 

17289  OPTION  BASE  1 
17292  SELECT  Mission 
17295  CASE  1  TO  6 
17298  IF  Suiri  df  =0  THEN 
17301  Load_ f actor =0 

17304  GOTO  End  rtn 

17307  END  IF 

17310  load  factor=Sum  inf /Sum  df 


6-VII-130 


Table  6-14.  Ground  combat  code  (continued). 


17313  IF  Load_f actor >B  THEN  Load_f actor=8 

17316  GOTO  End_rtn 

17319  CASE  7  TO  10 

17322  Load_f actor=0 

17325  End_rtn:  ! 

17328  END  SELECT 
17331  SUBEND 
17334  ! 

1 7337  !*******************************»**************************************> 

17340  SUB  Apport_i nf (Target (*>, Posi ti on, Di smount > 

17343  Tot_targ=0 

17346  FOR  1=36  TO  40  ‘TOTAL  UP  INFANTRY  FOR  DF  CARRIER 
17349  Tot  targ=Tot_targ+Target (Posi t i on,  I ) 

17352  NEXT  I 

17355  FOR  1=36  TO  40  ! APPORTION  INFANTRY 

17358  IF  Tot_targ=0  THEN 

17361  Target (Position, I ) =0 

17364  ELSE 

1 7367  Target (Position , I )  =  (Target (Posi ti on, I ) /Tot_targ  >  *Di  smount 

17370  END  IF 

17373  NEXT  I 
17376  SUBEND 

17379  !*****************«*********«****»»**********************»«*»*******»** 

1 7382  SUB  Inf_survi  ve  (Sys  (  *  )  ,  Pos_ini  t ,  Sys_rem  ( *  )  .  Pos_rem,  Load_f  actor ,  Inf  _surv 
) 

17385  1 

17388  Sum_df =0 

17391  FOR  1=16  TO  20  !  SUM  INFANTRY  CARRIERS  THAT  SURVIVED 

17394  Sum_df=Sum  df+Sys  rem (Pos_r em, I ) 

17397  NEXT  I 

17400  Mount_inf=Load  factor*Sum  df  !N0.  OF  MOUNTED  INFANTRY  THAT  SURVIVED 

17403  ' 

17406  Sum_inf=0 

17409  FOR  1=1  TO  5  ! SUM  INITIAL  NO.  OF  INFANTRY 

17412  IF  Pos_init>0  THEN  Sum_i  nf  =Sum_i  nf  +Sys  (F'os.  i  ni  t .  I  +35) 

17415  IF  Pos_init=0  THEN  Sum  i nf =Sum_i nf+Sys ( 1 ,  I  > 

17418  NEXT  I 
17421  ! 

17424  FOR  1=1  TO  5  ! APPORTION  MOUNTED  INFANTRY  THAT  SURVIVED 

17427  IF  Sum_i n-f  =0  THEN 

17430  Inf _surv ( I >  =0 

17433  ELSE 

17436  IF  Pos_init>0  THEN  Inf _surv( I ) =(Sys (Pos_init, 1+35) /Sum_inf ) »Mount_ 

17439  IF  Pos_init=0  THEN  Inf _surv(I )=(Sys(l, I) /Sum  inf ) $Mount_inf 

17442  END  IF 

17445  NEXT  I 
17448  SUBEND 

17451  !*****t**************************** *#*»>********#*****************»**** 

17454  ! 

1 7457  SUB  Ar ty_atr i t (Sys_arty(*> , B_msn . R_msn ,  Bi  f  _f  l red (*> ,  Ri  f  _f  i  r  ed  (  *  ) .Tlenq 
* )  ,  T_wi dth ( * ) ,  B_af  ire,R_afire,B  phase ,  At  Ir  _def  ,  Sys_t  ot  (  *  )  ,  R ) 

17460  OPTION  BASE  1 
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1  7463 

17466 

17469 

17472 

17475 

17478 

ask (3. 

17481 

17484 

17487 

17490 

17493 

17496 

17499 

1 7502 

17505 

17508 

1751  1 

17514 

17517 

1 7520 

17523 

17526 

17529 

1 7532 

17535 

17538 

17541 

17544 

17547 

1 7550 

17553 

17556 

17559 

17562 

1 7565 

17568 

17571 

17574 

17577 

1 7580 

17583 

17586 

17589 

17592 

17595 

17598 

1 760 1 

1  7604 

1  7607 

1 76 1 0 

17613 


DIM  A1  <  15.  72)  .  F  d  (5.  72)  .  Ps  <72>  ,  Del  _par  (  15.  10) 

DIM  Area  (5)  .Length  (5)  .  Wi  dth  (5)  .  Di  sk.3*C50J 
DIM  Vol 1 5 es ( 15, 5) 

COM  /Arty/  B_area_band(5> ,R_area_band(5) , B_di spr sn_mask  (  3 , in) . R_d i spr  nr 
10) , B_tgt_mask (5,72), R_tgt_mask (5,72), B_rd_wt  < 15) , R_rd_wt (15) 

COM  /Arty/  B_psnl  posture (2, 2) , R_psnl _posture (2, 2) , II e <5 ) 

Barty_f  ire=B_afire 
Rarty_f i re=R_af  i  re 

IF  Barty_f  i  re>4  THEN  Bar  ty_f  i  re-=4 
IF  Rarty_fire>4  THEN  Rarty_fire=4 

!  BLUE  -firing  on  RED 
FOR  Task=l  TO  5 

lncrease_radius=0 
1  Calc  tgt  area 

!  this  reduces  total  area  to  only  that  area  task  is  targeted  against 
Area (Task ) =T_1 ength (2) *T_wi dth (2) *R_area_band ( Task  > 

!  now  handle  dispersion 
IF  Barty_fire>l  THEN 

1  IF  THE  TARGET  IS  RECEIVING  FIRE,  IT  CAN  DISPERSE  DEPENDING  ON  MSN?,F'HAS 
IF  R_di sprsn_mask (B_phase, R_msn) =1  THEN 

Increase_radius=20OI (Bar ty_f i re- 1 )  1  200  DISMT  M0VE/30  MIN 

IF  R=0  AND  Atk_def=0  THEN 

Increase  r ad i us= 1000* ( Bart y_f i r e- 1 )  !  1000  MOUNT  MOVE/30  MIN 
END  IF 

Rad i us=SQR (Area(Task)/PI> 

Area  (Task  )  =PI  *  (Radi  us-r  Increase  radi  us)  '2 
END  IF 
END  IF 

Calc_len_r:  1 

Length  (Task  )  =SQR  (Area  (Task.)  > 

Width(Task) =Length ( Task ) 

NEXT  Task 

i 

!  LOAD  LETHAL  AREAS 

!  CHANGE  BARTLA*  AND  DISK 3*  TO  READ  NEW  FILENAMES  AND  WINCHESTER 

Bar tl a*="BH_R_LA" 

Di sk3*= " : 9 1 34 , 704 , 0“ 

ASSIGN  <?Areafile  TO  Bar  1 1  a*5<Di  sk3$ 

ENTER  6-Areaf  i  le;  A1  (*) 

!  CONVERT  TONS  OF  AMMO  TO  VOLLIES  TO  FIRE 
FOR  Type=l  TO  15 
FOR  Task= 1  TO  5 

IF  Type >=12  AND  Type<=15  THEN  1 MLRS 
Tubes_per _vol =1 
ELSE 

Tubes_per_vol =6 
END  IF 

Throw_wt  =  Tubes_per _vol  *B_rd_wt (Type) 
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17616 

17619 

17622 

17625 

17628 

17631 

17634 

17637 

17640 

17643 

17646 

17649 

17652 

17655 

17658 

17661 

17664 

17667 

17670 

17673 

17676 

17679 

17682 

17685 

17688 

17691 

17694 

17697 

17700 

1 7703 

17706 

17709 

17712 

17715 

17718 

17721 

17724 

17727 

17730 

17733 

17736 

1  7739 

17742 

17745 

17748 

17751 

17754 

17757 

17760 

17763 

17766 1 

17769 ' 


Table  6-14.  Ground  combat  code  (continued). 

IF  Sys_tot (2, Type+20> >0  THEN 

Ool  1  i  es  (Type,  Task)=Bit_tired  (Type.  Task)  /Throw_wt 
ELSE 

Vol 1 i es ( Type , Task ) =0  \  number  ot  Btry/plt  vol 3 i es  or  lehr  loac 

END  IF 
NEXT  Task 
NEXT  Type 

I 

Btd*="FIDEL_H" 

Di sk3*- "  :  9134, 704, 0“ 

ASSIGN  GReadblue  TO  Btd*&Disk3* 

ENTER  (?Readbl  ue;  Del  _par  <  *  ) 

!  calculate  td  it  total  it  losses 

!  THIS  CHANGE  TO  DEL_PAR < 1 , 3 >  REFLECTS  TWO  CANNON  ARTILLERY  SYSTEM  BEIN 
!  PLAYED  FOR  BLUE(155MM  AND  8“)  ONLY  ONE  USED  IN  HTLD  STUDY 

FOR  Elemental  TO  35 
Ps (Element) =1 
GOSUB  Compute 

!  this  computes  total  losses  due  to  indirect  -fire 

Sys_arty (4, El ement )  =  < 1— Ps (El ement ) ) *Sys_arty (3. El ement ) 

NEXT  Element 

!  this  allows  2  postures  tor  intantry 
Element=71  !  standing 
Ps (71 ) =1 
GOSUB  Compute 

l 

El ement=72  !  CROUCH 
Ps ( 72  >  =  1 
GCJSUB  Compute 

i 

Attacker=Atk_det+l 
IF  Barty_tire>l  THEN 

Posture=B_psnl _posture (Attacker  ,  2) 

ELSE 

Posture=B_psnl _posture (Attacker  ,  1 ) 

END  IF 

I 

Ps_i nt=  ( 1 -Posture)  *Ps  <71 )  •*-Posture#Ps  (72) 

FOR  Element=36  TO  47 
Ps (Element ) =Ps_i nt 

Sys_arty (4, El ement)  =  < 1-Ps (El ement) ) *Sys_ar tv <3. El ement ) 

NEXT  Element 
FOR  El ement=48  TO  70 
Ps (Element ) =1 
GOSUB  Compute 

Sys _ar ty (4 , El ement )  =  ( 1 -Ps (El ement ) ) *Sys_arty  < 3. El  ement ) 

NEXT  Element 
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Ground  combat  code  (continued) 


17772 
17775 
17778 
17781 
17784 
17787 
1  7790 
17793 
17796 
17799 
1 7802 
17805 
17808 
17811 
17814 
17817 
17820 
17823 
17826 
17829 
17832 
17835 
17838 
17841 
17844 
17847 
1  7850 
1  7853 
17856 
17859 
17862 
1  7865 
17868 
17871 
17874 
17877 
1 7880 
17883 
17886 
17889 
17892 
17895 
17898 
17901 
17904 
17907 
17910 
1  79 1 3 
17916 
17919 
17922 
1  7925 


1  RED  -firing  on  BLUE 
FOR  T ask=  1  TO  5 

lncrease_radius=0 
!  Calc  tgt  area 

!  this  reduces  total  area  to  only  that  area  task  is  targeted  against 

l 

Area (Task) =T_length  < 1 ) *T_wi dth ( 1 >  *B_area_band (Task  > 

!  now  handle  dispersion 
IF  Rarty_-f  ire)  l  THEN 

!  IF  THE  TARGET  IS  RECEIVING  FIRE,  IT  CAN  DISPERSE  DEPENDING  ON  MSN.^PHA! 
IF  B_di sprsn_mask (B_phase, B_msn) =1  THEN 
Increase_radi us=200* <Rarty_f i re-1 ) 

IF  R=0  AND  Atk_def =1  THEN 

Increase_radi  us=1200*  (Rartv-fire-l) 

END  IF 

Radius=SQR (Area (Task ) /PI) 

Area  (Task )  “PI  *  (Radi  us+Increase_radius>  ""2 
END  IF 
END  IF 

Calc_len_b:  ! 

Length (Task) =SQR (Area (Task ) > 

Width(Task) =Length ( Task ) 

NEXT  Task 

!  LOAD  LETHAL  AREAS 
Rartla*="R_H_LA" 

Di sk3*=" j  9134, 704,0" 

ASSIGN  i?Areafile  TO  Rartl  a*?<Di  sk3* 

I 

ENTER  ii’Area'f  i  le;  A1  (*) 

!  CONVERT  TONS  OF  AMMO  TO  VOLLIES  TO  FIRE 
» 

FOR  T ype= 1  TO  15 
FOR  T ask= 1  TO  5 

IF  Type >=12  AND  Type<=15  THEN  1 MLRS 
Tubes_per_vol =1 
ELSE 

Tubes_per_vol =6 
END  IF 

Throw_wt=Tubes_per_vol  *R_rd_wt (Type) 

IF  Sys_tot (4, Type+20) >0  THEN 

Vol  1  ies  (Type,  Task)  =Ri  -f  -f  i  red  (Type.  Task  )  /Throw_wt 
ELSE 

Vol 1 i es (Type, Task ) =0  '  number  of  Btry/plt  vol lies  or  lehr  load' 

END  IF 
NEXT  Task 
NEXT  Type 

I 

Rfd*="FIDEL_R" 

Di sk3*=" : 9134, 704,0" 

ASSIGN  £‘Readred  TO  Rfd*?«Disk3* 

ENTER  6‘Readr  ed  ;  Del  _par  (  *  ) 


Table  6-14.  Ground  combat  code  (continued). 

17920  1 

17931  1  calculate  id  total  it  lasses 

17934  FOR  El ement= 1  TO  35 
17937  Ps (El ement ) = 1 

17940  GOSUB  Compute_red 

17943  !  this  computes  total  losses  due  to  indirect  tire 

17946  Sys_ar ty (2, El ement )  =  < 1 -Ps (El ement ) >  *Sys_arty ( 1 . El  ement ) 

17949  IF  E 1 ement =1  THEN 

17952  END  IF 

17955  NEXT  Element 

17958  *  this  allows  2  postures  tor  intantry 

17961  Element=71  !  standing 

17964  Ps (71 ) =1 

17967  GOSUB  Compute  red 

17970  ! 

17973  Element=72  !  CROUCH 
17976  Ps (72) =1 
17979  GOSUB  Compute_red 
17982  ! 

17985  Attacker=Atk_det+l 
17988  IF  Rarty_tire>l  THEN 

17991  Posture=R_psnl _posture (Attacker . 2) 

17994  ELSE 

17997  Posture=R_psnl _posture (Attacker . 1 ) 

18000  END  IF 
18003  ! 

18006  Ps_int= ( 1 -Posture) #Ps (7 1 ) +Posture*Ps (72) 

18009  FOR  Element=36  TO  47 
18012  Ps (El ement > =Ps_i nt 

18015  Sys_arty(2,El ement ) = ( 1 -Ps (El ement ) ) *Sys_arty ( 1 . El ement ) 

18018  NEXT  Element 
18021  ! 

18024  FOR  Element=48  TO  70 
18027  Ps (Element ) = 1 

18030  GOSUB  Compute_red 

18033  Sys_arty (2, El ement  >  =  ( 1— Ps (El ement ) ) #Sys_arty ( 1 , El ement  > 

18036  NEXT  Element 

18039  !  FOR  Element=l  TO  70 

18042  '  NEXT  Element 

18045! 

18048  GOTO  Sub_end 
18051 ! 

18054! - 

1 8057 ! 

18060  Compute: ! 

18063  FOR  Task = l  TO  5 
18066  F_d (Task . El ement ) =0 

18069  NEXT  Task 
1 8072  1 

18075  FOR  Task= 1  TO  5 

18078  IF  R_tot_mask ( Task . El  ement ) =0  THEN  End_loop 
18081  ’  Type=l  !  arty  tiring  DP-ICM  I?  10  K 
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18084 
18087 
1 8090 
18093 
18096 
18099 
18102 
1 8 1  05 
18108 
181  1  1 
18114 
18117 
18120 


FOR  Type= 1  TO  7 

IF  Vol 1 i es (Type, Task ) >0  THEN 
GOSUB  Re_read 
W_dp=L_dp 

P_dp=l  -EXP  (F_dp_f  *A1  ( Type,  El  ement  >  ) 
A_el =L_dp*W  dp *P_dp 

L_v=L_v_f ac* (Sys_tot  <2, Type+20) /6) 
W_v=W_v_f ac* (Sys_tot (2, Type+20) /  b) 
N_r=6 

GOSUB  Calculate_fd 
END  IF 
NEXT  Type 


18123 
18126 
18129 
18132 
18135 
18138 
18141 
18144 
18147 
18150 
18153 
18156 
18159 
18162 
18165 
18168 
18171 
18174 
18177 
18180 
18183 
18186 
18189 
18192 
18195 
18198 
18201 
18204 
18207 
1 82 1 0 
18213 


<  Type=2  !  MLRS  -firing  DP- 1  CM  <*•  25  Km 
FOR  Type=12  TO  15 

IF  Vol 1 i es (Type, Task > >0  THEN 
GOSUB  Re_read 
W_dp=L_dp 

P_dp=l-EXP (P_dp_f *A1 (Type, El ement ) > 
A_el =L_dp#W_dp*P_dp 
L_v=L_v_f ac*  <Sys_tot (2, Type+20) ) 
W_v=W_v_f ac* (Sys_tot (2, Type+20)  ) 

Nr  =  1 2 

GOSUB  Calculate_fd 
END  IF 
NEXT  Type 

I 

Tpe3:  1 

I 

!  Type=3  !  MORTAR  FIRING  HE  @  3  Km 
FOR  Type=8  TO  1 1 

IF  Oral  lies (Type, Task) >0  THEN 
GOSUB  Re_read 

L_dp=L_dp_-f  #SQR  (A1  (Type, Element )  ) 
W_dp=L_dp/ . 564288772 
A_el=Al (Type, El ement ) 

L_v=L_v_f ac* (Sys_tot (2, Type+20) /6> 
W_v=W_v_f ac  * (Sys_tot (2. Type+20) /6> 
Nr  =6 

GOSUB  Cal cul ate_f d 
END  IF 
NEXT  Type 


18216  ! 

18219  ! 

18222  End_loop: 1 
18225  NEXT  Task 
18228  RETURN 
18231  1 

18234  • - 

18237  1 
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18240 
18243 
18246 
18249 
18252 
18255 
18258 
18261 
18264 
18267 
1 8270 
18273 
18276 
18279 
18282 
18285 
18288 
18291 
18294 
18297 
1 8300 
18303 
1 8306 
1 8309 
18312 
18315 
18318 
1 832 1 
18324 
18327 
18330 
18333 
18336 
18339 
18342 
18345 
18348 
1 835 1 
18354 
18357 
18360 
18363 
18366 
18369 
18372 
1 8375 
18378 
1 838 1 
1 8384 
18387 
18390 
18393 


Compute_red: 1 
FOR  Task=l  TO  5 

F_d (Task , £1 ement ) =0 
NEXT  Task 
FOR  Task  =  l  TO  5 

IF  B_tgt_mask (Task , El ement > =0  THEN  Skip 
!  Type=l  !  Arty  -firing  DP-ICM  i?  11.5  Km 
FOR  Type=l  TO  7 

IF  Vol 1 i es (Type, Task ) >0  THEN 
GOSUB  Re_r ead 

L_dp=L_dp_f *SQR  (A1  (Type,  El  ement  >  ) 
uf  dp=L_dp7. 564288772 

1  Note:  A1  is  equivalent  rd  A1 ,  not  submunition 
A_el=Al (Type, El ement > 

L_v=L_v_f ac* (Sys_tot (4, Type+20) /6> 
W_v=W_v_f  ac  * (Sys_tot (4, Type+20) /6> 

N_r  «=6 

GOSUB  Cal cul ate_f d 
END  IF 
NEXT  Type 
Rtpe2:  ! 

I 

(  Type=2  !  mrl  firing  HE  8  13.7  Km 
FOR  Type=l 2  TO  15 

IF  Vol 1 ies (Type, Task) >0  THEN 
GOSUB  Re_read 

L_dp=L_dp_f *SQR (A1 (Type, El ement ) ) 
W_dp=L_dp7. 564288772 
A_el=Al (Type, Element ) 
l__v=L_v_f  ac*  (Sys_tot  (4,  Type+20)  ) 

W_v=W_v_f ac* (Sys_tot ( 4 , Type+20) ) 

Nr  =40 

GOSUB  Calculate_fd 
END  IF 
NEXT  Type 

i 

Rtpe3:  ! 

i 

*  Type=3  mortar  firing  HE  <?  3.8  Km 
FOR  Type=8  TO  11 

IF  Vol 1 ies (Type, Task) >0  THEN 
GOSUB  Re_read 

L_dp=L_dp_f *SQR ( A1 (Type . El ement ) ) 

W_dp=l__dp  / .  564288772 
A_el=Al (Type, El ement ) 

L_v=L_v_f ac  * (Sys_tot ( 4, Type+20) / 6) 
W_v=W_v_f ac* (Sys_tot (4, Type+20) /6) 

N_r=6~ 

GOSUB  Calculate_fd 
END  IF 
NEXT  Type 
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Ground  combat  code  (continued) 


1  8396 

10399 

18402 ' 

18405 1 

18408' 

1841  1 

18414 

18417 

18420 

18423 

18426 

18429 

18432 

1 8435 

18438 

18441 

18444 

18447 

1 8450 

18453 

18456 

18459 

18462 

18465 

18468 

18471 

18474 

18477 

18480 

18483 

18486 

18489 

J  8492 

18495 

18498 

18501 

18504 

18507 

18510 

18513 

18516 

18519 1 

18522' 

18525' 

18528 

18531 

1 8534 

18537 

18540 

18543 

18546 

18549 


NEXT  Tast- 
RETURN 


Cal  cul  ate_-f  d:  ! 
L_ap=L_dp+Krep_p 
W_ap=W_dp+Kdep_p 
L_vp=L_ap+L_v 
W_vp=W_ap+W_v 
A_vp=L_vp*W_vp 
A_ap=L_ap  *W_ap 
0-f  =N_r  *A_ap/A_vp 


?  Single  Round  Adj 
!  Damage  Pattern 


!  Volley  Damage  Pat. 
1  Overlap  Factor 


IF  Ot<l  THEN  Ot  =  l 

' P_nv=l — ( 1- <A_el *N_r *R_r ) / (A_vp*Qt ) ) ' (Vol 1 i es (Type. Task ) *0+ ) 
P_nv  1  =  ( A_el  *N_r*R_r)  /  (A_vp*0t  ) 

IF  P_nvl >1  THEN  P_nvl=l 

P_nv=l - ( 1 -P_nvl ) ^ (Vol 1 i es ( Type , Task  >  *0+ ) 


P  ( riamaof 


Rep_tm=SQR<  (Rep_m~2)  +  (.  5731  *T1  e  ( Task  >  )  *2) 

Dep_tm=SQR( (Dep_m^2) +(. 5731 *T1 e (Task > >  2) 

A_ 1 = (L_vp+Length (Task) ) / (2. 96*Rep_tm> 

A_2= ( ABS (L_vp— Length (Task ) ) ) / (2. 96*Rep_tm> 

IF  A_l>33.532  THEN  A_  1  =33 . 532  !  trunk  it  area  too  large 

IF  A_2>33- 532  THEN  A_2=33. 532 

F_1  a=.5*A_l*SQR<  1 -EXP ( -. 63*A_ 1 ' 2)  )  +EXP (-.  5*A  1'2)  / SQF:  ( 2 * P I  ) 

F_1  b  =  .  5*A_2*SQR  ( 1  -EXP  ( -.  63*A_2''2>  >  +EXP  (-.  5*A~2‘ 2>  /SQR  (2*P  I ) 

F_1=F_1 a-F_lb 

Ec_r=2 . 96*Rep_tm*F_l /Length (Task )  !  expected  frac  coverage  in  range 

B_l  = (W_vp+Wi dth (Task) ) / (2. 96*Dep_tm) 

B_2=ABS(W_vp-Width (Task) ) / (2. 96*Dep_tm> 

IF  B_ 1 >33. 532  THEN  B_l=33.532  !  trunk  it  area  too  large 

IF  B_2>33. 532  THEN  B_2=33.532  .! 

F_wa=.5*B_l*SQR<  1-EXP  (-.  63*B_1 ~2>  )  +EXP  ( -. 5*B_ l  "'2)  /SOR  (2*PI  ) 
F_wb=.5*B_2*SQR(  1-EXP  (-.63*B_2'-2)  > +EXP  (-.  5*B_2 ' 2)  /SQR(2*PI  ) 

F_w=F_wa- F_wb 

Ec _d=2. 96*Dep_tm#F_w/Wi dth ( Task >  !  expected  trac  coverage  in  dt 

F_d (Task,Element)=Ec_r*£c_d*P_nv  1  "  "  damage 

!  accumulate  the  prob  ot  surv(Ps)  since  it  ’ s  joint  prob  tor  all  killer 
Ps (El ement ) =Ps (El ement ) * ( 1 -F_d ( T ask , El ement  >  > 

RETURN 


Re_read: ! 

L_dp=Del _par (Type, 1 ) 

L  _dp_ t  =Del _par (Type, 2) 
P_dp  _t  =Del _par (Type, 3) 
Krep_p=Del  par (Type. 4) 
Kdep_p=Del _par ( Type, 5) 
L_v_tac=Del  _par  (Type,  6) 
W_v_tac=Del _par (Type, 7) 


6-VII-138 


Table  6-14 


Ground  combat  code  (continued) 


18552  R_r=Del _par (Type, 8) 

18555  Dep_m=Del _par (Type, 9) 

18558  Rep_m=Del _par (Type, 10) 

18561  RETURN 
18564! 

18567' - 

18570! 

18573  Sub_end:  ! 

18576  ASSIGN  ©Readred  TO  * 

18579  ASSIGN  (?Readblue  TO  * 

18582  ASSIGN  (?AreaFile  TO  * 

18585  SUBEND 
18588  ' 

18591  !********#**M*********************>I^*  *******  ******  ********************* 

18594  ! 

18597  SUB  Ck_var  ( Var_naine* ,  T* ,  Variable ,  Mi  n_value,  Max  _val  ue) 

18600  PRINTER  IS  1 
18603  SELECT  T* 

18606  CASE  "THRU" 

18609  WHILE  Var  i  ab  1  e<  Mi  n  _  va  1  ue  OR  Variable  >Ma>:  _val  ue 
18612  GOSUB  Print_error 

18615  END  WHILE 

18618  CASE  "OR" 

18621  GOTO  Case_to 

18624  CASE  "TO" 

18627  Case_to:FOR  M=Min_value  TO  Ma>:_value 

18630  IF  Variable=M  THEN  GOTO  End_select 

18633  NEXT  M 

18636  GOSUB  Print.error 

18639  GOTO  Case.to 

18642  End_sel ect :  ! 

18645  END  SELECT 
18648  GOTO  Rtrn 
18651  Print_errar:  ! 

18654  PRINT 

18657  PRINT  "**  ERROR:  ":Variable;“  IS  INVALID  FOR  ";Var_namet 
18660  PRINT  "INPUT:  "  ;  Mi  n_val  ue;  "  "  ;  T* ;  "  "  ;  Ma>:  _val  ue:  "  ONLY" 

18663  INPUT  Variable 
18666  RETURN 
18669  Rtrn: ! 

18672  SUBEND 
18675  ! 

18678  !*********************************************************************** 
1 868 1  ! 

1 8684  SUB  Smoke  < Iun it,  I  el em, Amowt (  *  > , Fwi dt , Mt i me, I  km, Range , SI  eng (*> , Tot_sl eng . 
n ( * ) , Pseeopt ( * ) , Pseecs ( * ) , Pseethm ( * ) , Irh ) 

18687  OPTION  BASE  1 

18690  DIM  Smkdat (3, 2, 4, 7) , Snrd (7)  ,  Di sk3*C503 
18693  DIM  El  emit  1 1 , TypetC 4 1 , Si detC 1  1 
18696  COM  /Smoke/  Amwtpp  (3,  11),  Iro-f  (3,  1  1  ) 

18699  ! 

18702  Di  st-3*="  :  9134, 704,0" 


a. 
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18705  IF  I km= 1  THEN  Ikm=4 

18708  IF  I km=2  THEN  Ikm=3 

18711  IF  I km=3  THEN  Ikm=2 

18714  IF  I km=4  THEN  Ikm=l 

18717  IF  Range/  =500  THEN  Irg  =  l 

18720  IF  Range<=1000  AND  Range>500  THEN  Irg=2 

18723  IF  Range<=1500  AND  Range >1000  THEN  Irg=3 

18726  IF  Range<=2000  AND  Range>1500  THEN  Irg=4 

18729  IF  Range<=2500  AND  Range>2000  THEN  Irg=5 

18732  IF  Range<=3000  AND  Range>2500  THEN  Irg=6 

18735  IF  Range >3000  THEN  Irg=7 

18738  • 

18741  Istart=l 

18744  IF  Ielem=l  THEN  ! READ  ARTILLERY  DATA 

18747  Iend=7 

18750  Type*="ARTY" 

18753  ELSE  ! READ  MORTAR  DATA 

18756  Iend=4 

18759  Type*="MORT" 

18762  END  IF 

18765  IF  I uni  t  =  l  OR  Iunit=2  THEN  Side*=,,B" 

18768  IF  Iuni t=3  THEN  Sidet^'R" 

18771  FOR  I=Istart  TO  lend 
18774  J=I+Iel em-1 

18777  ElemS=VAL* < I ) 

18780  ASSIGN  8P  TO  " SMK_" &Type*S<Si de*S<El em*&cDi sk3* 

18783  ENTER  G'P,  1 ;  Smkdat  ( * > 

18786  ASSIGN  8P  TO  * 

18789  LET  Pseeopt < I ) =Smkdat < 1 , Irh ,  I  km,  I r g ) 

18792  LET  Pseecs < I ) =Smkdat <2, Irh , I  km,  Irg ) 

18795  LET  Pseethm  <  I )  =S(nkdat  ( 3.  Irh ,  I  km,  I  r g ) 

18798  ! 

18801  IF  Amowt ( J >  >0  THEN 

18804  LET  Amwtp=Amowt (J) *2000 

18807  LET  Nrd= INT  < Amwtp/Amwtpp ( Iuni t ,  J ) ) 

18810  LET  Snrd ( I >  =Nrd  ! SAVE  NUMBER  OF  ROUNDS  FIRED 

18813  ! 

18816  !  THIS  PORTION  OF  THE  PROGRAM  CALCULATES  THE  LENGTH (LENG)  OF  THE 

18819  ! SCREEN,  WHERE  LENGTH  IS  EQUAL  TO  ( NRD/ (MT IME* IROF ) ) *200 

18822  LET  SI  eng ( I )  =  (Nrd/ <Mt i me* IroF < Iuni t , J > > > *200 

18825  Tot_sl eng=Tot_sl eng+Sl eng ( I >  •  TOTAL  LENGTH  OF  SCREEN 

18828  ELSE 

18831  Snrd ( I ) =0 

18834  Sleng(I)=0 

18837  END  IF 

18840  NEXT  I 

18843  ! 

18846  !  THIS  PORTION  OF  THE  PROGRAM  DETERMINES  IF  THE  SCREEN  LENGTH ( SLENG > 
18849  1  IS  GREATER  THAN  FRONTAGE  WIDTH(FWIDT) ...  IF  SO  THEN  SLENG  BECOMES 
18852  !  FWIDT  AND  EXTRA  AMMO  IS  RETURNED  TO  DRIVER  ROUTINE 
18855  IF  Tot_sleng>Fwidt  THEN 

1 8858  Per caused = 1 - <  Tot  _s 1 eng-Fwi dt ) /Tot _sl  eng 


Table  6-14.  Ground  combat  code  (continued) 


18861  Tot_sl enq=Fwi dt 

18864  ELSE 

18867  Perc_used=  1 . 0 

18870  END  IF 

18873  1  DETERMINE  ANY  UNUSED  AMMO  AND  RETURN  IN  VARIABLE — TON 
18876  FOR  I=Istart  TO  lend 
18879  J=I+Iel em-1 

18882  SI  eng ( I ) =S1 eng  < I ) tPerc_used 

18885  IF  SI  eng  <11  >0  THEN  Nrd=INT  (SI  eng  ( I  >  /200*  (Mtimetlro-f  ( Iuni  t .  J  )  )  *.  5) 

18888  IF  SI eng ( I ) <=0  THEN  Nrd=0 

18891  IF  Snrd ( I ) >Nrd  THEN 

19894  Nrd l=Snrd  < I ) — Nrd 

18897  LET  Amwtp l=Amwtpp ( Iuni t , J ) *Nrd 1 

18900  LET  Ton ( I > =Amwtp 1 /2000 

18903  END  IF 

18906  NEXT  I 

18909  .‘DETERMINE  THE  7.  OF  FRONTAGE  COVERED  BY  THE  SCREEN.  WHERE  THE  7.  OF 
18912  (FRONTAGE  SMOKED (PSMOKED)  =  LENGTH  OF  SCREEN  DIVIDED  BY  THE  TOTAL 
18915  (FRONTAGE  BETWEEN  UNITS(FWIDT) 

18918  Psmoked=Tot_sl eng/Fwi dt 
1 892 1  ! 

18924  ('/.  FRONTAGE  NOT  COVERED  BY  SCREEN 

18927  Pnotsmk=l -Psmoked 
1 8930  * 

18933  SIJBEND 
18936  1 

18939  !*******************************«*****«********************************* 

18942  ! 

18945  SUB  Smkemp < Iunt , I el em. Amowt  <*) ,Fwidt,Mxtime, Ik. Range, Mt on ( *  > , At on ( *  > , Pvc 
, Pvcs, Pvth, Irh) 

18948  !  THIS  ROUTINE  CALLS  FOR  SMOKE.  1)  MORTARS  EMPLACE  SMOKE. .. IF  MORTARS 
18951  (  ARE  UNABLE  TO  COVER  ENTIRE  FRONTAGE, THEN  2 > ARTILLERY  EMPLACE  SMOKE. 

18954  !  BASED  ON  THE  UNSMOKED  FRONTAGE.. 

18957  ! 

18960  OPTION  BASE  1 

18963  DIM  Mpseeopt (4) , Mpseecs (4) , Mpseeth (4) , Apseeopt (7) , Apseecs (7) . Apseeth (7) 
18966  DIM  Ml  eng (4) , AI eng  < 7  > 

18969  ! 

18972  Iunit=Iunt 
18975  I  k<n=  I  k 
18978  Amwt=0 

18981  FOR  1=1  TO  4  (  TOTAL  WT.  OF  MORT  AMMO  AVAILABLE  TO  FIRE  FOR  SMOKE 

18984  Amwt=Amwt+Amowt ( I+7> 

18987  NEXT  I 

18990  IF  Amwt >0  THEN 

18993  Ielem=8 

18996  CALL  Smoke  ( Iuni  t ,  I  el  em,  Amowt  (*)  .Fwidt,M>:ti  me,  I  km,  Range ,  Ml  eng  (#  )  ,  Tot  _n 
ng ,  Mton ( *  > , Mpseeopt (*) ,Mpseecs(*> . Mpseeth ( * ) , Irh) 

18999  END  IF 

19002  !  DETERMINE  IF  FRONTAGE  IS  COMPLETELY  COVERED. .. IF  NOT  CALL  EMPLACE  ARTI 
ERY  SMOKE 
1 9005  Amwt  =0 
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Table  6-14.  Ground  combat  code  (continued). 

19008  FOR  1  =  1  TO  7  !  TOTAL  WT.  OF  ARTY  AMMO  AVAILABLE  TO  FIRE  FOR  SMOI^ 

19011  Amwt=Amwt+Amowt ( I ) 

19014  NEXT  I 

19017  IF  Amwt >0  THEN 

19020  IF  Fwi dt >Tot_ml eng  THEN 

19023  F 1 wi dt=Fwi dt-Tot_ml eng 

19026  Ielem=l 

19029  CALL  Smoke  <  I  uni  t ,  I  el  em,  Amowt  ( # )  ,  Flwidt ,  M>:  t  i  me.  I  km,  Range,  A1  eng  (  *  >  ,  ' 

al eng , Aton ( * ) , Apseeopt  <  * ) , Apseecs ( *  > , Apseeth ( *) , Irh) 

19032  ELSE 

19035  FOR  1=1  TO  7 

19038  Aton < I ) =Amowt < I ) 

19041  NEXT  I 

19044  END  IF 

19047  END  IF 

19050  !  CALCULATE  THE  PERCENT  VISIBLE  ACROSS  ENTIRE  FRONTAGE  FOR  MAX  TIME, AS 
19053  !  A  FUNCTION  OF  OPTICS  SENSORS 
19056  ' 

19059  LET  Pnotsmok=< (Fwidt-(Tot_mleng+Tot_aleng> > /Fwidt) #1 
19062  Pmorto=0 
19065  FOR  1=1  TO  4 

19068  LET  Pmorto=Pmorto+ ( (Ml eng ( I ) /Fwi dt ) *Mpseeopt < I ) ) 

19071  NEXT  I 
19074  Partyo=0 
19077  FOR  1=1  TO  7 

19080  LET  Partyo=Partyo+ ( (Aleng <1 ) /Fwidt) *Apseeopt ( I > ) 

19083  NEXT  I 

19086  LET  Pvopt=Pmorto+Partyo+Pnotsmok 

19089  ! CALCULATE  THE  PERCENT  VISIBLE  ACROSS  ENTIRE  FRONTAGE  FOR  MAX  TIME 
19092  !  AS  A  FUNCTION  OF  CREW  SERVED  SENSORS 
19095  ! 

19098  Fmortc=0 
19101  FOR  1=1  TO  4 

19104  LET  Pmortc=Pmortc+ ( (Ml eng ( I ) /Fwidt ) #Mpseecs ( I > ) 

19107  NEXT  I 
19110  Partyc=0 
19113  FOR  1=1  TO  7 

19116  LET  Partyc=Partyc+ ( < Al eng < I > /Fwi dt ) *Apseecs ( I ) > 

19119  NEXT  I 

19122  LET  Pvcs=Pmortc+Partyc+Pnotsmok 

19125  ICALCULATE  THE  PERCENT  VISIBLE  ACROSS  ENTIRE  FRONTAGE  FOR  MAX  TIME 
19128  !  AS  A  FUNCTION  OF  THERMAL  SENSORS 
19131  ! 

19134  Pmortt=0 
19137  FOR  1=1  TO  4 

19140  LET  Pmortt=Pmortt+ < (Mleng < I ) /Fwi dt ) IMpseeth ( I ) ) 

19143  NEXT  I 
19146  Par tyt=0 
19149  FOR  1=1  TO  7 

19152  LET  Partyt=Par tvt+ < (Al eng ( I > /Fwi dt ) *Apseeth ( I ) ) 

19155  NEXT  I 

19158  LET  Pvth=Pmortt+Partyt+Pnotsmok 
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19161  SUBEND 
19164  1 

19167  I*****************************  ******  ************************ ************  >» 

19170  ‘ 

19173  SUB  D-f  _attr  i  t  i  on  (B_vua  U)  ,R_vuaU)  ,Terrain,Day_nite,Vi  s.  Num_bands,  Rng_ba 
.  At k_def  , Sys  <  # )  ,  B_tons  ( * )  ,R_tons(#)  ,B  vi s ( * )  ,  R_vis(t)  ,  T.  5.  Bu .  Ri.t,  St .  Dc  ) 

19176  ! 

19179  OPTION  BASE  1 
19182  ! 

19185  DIM  Ini t_b_targets (70) , Ini t_r _targets <70> 

19188  DIM  B_ammo (20) , R_ammo (20) 

19191  DIM  B^ec-f  (20) ,R_ecf  (20) ,  B_ecf  _vi  s  (20, 4)  .  Rec-f  _vi  s  (20,  4) 

19194  DIM  B_f ire_d(20, 20) ,R_fire_d (20,20) 

19197  DIM  B~pk_f e (20, 20) , R_pk_-fe  (20, 20) 

19200  DIM  B_pk_hd (20, 20) , R_pk_hd (20, 20) 

19203  DIM  B_targ (20) ,R_targ (20) 

19206  DIM  B_rnds_wep (20) , R_rnds_wep (20) 

19209  DIM  B_sum (20) , R_sum (20) 

19212  DIM  B_fdf (20,20) ,R_fdf (20,20) 

19215  DIM  Tot_b_rnds (20) , Tot_r_rnds (20) 

19218  DIM  B_rnds_cat (20, 17) ,R_rnds_cat (20, 17) 

19221  DIM  Loss_b_cat ( 17) ,Loss_r_cat ( 17) 

19224  DIM  Loss_blue(70) , Loss_red (70) 

19227  DIM  B_psuv ( 1 7) , R_psuv ( 17) 

19230  DIM  B_targ_vi s ( 17) , R_targ_vi s ( 17) 

19233  DIM  B_ex_r (20, 17) ,R_ex_r (20. 17) 

19236  DIM  B_ps(20, 17) ,R_ps<20, 17) 

19239  DIM  Lo_b_cats ( 17) , Lo_r_cats (17) 

19242  DIM  Lo_b_cat (20, 17) ,Lo  r_cat(20.17) 

19245  DIM  B_vul ( 17) , R_vul ( 17?, B_vul _t ( 17) , R_vul  t ( 1 7) 

19248  DIM  B_sen (70) , R_sen (70)  ,  B  1 ook ( 17) . R_1 ook ( 17) 

19251  DIM  D-f  _pk_f  e  (20, 20)  ,  D-f  _pk~hd  (20, 20) 

19254  INTEGER  I.J 
19257  ! 

19260  COM  /Direct_-f ire/  B_cat (70) , R_cat (70) , B_sen_d ( 70) , B_sen_n (70 ) , R_sen_d < 7 
, R_sen_n (70) , Bammowt (20) . R_ammo_wt (20) 

19263  ! 

19266  COM  /Hel  o_i  n-f  a/  Bt  1  _rg ,  Rg_avg  ( 2, 3,  20)  ,  Rg_avg_pd  (2 , 3,  5 >  .  D-f  _ammo  ( 2)  .  D-f  _f  i  r 
dist (2,20,3) ,Df_pk_helo<2720,3,2) . INTEGER  Df_sen_ptr (2,20) ,Df_rouni_ptr (2,20) 

19269  1 

19272  COM  /No_helos/  Cell (2,2.3) 

19275  ! 

19278  Main: ! 

19281  GOSUB  Set_cal 1 
19284  GOSUB  Init_reads 
19287  'BEGIN  RANGE  BAND  LOOP 
19290  FOR  Band_loop=l  TO  Loops 
19293  GOSUB  Read_-files 

19296  GOSUB  Categorize 

19299  GOSUB  Smokes 

19302  GOSUB  Calc_-fdf 

19305  GOSUB  Ammo  available 
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19308  GOSUB  Calc_rnd 

19311  GOSUB  Update  ammo 

19314  GOSUB  Cal c_l oss 

19317  GOSUB  Decat_losses 

19320  GOSUB  Set_next_loop 

19323  IF  Abort*="YES"  THEN  GOTO  Out_loop 

19326  NEXT  Band_loop 

19329  Out_loop:  ! 

19332  GOTO  Set_return 
19335  ! 

19338  ! - 

19341  ! 

19344  Set_cal 1 :  ! 

19347  Abort*="NO" 

19350  Rng_band_save=Rng_band 

19353  ! INITIALIZE  AMMO  USED  TO  ZERO  AND  ELEMENTS  KILLED  TO  ZERO 

19356  FOR  1=1  TO  70 

19359  ! SAVE  INITIAL  TARGETS 

19362  Ini t_b_targets < I > =Sys ( 1 , I > 

19365  Ini t_r_targets < I > *Sys (3, I > 

19368  NEXT  I 

19371  UNITIALIZE  FOR  LOOPS 

19374  Loops=Num_bands 

19377  Partial=l 

19380  IF  Num_bands< 1  THEN 

19383  Loops= 1 

19386  Parti al=Num_bands 

19389  END  IF 

19392  RETURN 

19395! 

19398! - 

19401 ! 

19404  Ini  threads:  ! 

19407  IF  Day_nite=0  THEN  ! DAY 

19410  FOR  1=1  TO  70 

19413  B_sen < I ) =B_sen_d < I ) 

19416  R_sen ( I ) =R_sen_d ( I ) 

19419  NEXT  I 

19422  ELSE  ! NIGHT 

19425  FOR  1-1  TO  70 

1 9428  B_sen  < I >  =B_sen  _n ( I > 

19431  R_sen ( I ) =R_sen  n(I> 

19434  NEXT  I 

19437  END  IF 
19440  ! 

19443  Disk3*=":9134. 704,0" 

19446  R*="RD" 

19449  B*="BH" 

19452  Rr*="RH" 

19455  ! SELECT  ECF  FILES 
19458  SELECT  Atk_def 
19461  CASE  O 
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19464 

19467 

19470 

19473 

19476 

19479 

19482 

19485 

19488 

19491 

19494 

19497 

19500 

19503 

19506 

19509 

19512 

19515 

19518 

19521 

19524 

19527 

19530 

19533 

19536 

19539 

19542 

19545 

19548 

19551 

19554 

19557 

19560 

19563 

19566 

19569 

19572 

19575 

19578 

19581 

19584 

19587 

19590 

19593 

19596 

19599 

19602 

19605 

19608 

19611 

19614 

19617 


Table  6-14.  Ground  combat  code  (continued). 

Rad*="A" 

Bad*="D" 

CASE  1 
Rad*=‘‘D" 

Bad*=”A" 

END  SELECT 

I 

SELECT  Day_nite 
CASE  0 
Dn*="D" 

CASE  1 
Dn*="N" 

END  SELECT 

i 

SELECT  Terrain 
CASE  1 
T*=*‘0M 
CASE  2 
T*="R" 

CASE  3 
T*="H" 

CASE  4 
T*="M" 

END  SELECT 

i 

! ENTER  FIRE  DISTRIBUTIONS 

ASSIGN  G-Pathl  TO  8«<"  FIRE  "itBad**,"  :  9134,  704,  O'*  'Disk3* 

ASSIGN  <?Path2  TO  R«V_FIRE“"fcRad*V  :  9134, 704. 0"  !Disk3* 

ENTER  ©Pathl, 1 ; B_f ire_d <*> 

ENTER  <?Path2,  l;R_f  ire_d<*> 

ASSIGN  @Pathl  TO  * 

ASSIGN  <?Path2  TO  * 

■ 

!  OPEN  FILES  THAT  ARE  READ  WITHIN  RANGE  BAND  LOOP 
ASSIGN  f?Path  1  TO  Bt&Dnt&Bad*?*"  ECF_"&T*&Di sk3* 

ASSIGN  ©Path2  TO  RS&Dn*fcRad*S<,,_ECF_,,S<T*&Disk3* 

ASSIGN  8Path_b_fe  TO  BSfc"  PKFE"S<"  :  9134,  704,  0"  !Disk3* 

ASSIGN  (?Path_b_hd  TO  B*&"IPKHD,,&"  :  9134,  704,  O"  !Disk3* 

ASSIGN  6>Path_r_fe  TO  Rr*St,,_PKFE"!»M  s  9134,  704,  O"  !Disk3* 

ASSIGN  (?Path_r  _hd  TO  Rr*&M~PKHD"5<"  s  9134, 704,  O"  !Disk3* 

FOR  Side=l  TO  2  ! READ  IN  &  SAVE  THE  PK’S  FOR  HELOS  BY  DF 

Side_def=  (Side  MOD  2)+l 
FOR  1=1  TO  3  \ LOOP  ON  HELOS 

Hel o_bnd=INT  <Rg_avg  (Si  de_def  ,1,1)  /500+.  5)  !CALC  HELO  PK  RANGE  BAN 
IF  Helo_bnd<=0  THEN  Helo~bnd=l 
IF  Helo_bnd<=6  THEN 

IF  Si de=l  THEN  ! BLUE 

ENTER  (?Path_b_f  e,  Hel  o_bnd;  D-f  _pk_f  e  <  *  > 

ENTER  i?Path_b  hd  ,  Hel  o_bnd;  D-f  pk_hd(») 

ELSE  ~  ! RED 

ENTER  ts‘Path_r_f  e,  Hel  o_  bnd ;  Df _pk_f e  (  # ) 

ENTER  9Path_r_hd,  Hel  o_bnd?  D-f  _pk_hd  (*) 
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19620 

19623 

19626 

19629 

19632 

19635 

19638 

19641 

19644 

19647 

19650 

19653 

19656 

19659 

19662 

19665 

19668 

19671 

19674 

19677 

19680 

19683 

19686 

19689 

19692 

19695 

19698 

19701 

19704 

19707 

19710 

19713 

19716 

19719 

19722 

19725 

19728 

19731 

19734 

19737 

19740 

19743 

19746 

19749 

19752 

19755 

19758* 

19761  ! 

19764  * 

19767 

19770 

1  9773 


Table  6-14.  Ground  combat  code  (continued). 

END  IF 

FOR  J=1  TO  20  ! LOOP  ON  DF 

Df _pk_hel o (Si de, J , I, 1) =Dt _pk_fe ( J , 1+17)  ! NON  MAST  MOUNTED 

D-f_pk_helo(Side,  J,  I.2)=D'f-pk_hd(J,  1  +  1  /  ‘MAST  MOUNTED 
NEXT  J 

ELSE  ! OUTS IDE  OF  DF  RANGE 
FOR  J=1  TO  20 

Df _pk_helo (Side,  J,  1 ,  1 )  =0 
DT_pk_helo(Side, J, I,2)=0 
NEXT  3 
END  IF 
NEXT  I 
NEXT  Side 

RETURN 


Read_f  i  less  ! 

< 

ENTER  ©Pathl ,  Rng_band;  B_ec-f  _vi  s  ( *> 

ENTER  @Path2, Rng_band  j  R_ecf _vi  s  ( *  > 

1  ~~ 

FOR  1=1  TO  20 

B_ecf  < I ) =B_ecf _vi s ( I , Vi s) 

R_ec+(I)=R  ect _vi  s  ( I ,  Vi  s> 

NEXT  I 

I 

! DIVIDE  ECF'S  FOR  PART  OF  RANGE  BAND 
FOR  1=1  TO  20 

B_ec-f  ( I )  =B_ecf  ( I )  *Parti  a) 

R_ecf  ( I )  =R_ec-f  <  I )  *Parti a? 

NEXT  I 

I 

! ENTER  PK  FILES 

ENTER  ©Path.  Rng_band;  B_pk_f e  <  #> 

ENTER  (?F ath_b_hd,  Rng_band;  B_pk_hd  ( *> 

ENTER  ©Path_r_Fe,Rng_band; R_pk_f e (*) 

ENTER  <?Path_r_hd,Rng  bandsR  pk_hd<*> 

FOR  1=1  TO  20 
FOR  J=l  TO  3 

B_pk_fe(I,  J  +  17)=D-f_pk_helo(l,  I,  J.  1)  !  SET  HELO’S  PK  IN  ARRAY 

R_Pk_te(I, J+17>=DF  pk  hel o (2, I , J, 1 ) 

NEXT  J 
NEXT  I 
RETURN 


Categorize:!  ROB 
Dc=Dc+l 

•  Roy_F  i  le*="R_"&VAL*  (T  >  $<"  _"?<VAL*  (S)  "S-VAL*  (Dc) 
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19776  !  CREATE  BDAT  Roy_-f  i  1  :  HP9 121, 700,  1  "  ,  10,  1550 

19779  '  ASSIGN  GProy  TO  Roy  f  i  1  :  HP9121 . 700.  1  " 

197B2  !  OUTPUT  PProy, 1 ; T. S, Bu. Ru, St 

19785  !  OUTPUT  8Proy . 2; Sys < * > 

19788! INITIALIZE  CATEGORIES 
19791  FOR  1=1  TO  17 
19794  B_vul ( I ) =0 

19797  R~vul < I ) =0 

19800  B_vul _t ( I ) =0 

19803  R_vul  t(I)=0 

19806  NEXT  I 
19809  FOR  1=1  TO  20 
19812  B_targ ( I >  =0 

19815  R_targ ( I ) =0 

19818  NEXT  I 

19821! ADD  ELEMENTS  TO  CATEGORIES 
19824  FOR  1=1  TO  70 

19827  IF  B_cat  < I ) >0  AND  B_cat(IX  =  17  THEN 

19830  B_targ  (B_cat  <  I )  >  =B_targ  <B_cat  <  I  >  >  -*-Sys  ( 1 .  I ) 

19833  B~vul _t <B_cat (I) >=B_vul_t (B_cat ( I ) ) +Sys< 1,1) *B_vua  < I ) 

19836  END  IF 

19839  IF  R_cat  < I ) >0  AND  R_cat(I)<  =  17  THEN 

19842  R_targ (R_cat ( I > ) =R_targ (R_cat ( I ) > +Sys  <3, I ) 

19845  R_vul  _t  (R_cat  ( I )  )  =R_vul  _t  <R_cat  ( I )  )  -t-Sys  (3,1)  *R_vua  ( I ) 

19848  END  IF 

19851  NEXT  I 

19854  FOR  1=18  TO  20  ! ADD  HELO  ELEMENTS  TO  TGT  CATEGORIES 

19857  B_targ(I)=Cell (1. 1. 1-17) 

19860  R_targ(I)»Cell <2, 1, 1-17) 

19863  NEXT  I 
19866  FOR  1=1  TO  17 

19869  IF  B_targ  ( I )  >0  THEN  B_vul(I)=B  v'ul  _t  ( I )  /B_targ  ( I  > 

19872  IF  R  targ ( I ) >0  THEN  R_vul  < I ) =R_vul _t  < I > /R_targ ( I ) 

19875  NEXT  I 

19878  !  OUTPUT  i?Proy,3;B  targ  (  *  )  .  R_tar  g  (  * ) 

19881  RETURN 
19884  ! 

19887  ! - 

19890  ! 

19893  Smokes:  ! 

19896  !  CALCULATE  TARGETS  VISIBLE  THROUGH  SMOKE 

19899  FOR  1=1  TO  17 

19902  B_targ_vi s ( I ) =0 

19905  R_targ_vi s ( I ) =0 

19908  B~1 ookT I ) =0 

19911  R  1 ook ( I ) =0 

19914  NEXT  I 

19917  !  ADD  VISIBLE  ELEMENTS  TO  EACH  CATEGORY 

19920  FOR  1=1  TO  17  'GROUND  TGT  CATEG 
19923  FOR  J=1  TO  20  'DIRECT  FIRERS 

19926  B_targ_vi  s  ( I  >  =B_t  arg_vi  s(I)-*-Sys(6,J)  *R_vi  s  <R_sen  <  J  )  ) 

19929  R_targ_vi  s  ( I )  =R_targ_vi  s  (  I  )  -*-Sys  (5,J)*B_vis<  B_sen  <  J  >  ) 
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19932 
19935 
1 9938 
19941 
19944 
19947 
19950 
19953 
19956 
19959 
19962 
19965 
19968 
19971 
19974 
19977 
19980! 
19983' 
19986 
19989 
19992 
19995 
19998 
20001 
20004 
20007 
20010 
20013 
20016 
20019 
20022 
20025 
20028 
2003 1 
20034 
20037 
20040 
20043 
20046 
20049 
20052 
20055 
20058 
20061 

20064 
20067 
20070 
20073 
20076 
20079 1 
20082 1 


R_1 ook  < I ) =R_ 1 ook ( I ) +Sys  <  6 ,  J  > 

B_1 ook < I ) =B_look < I ) +Sys  <5, J  > 

NEXT  J 

IF  R_1  ook-  (  I )  >0  THEN 

B_targ_  vi s<I)=B_targ_vis<I)/R  1 ook  < I ) 
ELSE 

B_targ_vi s ( I ) =0 
END  IF 

IF  B_1 ook ( I ) >0  THEN 

R_targ_vi s ( I ) =R_targ_vi s ( I > /B_l ook ( I ) 
ELSE 

R_targ  vis<I>=0 
END  IF 
NEXT  I 
RETURN 


Calc_-fd-fs  !  FIRE  DISTRIBUTION  FACTOR 
FOR  1=1  TO  20 
B_su<n  <  I )  =0 
R_sum ( I ) =0 
NEXT  I 
!  SUM 

FOR  1=1  TO  20 
FOR  J=1  TO  20 

B_sum<  I )  =B_sum  ( I )  +R_targ  <J>  *B_-f  ire_d  ( I .  J  >  *B_pk_-f  e  <  1 ,3) 

R_sum ( I ) =R_sum ( I ) +6  targ < J > *R_f i re_d ( I , J > *R  pk  fell.J) 

NEXT  J 
NEXT  I 
1 

•  CALC  FDF 
FOR  1=1  TO  20 
FOR  .1=1  TO  20 
R_*dF (I, J)=0 
B_fdf  <1, J)=0 
IF  B_sum < I ) <  >0  THEN 

B_-f  df  <  I ,  J  )  =R_tara  <J)*B_-fire_d(I,J)  *B_pk  fe(I,  J)  /B_sum  ( I  > 

END  IF 

IF  R_sum ( I ) <  >0  THEN 

R_f d-M  I , J > =8_targ ( J ) *R  f i re_d < I , J ) *R_pk  -f  e  ( I ,  J  ) /R_sum  ( I ) 

END  IF 
NEXT  J 

FOR  J=1  TO  3  ! STORE  FIRE  DISTRIBUTION  OF  HELO  TGTS  FOR  USE  IN 

1 HELO_KILLS  SUBROUTINE 
Df_fire_dist(l,  I ,  J)  =6_'fd*  < I , J+17) 

D-f  i  re_di  st  <2,  I.  J>=R_Fd-f  <I,J«-17> 

NEXT  J 
NEXT  I 
RETURN 
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20085 ' 

20088  Ammo_avai 1 abl e: ! 

20091  'CHANGE  TONS  PER  SINGLE  WEAPON  TO  RNDS  PER  TYPE  IN  POUNDS 
20094  FOR  1=1  TO  20 
20097  B  ammo  < I >  =0 


20100 
20103 
20106 
20109 
20112 
20115 
201 18 
20121 
20124 
20127 
20130 

IF  B_ammo_wt  (IX  >0  THEN 

B  ammo < I > =B  tons(l,I)/B  ammo 
END  IF 

R_ammo ( I >  =0 

IF  R_ammo_wt < I ) < >0  THEN 

R_ammo(I)=R  tonsil, I ) /R  ammo 
END  IF 

NEXT  I 

RETURN 

1 

wt ( I > *2000 

wt  < I >  *2000 

20133 

1 

20136 

Cal c_r nds •  TOTAL  ROUNDS  FIRED 

20139 

FOR  1=1  TO  20 

20142 

! ROUNDS  FIRED 

20145 

IF  B  ammo ( I ) >B_ecF  < I )  THEN 

20148 

B  rnds  wep<I)=B  ecf<I> 

20151 

ELSE 

20154 

B  rnds_wep < I ) =B  ammo < I ) 

20157 

END  IF 

20160 

1 

20163 

IF  R  ammo  < I ) >R  ecf<I)  THEN 

20166 

R  rnds  wep ( I ) =R  ecFII) 

20169 

ELSE 

20172 

R  rnds  wep < I > =R  ammo < I ) 

20175 

END  IF 

20178 

1 

20181 

NEXT  I 

20184  ! 

20187  ! CALC.  ROUNDS  FIRED  BY  ALL  CATEGORIES 

20190  FOR  1=1  TO  20 

20193  Tot_b_rnds ( I ) =Sys  <5, 1 ) *B_rnds_wep  < I ) 

20196  Tot_r_rnds < I > =Sys (6, I ) *R_rnds  wep ( I ) 

20199  NEXT  I 
20202  ! 

20205  ! TEMPORARY  CODE  FOR  HTLD/ADEA  ONLY 

20208  !  DET  MAX  #  GLLD  DESIGNATORS 

20211  Glds=Sys (5,4) /5  'CALCS  GLLDS  AVAIL  FOR  GLH 

20214  G1 h=MIN <G1 ds, Sys <5, 51 ) 

20217  Tot_b_rnds (5) =U1 h*B_rnds_wep <5> 

20220  T  ENDS  TEMP  Co5e 

20223  * 

20226  < ROUNDS  PER  CATEGORY 

20229  FOR  1=1  TO  20 
20232  FOR  J=1  TO  17 

20235  B_rnds_cat  <  I ,  J  )  =B_-fd-f  <  I ,  J)  * Tot _b. .rnds  <  I ) 

20238  R_rnds_cat ( I , J > =R_f df ( I , 0 ) *Tot_r  rnds(I) 
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20241  NEXT  J 
20244  NEXT  I 

20247  !  OUTPUT  il'Pr oy ,  4 :  Tot  _  b  rnds  <  *  )  .  Tot _r _r nds  <  *  )  ,  B_r  nds  _cat  (  #  >  ,  R_r rid 

cat  <  * ) 

20250  RETURN 
20253 1 

20256 ! - 

20259 ! 

20262  Update_ammo: ! 

20265  ! CALC.  TONS  USED;  TAKE  RNDS  USED  AND  CHANGE  TO  TONS  PER  SINGLE  WEAPON 

20260  FOR  1=1  TO  20 

20271  IF  Sys  <5,  IX  >0  THEN  B_tons (2, I ) =Tot_b_rnds ( I ) »B_ammo_wt ( I > /2000/Svs (5 
>  +B_tons (2,1) 

20274  IF  Sys<6,I)<>0  THEN  R_tons <2, I > =Tot_r_rnds ( I ) *R_ammo_wt < I ) /2000/Svs (6 
)  +R__tons  (2,1) 

20277  NEXT  I 
20200  RETURN 
20203  1 

20206  ! - 

20209  ' 

20292  Cal c_l oss: ! 

'  INITIALIZE 
Nsl ices=15 
FOR  J=1  TO  17 
B_psuv  < J ) =1 
Rpsuv ( J ) =1 
Loss_r_cat ( J ) =0 
Loss_b_cat ( J ) =0 
Lo_r_cats  < J ) =0 
Lo_b_cats ( J ) =0 
FOR  1=1  TO  20 

Lo_r  cat < I , J ) =0 
Lo_b_cat < I , J ) =0 
B_ex_r ( I, J)=0 
R_e>:  _r  <  I .  J  )  =0 
NEXT  I 
NEXT  J 

!  CALCULATE  THE  AVERAGE  NUMBER  OF  ROUNDS  FIRED  PER  SLICE 
FOR  1=1  TO  20  ! FIRERS 

FOR  J=1  TO  17  'TARGET  CATEGORIES 
IF  Sys(5. I ) =0  THEN  Rnd_red 

B_ex _r  < I , J ) =B_rnds_cat  < I , J ) /Sys (5, I ) /Nsl ices 
20361  Rnd_red:  1 

20364  IF  Sys (6,1) =0  THEN  Rnd_end 

20367  R_ex  _r ( I , J ) =R_rnds_cat ( I , J ) /Sys (6, I > /Nsl ices 

20370  Rnd_er>d:  1 

20373  NEXT  J 

20376  NEXT  I 

20379  ' 

20382  1 

20385  '  CALCULATE  LOSSES 


20295 
20298 
20301 
20304 
20307 
20310 
20313 
20316 
20319 
20322 
20325 
20328 
2033 1 
20334 
20337 
20340 
20343 
20346 
20349 
20352 
20355 
20358 
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70388 
20391 
20394 
20397 
20400 
20403 
20406 
20409 
204 1 2 
20415 
20418 
2042 1 
20424 
20427 
20430 
20433 
20436 
20439 
20442 
20445 
20448 
'20451 
20454 
20457 
20460 
20463 
J) 

20466 
20469 
( J) 

20472 
20475 
20478 
20481 
20484 
20487 
20490 
20493 
20496 
20499 
20502 
20505 
20508 
2051 1 
20514 
20517 
20520 
20523 
20526 
20529 
20532 

n.-.er-re 


FOR  Slice=l  TO  Ns 1  ices 
FOR  1=1  TO  20  ! FIBERS 

IF  B_cat ( I ) >0  AND  B_cat(IX  =  17  THEN 
B_F i rer s=B_psuv (B_cat  < I > ) *Sys (5. I > 

!  TEMP  CODE  FOR  HTLD/ADEA 
IF  1=5  THEN 

G1 ds=B_psuv  <B_cat (4) ) #Sys (5, 4) /5 
IF  Sys<l,5>>0  THEN  ‘STAY  VULNERABLE 

IF  Glds>B_F irers  THEN  Glds=B_Firers 
ELSE 

IF  G1 ds>Sys (5,5)  THEN  G1 ds=Sys <5. 5) 

END  IF 

B_f i rers=Gl ds 
END  IF 

•ENDS  TEMP  CODE 
END  IF 

IF  R_cat  < I ) >0  AND  R_cat<IX  =  17  THEN 
R_F irers=R_psuv  <R_cat ( I ) ) *Sys (6,  I  > 

END_ IF 

FOR  J=1  TO  17 

I 

R_ps ( I , J ) =1 
B_ps  <1, J>  =  1 

i 

Red_target=l 

IF  R_targ  <  J  )  *R_targ__vi  s  <  J  >  >=1  THEN  Red_target=R_targ < J > *R_targ_v 
B1 ue_target=l 

IF  B_targ ( J > *B_targ_vi s < J) >=1  THEN  B)  ue_target=B_targ < J > *B_tara_ 


IF  R  targ < J ) >0  THEN 

Ps_r _ps=R_vul  <  J )  *B_pL_Fe  <  I ,  J )  +  <  1  -R_vul  ( J  )  )  *B_pk_hd  ( I ,  J  ) 
R_ps  < I , J )  =  < 1-Ps_r_ps/Red_target > "<  B  _  t irers*B_ex_r ( I ,  J  >  > 
Lossr=R_targ  <0 ) *R_targ_vi s ( J ) *R_psuv ( J ) * ( I -R_ps ( I ,  J ) ) 
Lo_r _cat ( I , J ) =Lo_r_cat  < I , J ) +Lossr 
Lo_r_cats ( J ) =Lo_r_cats  < J  >  +Lossr 

i 

END  IF 

IF  B_targ ( J) >0  THEN 

Ps~b_ps=B_vul  (J)*R_pk_+e(I,J)  +  (i-B_vul  (J) > *R_pk_hd ( I . J ) 
B_ps  ( I ,  J  )  =  <  1  -Ps_b_ps/Bl ue_tar get )  < R _ -f  irers*R_ex_  r  <  I ,  J  )  > 

Lossb=B_targ  <J) *B_targ_vis  <J>  *B_psuv ( J) * ( 1-B_ps ( I . J) ) 
Lo_b_cat ( I , J > =Lo_b_cat  < I , J ) +Lossb 
Lo  b_cats < J) =Lo_b  cats ( J ) +Lossb 
END  IF 

i 

NEXT  0 
NEXT  I 

I 

FOR  1=1  TO  20 
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20538 
2054 1 
20544 
20547 
20550 
20553 
20556 
20559 
20562 
20565 
20568 
20571 
20574 
20577 
20580 
20583 
20586 
20589 
20592 
20595 
20598 
20601 
20604 
20607 
20610 
20613 
20616 
20619 
20622 
20625 
20628 
20631 
20634 
20637 
20640 
20643 
20646 
20649 
20652 
20655 
20658 
20661 
20664 
20667 
20670 
20673 
20676 
20679 
20682 
20685 
20688 
2069 1 


FOR  ,1  =  1  TO  17 

B_psuv ( J ) =B_psuv ( J ) *B_ps ( I  ,  J  ) 
R_psuv ( J ) =R_psuv (J) »R_ps  < I ,  J ) 


NEXT  J 
NEXT  I 
NEXT  Slice 


FOR  J=1  TO  17 

Loss_b_cat  < 0 >  =B_targ ( J ) *B_targ_vi s  < J ) *  < 1-B_psuv  < J ) ) 
Loss_r _cat ( J ) =R_targ ( J ) *R_targ_vi s  <  J  > * ( 1-R_psuv ( J )  > 


NEXT  J 

GOSUB  Roy_dumps 
RETURN 


Roy_dumpsj  ! 

!  OUTPUT  <?Proy ,  5;  Loss_b_cat  (* ) 

!  OUTPUT  @Proy , 6; Lo_b_cats <  # ) 

!  OUTPUT  9Proy , 7; Loss_r_cat ( * ) 

!  OUTPUT  BProy , 8; Lo_r_cats <  *) 

(NORMALIZE  EACH  GROUND  TGT  CATEGORY 
FOR  J  =  1  TO  17 

IF  Lo_b_cats ( J ) =0  THEN 
Loss_b_cat  < J ) =0 
Blossf ac=0 
ELSE 

B1  oss-f  ac=Loss_b_cat  ( J  )  /Lo_b_cats  ( J  ) 
END  IF 

IF  Lo_r_cats ( J ) =0  THEN 
Loss_r _cat < J ) =0 
R1  oss-f  ac=0 
ELSE 

R1  oss-f  ac=Loss_r  _c at  ( J  )  /Lo_r_cats  <  J ) 
END  IF 

FOR  1=1  TO  20 

Lo_r_cat  (1,0)  =Lo_r  _cat  ( I ,  J  )  *Ri  oss-f  ac 
Lo_b_cat  < I , J ) =Lo  b_cat ( I . J ) *B1 ossf  ac 
NEXT  I 
NEXT  J 

'  OUTPUT  i?Proy,9;Lo_b_cat  <*> 

•  OUTPUT  i?Proy,  10;Lo_r_cat  (*) 

RETURN 


Decat_losses: ! 

'APPORTION  LOSSES  TO  EACH  ELEMENT 
FOR  1=1  TO  70 
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20694  IF  B_cat  <  I  >  >0  AND  B_cat(IX  =  17  THEN 
20697  IF  B_targ(B_cat(I> ) < >0  THEN 

20700  Loss_bl  ue  ( I )  =Sys  (1,1)  *Loss_b_cat  ( B_c_at  ( I ) ) /R  t  arg  <B_cat.  <  I )  > 

20703  ELSE 

20706  Loss  blue(I)=0 

20709  END  IF~ 

20712  END  IF 

20715  ! 

20718  IF  R_cat ( I ) >0  AND  R_cat(I)<=17  THEN 
20721  IF  R_targ (R_cat ( I ) )<  >0  THEN 

20724  Loss_r ed ( I ) =Sys (3, I) #Loss _r_c at  <R_c at  <I> ) /R_targ  <R_cat ( I ) ) 

20727  ELSE 

20730  Loss_red ( I ) =0 

20733  END  IF 

20736  END  IF 

20739  < 

20742  NEXT  I 
20745  RETURN 
20748  ! 

20751  ! - 

20754  ! 

20757  Set _ne>:  t  _  1  oop :  !  SET  DATA  BEFORE  CONTINUING  BAND_LOOP 
20760  ! UPDATE  SYS 

20763  FOR  1=1  TO  70 

20766  IF  Sys  (1,1)00  THEN  Sys  <5,  I )  =Sys  (5,  I  >  -  (Sys  (5.  I  > /Sys  <  1 ,  I )  )  *Loss_bl  ue 

20769  IF  Sys  (3,1)00  THEN  Sys  <6,  I  )  =Sys  <6,  I )  -  (Sys  (6,  I  >  /Sys  (3.  I  >  >  *Loss_red  ( 

20772  ! SYS (2,1) &SYS  <4, I )  ARE  FILLED  WITH  LOSSES 

20775  Sys  <2,  I )  =Sys  (2,1)  -t-Loss_bl  ue  ( I  > 

20778  Sys (4, I ) =Sys <4. I ) +Loss  red ( I ) 

20781  ! 

20784  Sys (1,1) =Sys (1,1) -Loss_bl ue ( I ) 

20787  Sys  (3,  I )  =Sys  (3,  I  >  -Loss  redd'* 

20790  NEXT  I 

20793  'UPDATE  RANGE_BAND 

20796  Rng_band=Rng_band-l 

20799  IF  Rng_band=0  AND  Band_l oop< Num_bands  THEN 
20802  PRINT 

20805  PRINT  "**  ERROR:  #  OF  RANGE  BANDS  DO  NOT  CORRESPOND  WITH  PRESENT  PO 
ON" 

20808  Abort*="YES" 

20811  END  IF 
20814  RETURN 
208 1 7  ! 

20820  ! - 

20823  ! 

20826  Set_return: !  RESET  DATA  BEFORE  EXITING 
20829  Rng_band=Rng  band_save 
20832  !  RESTORE  SYsTl ,  I )  !<SYS  (3,  I  ) 

20835  FOR  1=1  TO  70 

20838  Sys ( 1 , I ) = Ini t_b_tar gets ( I ) 

20841  Sys (3, I >  =  I ni t _r _t ar get s  < I ) 

20844  NEXT  I 
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20847  ' 

20850  ASSIGN  ©Pathl  TO  *  ! CLOSE  ALL  FILES 

20853  ASSIGN  i?Path2  TO  * 

20856  ASSIGN  (?Path_b_-fe  TO  * 

20859  ASSIGN  (?Path_bIhd  TO  * 

20862  ASSIGN  (?Path_r_-fe  TO  * 

20865  ASSIGN  <?Path_r  hd  TO  * 

20868  SUBEND 
20871  ! 

20874  *t$*t**t*t$**t***********tim.ttt*********t***  *************  ************** 

20877  ! 

20880  SUB  Pgm_atr i t (Fir  typ  <  t  > ,N_rnds (#> ,Vis_rng, Ter r _t yp , Sens_typ ( * ) , Cl oud_ht 
ust_i ndex , Targets ( * ) ) 

20883  OPTION  BASE  1 

20886  DIM  Prob_desg  <6, 4) , Sskp  .cl gp (70) , Clgp_mask (70) . Sskp (2,70) 

20889  DIM  P_surv  (70)  ,  N_rnds  .f  ired  (2)  ,  Psurv  t-f  <2, 70) 

20892  DIM  Tgts_avai 1 (70) , Tqt  mask  (2. 70),  W  sum  (2) 

20895  «  '  “ 

20898  COM  /pgm/  Tgt _val ue ( 2. 70) , Tgt_mask 1 ( 2 , 70) , Ter r _factor ( 4) , Prob_dustabort 
,4) , Clgp_msk_ns (70) ,Clgp_msk_gl (70) , Cl gp_msk_rp (70) 

20901  COM  /Pgm/  Prob_dsg_r\s76 , 4 ) . Pr ob_dsg_gl (6, 4 ) , Prob_dsg_rp (6, 4) , Sskp_ns < 70 
Sskp_gl (70) , Sskp  rp(70) 

20904  < 

20907  !  NOTE  —  CLGP  IS  NOT  LOADED  BUT  WILL  LATER  BE  REPLACED  WITH  ALL  l'S. 
20910  ! 


20913 
20916 
20919 
20922 
20925 
20928 
2093 1 


Dcdisk*="s 9134, 704,0" 

ASSIGN  PPsskp  TO  "SSKP"S<Dcdi  sk* 
ENTER  &Psskp , 1 ; Sskp < * ) 

ASSIGN  PPsskp  TO  * 

SET  THE  CLOUD  INDEX 


20934  Cloud=Cloud_ht*3.28 
20937  SELECT  Cloud 


20940 

CASE  <1500 

20943 

Cld_nd>:  =  l 

20946 

CASE  1500  TO 

2000 

20949 

Cl d_ndx=2 

20952 

CASE  2000  TO 

2500 

20955 

Cl d_ndx«3 

20958 

CASE  2500  TO 

3000 

20961 

Cl d_ndx=4 

20964 

CASE  3000  TO 

4500 

20967 

Cl  d_rtdx  =5 

20970 

CASE  >4500 

20973 

Cl d_ndx  =6 

20976 

END  SELECT 

20979  ! 

20982  !  SET  VISIBILITY  INDEX 
20985  ! 

20988  Vi  s_nd>:=Vi  s_rng 
20991  Nslices=15 
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20994  Nf  i  rer s=2  !  USING  CLGP  AND  GAMP 
20997  Ntargets=70 
21000  ! 

21003  ‘Set  probability  of  survival  for  all  targets  at  1  to  start 

21006  FOR  Target=l  TO  Ntargets 

21009  P_surv (Target) =1 

21012  FOR  Firer=l  TO  Nfirers 

21015  Psurv_tf (Firer , Target )= 1 

21018  NEXT  Firer 

21021  NEXT  Target 

21024  ! 

21027  N_tot=0 

21030  FOR  Init=l  TO  2 

21033  N_rnds_f ired ( Init) =0 

21036  NEXT  Init 

21039  ! 

21042  !Attrition  calculations. 

21045  ! SET  ARRAYS  FOR  PGM'S 
21048  « 

21051  IF  Fir_typ(l>=0  THEN  Set  new.pgm 
21054  ! 

21057  !  IF  THIS  IS  CLGP  THEN  LOAD  APPROPRIATE  PK'S 
21060  IF  Sens_typ ( 1 ) <0  OR  Sens_typ ( 1 > >2  THEN  Set_new_pgm 
21063  ‘ 

21066  SELECT  Sens_typ < 1 ) 

21069  CASE  0  ! NO  SENSOR  AVAILABLE 

21072  FOR  1=1  TO  70 

21075  Cl gp_mask ( I ) =C1 gp_msk_ns ( I ) 

21078  Sskp_cl gp ( I ) =Sskp_ns  < I ) 

21081  NEXT  I 

21084  FOR  1=1  TO  6 

21087  FOR  J=1  TO  4 

21090  Prob_desg  < I . J ) =Prob_dsg_ns <  I ,  J  > 

21093  NEXT  J 

21096  NEXT  I 

21099  CASE  1  GLLD 
21102  FOR  1=1  TO  70 

21105  Cl gp_mask ( I ) =C1 gp_msk_gl (I) 

21108  Sskp_clgp < I ) =Sskp_gl (I) 

21111  NEXT  I 

21114  FOR  1=1  TO  6 

21117  FOR  J=1  TO  4 

21120  Prob_desg ( I , J) =Prob_dsg_gl <I,J> 

21123  NEXT  J 

21126  NEXT  I 

21129  CASE  2,3  !RPV 
21132  FOR  1=1  TO  70 

21 135  Cl gp_mask  < I ) =C1 gp_msk_rp ( I ) 

21138  Sskp  clgp(I)=Sskp  rp < I ) 

21141  NEXT  1~ 

21144  FOR  1=1  TO  6 

21147  FOR  J=1  TO  4 
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21150 
21 153 
21156 
21  159 
21162 
21  165 
21168 
21  1  71 
21  174 
21177 
21180 
21  183 
21186 
21189 
21192 
21195 
21  198 
21201 
21204 
21207 
21210 
21213 
21216 
21219 

21225 

21228 

21231 

21234 

21237 

21240 

21243 

21246 

21249 


Pr ob_desg ( I , J ) =Pr  ob 
NEXT  0 
NEXT  I 
END  SELECT 


dsg_rp  <  I ,  J  > 


Set  new_pgm:  • 

FOR  Pgm= 1  TO  2 

IF  Fir_typ (Pgm)=0  THEN  N  pgm 
FOR  Target=l  TO  Ntargets" 

! SET  SENSOR  MASK 
IF  Pgm=l  THEN 

S_mask=Clgp  mask (Target) 

ELSE 

S_mask=l  ! ALL  SENSOR  MASKS* 1  FOR  AMSAA  PGM'S 

END  IF 

•  SET  TARGET  MASK  WITH  MISSION  VALUE 
Tgt_mask (Pgm, Target ) =Tgt_mask 1 (Pgm, Tar get ) *S  mask 
.'SET  SSKP  “ 

IF  Pgm=l  THEN  Sskp < 1 , Target > *Sskp_cl gp (Target ) 

NEXT  Target 
N_pgmsNEXT  Pgm 
! SET  PK’S 

FOR  Taraet=l  TO  Ntargets 
P_surv (Target ) =1 
NEXT  Target 


'CALCULATE  THE  WEIGHT  SUM  FOR  EACH  FIRER 
FOR  Slice=l  TO  Nslices 
FOR  Target=l  TO  Ntargets 
FOR  Fi rer=l  TO  Ntirers 
Psurv_tf (Fi rer . Target  >  =1 
NEXT  Firer 
NEXT  Target 
FOR  Pqm=l  TO  2 
W_sum (pgm) =0 

IF  Pir_typ (Pgm) *0  THEN  End_wt 
FOR  Target=l  TO  Ntargets 
Des=  1 

IF  Pgm=l  THEN  Des=Sskp ( l , Target ) 

,  _  W_sum(Pgm) =W_sum (Pgm) +Tgt_ value (Pgm, Tar aet ) *P  sur> 

* • Target ) #Des*Tgt_mask (pgm, Target ) 

21270  • 

21273  N_targ : NEXT  Target 
21276  End_wt: NEXT  Pgm 
21279  ! 


21255 

21258 

21261 

21264 

21267 


21282 
21285 
21288 
21291 
21294 
21297 
2 1  300 


•  NEW  BEGIN  THE  FIRER  LOOP  FOR  THIS  SLICE 
FOR  Firer=l  TO  Nfirers 

IF  Fir_typ (Fi rer ) =0  THEN  N  firer 

'  SET  LOCAL  PARAMETERS  FOR  THIS  FIRER 
IF  Firer>l  THEN  New_pgm 
l.ase_rel  i  ab=.  8 


(Target) ^Target 
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21  303  P_desg=Prob_desg  (Cld_nd:-: .  Vi  s_nd>: ) 

2 1 306  P_dus tabor  t  =Pr ob_dust abort.  ( Dust  _  i  nde>: .  Vi  s_nd::  > 

21309  Terr _degrd=Terr  -factor  (Terr  _tvp) 

21312  GOTO  Ct_ki 1 1 s 

21315  1  SET  PARAMETERS  FOR  GAMP.  ALL  SET  TO  NO  EFFECT  BECAUSE 

21318  (  OF  AMSAA  DATA. 

21321  New_pgm: Lase_rel i ab=l 
21324  P_desg=l 

21327  p_dustabort=0 

21330  Terr_degrd=l 

21333  Ct_kills:FOR  Target*=l  TO  Ntargets 

21336  N_tgts=Targets ( 1 , Target ) *P_surv ( Target ) 

21339  IF  Tgt_mask (Firer , Target ) *N_tgtsX>  THEN 

21342  Pk“Sskp (Firer , Target ) 

21345  !  SET  SWITCH  FOR  SMART  DESIGNATOR  DISCRIMINATING 

21348  !  BETWEEN  HIGH  PK  AND  LOW  PK  TARGETS 

21351  Des-1 

21354  IF  Firer«*l  THEN  Des=Sskp (Fi rer , Target ) 

21357  IF  W_sum (Firer ><=0  THEN  N_-firer 

21360  Nrnds= ( (N_tgts*Tgt_val ue (Fi rer , Target ) *Des) /W_sum (Fi rer ) ) *  <N_rn 

(Fi rer ) /Nsl ices) 

21363  N_rnds_F i red (Fi rer ) =N_r nds_f i red (Fi rer ) +Nrnds 

21366  Nrnds=Nrnds*Terr_degrd* ( l-P_dustabort ) *P_desg 

21369  Smk=l 


21372 
2 1 375 
21378 
21381 
21384 
21387 
21390 
21393 
21396 
21399 
21402 
2 1 405 
21408 
21411 
21414 
21417 
21420 
21423 
21426 
21429 
21432 
21435 
21438 
21441 
21444 
21447 
21450 
2 1 453 


IF  <N_tgts*Smk ) < 1  THEN 
Di  v=l 
ELSE 

Di v=N_tgts*Smk 
END  IF 

Psurv_tf (Firer, Target ) * ( l-Pk*Lase_rel i ab/Di v) ANrnds 
END  IF 
NEXT  Target 
N_-f  i  rer :  NEXT  Firer 

!  UPDATE  OVERALL  PROBABILITY  OF  SURVIVAL  FOR  EACH  TARGET 
FOR  Target=l  TO  Ntargets 
FOR  F i rer=l  TO  Nfirers 

P_surv (Target ) =P_sur v (Target ) *Psurv_tf (Fi rer , Target ) 

NEXT  Firer 
NEXT  Target 
NEXT  Slice 

I 

!Talley  the  kills 
( 

FOR  Target=l  TO  Ntargets 

Targets (2,  Target )  =  ( 1 -P_surv (Target ) >  * Tar gets ( 1 , Target ) 

NEXT  Target 
End_pgm: SUBEND 

f 

! I********************************************************************** 

SUB  Mi ssn_tmp 1 s (Si de, I , T, K, Uni t_no ( * ) , Hf i 1 e ( # ) , Li  stop > 

OPTION  BASE  1 

DIM  Uni tnameSC 16 1 , CdescSC 28 1 
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21456 

21459 

21462 

21465 

21468 

21471 

21474 

21477 

21480 

21483 

21486 

21489 

21492 

21495 

21498 

21501 

21504 

21507 

21510 

21513 

21516 

21519 

21522 

21525 

21528 

21531 

21534 

21537 

21540 

21543 

21546 

21549 

21552 

21555 

21558 

21561 

21564 

21567 

21570 

21573 

21576 

21579 

21582 

21585 

21588 

21591 

21594 

21597 

21600 

21603 

21606 

21609 


INTEGER  J.X 

(  ADDED  TO  PREVENT  2ND  3  HRS  FROM  APPEARING 
!  REMOVE  FOLLOWING  "IF"  STATEMENT  WHEN  NO  LONGER  REQUIRED 
IF  1=2  THEN 
FOR  L= 1  TO  8 

H-file(2,K,L)=HTile(l,K.L) 

NEXT  L 

GOTO  End  missn 
END  IF 

FOR  X=1  TO  2 
FOR  J=1  TO  12 

IF  H-file<X.J.,9)=Side  AND  H-f  il*<X,  J,  10)=T  THEN 
FOR  L=1  TO  8 

H'file(I,K,L)  =HF  l le ( X , J , L) 

NEXT  L 

PRINTER  IS  1 
GOSUB  Prt_missn_tmpls 
IF  Li  stop =2  THEN 
PRINTER  IS  702 
GOSUB  Prt  missn_tmpls 
ELSE 

PRINTER  IS  702 
END  IF 

GOTO  End_missn 
END  IF 
NEXT  J 
NEXT  X 

Start_missn:  ! 

PRINTER  IS  1 
GOSUB  Prt_mi ssn_tmpl s 
Chg_v*lues: ! 

INPUT  "FIELD  #, NEW  VALUE  TO  CHANGE  <9,9  TO  END) " , Fi el dn , Nval ue 
Sel_fieldi  ! 

SELECT  Fieldn 
CASE  1  TO  8 

Hfile<l,K,Fiel dn) =Nval ue 
CASE  9 

IF  Li stop=2  THEN 
PRINTER  IS  702 
GOSUB  Prt_mi ssn_tmpl s 
ELSE 

PRINTER  IS  702 
END  IF 

DISP  "CHANGE  ALL  ’*; 

IF  Si de= 1  THEN 

Cdesc*="BLUE  "?<Cdesc* 

ELSE 

Cdesc*="RED  "&Cdesc* 

END  IF 
DISP  Cdesct; 

DISP  "S  TO  THE  SAME  VALUES  (Y/N)"; 

INPUT  Ans* 


* 


Table  6-14.  Ground  combat  code  (continued). 

21612  IF  Ans*=" Y"  THEN 

21615  H-file(I.K,9)=Side 

21618  Hf ile(I,K, 10>=T 

21621  END  IF 

21624  GOTO  End_mi ssn 

21627  CASE  ELSE 
21630  GOTO  Chg_values 

21633  END  SELECT 
21636  GOTO  Start_missn 
21639  Prt_mi ssn_tmpl s:  ! 

21642  ASSIGN  ©Name  TO  "NAMEFILE:  9134, 704,  O'* 

21645  ENTER  ©Name, Uni t_no <K> ; Uni tname* 

21648  ASSIGN  ©Name  TO  * 

21651  PRINT  USING  " / , 6A, 3D, 3A, 16A, ; "UNI T  #" , Uni t_no <K) , 

21654  SELECT  T 

21657  CASE  1,11 

21660  Cdesc *=" COMBAT  " 

21663  CASE  2,  12 

21666  Cdesc**" ARTILLERY  " 

21669  CASE  3,13 

21672  Cdesc*»"AIR  DEFENSE  " 

21675  CASE  4,14 
21678  Cd esc *=  "  F ARRP  " 

21681  CASE  5,15 

21684  Cdesc*=" COMMAND  POST  " 

21687  CASE  6,16 

21690  Cdesc *=“ ENGINEER  " 

21693  CASE  7.17 

21696  Cdesc** "SUPPLY  " 

21699  CASE  8,18 

21702  Cdesc  *= " MA I NTEN ANCE  " 

21705  CASE  9,19 

21708  Cdesc** "BRIDGE  " 

21711  CASE  10,20 

21714  Cdesc *="COMMO/EW  SITE  " 

21717  END  SELECT 

21720  SELECT  Side 

21723  CASE  1 

21726  SELECT  T 

21729  CASE  1  TO  10 

21732  Cdesc*«=Cdesc  *&  "  B  ATTAL I  ON" 

21735  CASE  11  TO  20 

21738  Cdesc  *=Cdesc  *&" COMPANY " 

21741  END  SELECT 

21744  CASE  2 

21747  SELECT  T 

21750  CASE  1  TO  10 

21753  Cdesc **Cdesc*V REGIMENT " 

21756  CASE  11  TO  20 

21759  Cdesc*=Cdesc*VB ATTAL  ION" 

21762  END  SELECT 

21765  END  SELECT 


" , Unitname* 
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Ground  combat  code  (continued) 


21768  PRINT  Cdesct^",  " ; 

21771  SELECT  I 
21774  CASE  1 

21777  PRINT  "1ST  3  HOURS" 

21780  CASE  2 

21783  PRINT  "2ND  3  HOURS" 

21786  END  SELECT 

21789  PRINT  USING  " / , 8 <2X , 7A) " : "  <1)  (2)  " , "  <3>  (4)  "."  (5) 

*V  (6)  (7)  ( 8  > 

21792  PRINT  USING  "8 <2X . 7A) “ ; "  MIFT  MDFT  " , "  MIFDT  " . "  MDFDT  "  ,  "  MFIRE 

"MDFIRE  MVUL  MDVUL  M 

21795  PRINT  USING  "8  <2X  ,  7A>  “  ;  “ - - - - - 

21798  PRINT  USING  "8  (3X ,  ID.  4D)  "  ;  Hf  i  1  e  <  I ,  K,  1 )  ,  H-f  i  I  e  <  I ,  K,  2)  ,  H-f  j  1  e  ( I ,  K.  3)  .  Hf  i  1  e  ( 
K.,4)  ,H-f  ile(I,K,5>  ,H-f  ile(I,K,6>  ,Hf  ile(I,K,7>  ,Hf  ile(I,K,8> 

21801  RETURN 
21804  End_missn:  ! 

21807  SUBEND 

21810  !***t*********************************************************** ******** 
21813  SUB  Hel  o_range  (Cel  1  (  * )  ,  Hel  o_mi  s  (  *  )  ,  Stnd_o-f  f  _rg  (  *  >  ) 

21816  OPTION  BASE  1 

21819! - 

21822!  CALCULATE  THE  RANGES  FROM  HELO  TO  GROUND  S<  HELD  TO  HELO 

21825! - 

21828  INTEGER  Si de. SI de.del 
21831  ! 

21834  COM  /Helo_irvfo/  Btl  _rg.  Rg_avg  (2. 3, 20)  ,  Rg_avg_pd  (2, 3, 5)  .  D-f  .ammo  (2)  ,  D-f  i  r 
dist  (2,20,3)  ,  D-f  _pk_hel  a  (2,  20,  3,  2)  .  INTEGER  D*_sen_ptr  (2,  20)  ,  Df  ,munj  _ptr  (2,20) 
21837  1 


21840  FOR  Si de= 1  TO  2 


21843 
21846 
21849 
21852 
21855 
21858 
21861 
21864 
21867 
21870 
21873 
f , J> -Btl 
21876 
21879 
21882 
21885 


Si  de_de-f  =  (Side  MOD  2)fl  'CALCULATE  DEFENDING  SIDE 

FOR  1=1  TO  3  '  COMPUTE  HELICOPTER  TO  HELICOPTER  RANGES 

IF  Cell (Side. 1, I)<=0  THEN  GOTO  No_rg 
FOR  J=1  TO  3 

SELECT  Helo.mis (Side, I ) 

CASE  =1 

SELECT  Helo_mi  s  (Side_de-f  ,  J) 

CASE  =0  !  NO  ENEMY  HELOS  FLYING  FOR  THIS  BATTLE 

Rg_avg (Side, I,J  +  17>  =0 
CASE  *1  !  DIRECT  SUPPORT <  >D I RECT  SUPPORT 

Rg_avg  (Side,  I,  J  +  17)=ABS  (Stnd_o-f -f  _rg  (Side,  I )  +Stnd_o-f  *  _rg  ( Si  d<=_ 

rg> 

CASE  =2  !  DIRECT  SUPPORTS  >HELO  TO  HELO 

Ra_avg  (Si  de,  I ,  J-*-17 )  =Stnd_o-f  -f  _rg  (Si  de_def  ,  J  ) 

CASE~=3  '  DIRECT  SUPPORT < >SEAD 

Rg_avg  (Si  de,  I,J  +  17)=SQR(  (Stnd_0'f  f  _rg  (Si  de,  I )  -Bt )  _rg)  '2+(St.nd_ 


f_rg(Side_def , J) )  '2) 


21888  END  SELECT 
21891  CASE  =2 

21894  SELECT  Hel  o_mi  s  (Si  de  def..I) 
21897  CASE  =0  1  NO  ENEMY  HELOS 
21900  Rg_avg (Side, I , J+17) =0 
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2 1 903 
2 1 906 
21909 
21912 
)  >  /2 

-1915  CASE  =3  !  HELO  TO  HFLOOSEAD 

21918  Rg_avg  (Side,  I ,  J  +  l  7)  =Stnd_o-f  f  _r  g  ( Si  de,  I ) 

21921  END  SELECT 

21924  CASE  =3 

21927  SELECT  Hel  o_mi  s  (Si  de_de-f  ,  J  > 

21930  CASE  =0  !  NO  ENEMY~HELOS  FLYING 

21933  Rg_avg (Side, I , J+l 7) =0 

21936  CASE~=1  !  SEADODIRECT  SUPPORT 

21939  Rg_avg  (Side,  I , J  +  17)=S0R  <  <St.nd_o-f +  _rg  (Si  de_de-f  ,  >1  )  -Bt  1  _rq)  2+  ( S 

d_cf -f  _rg  (Side,  I )  )  "'2) 

21942  CASE  =2  *  SEAD<  >HEL0  TO  HELD 

21945  Rg_avg (Si de, I , J  +  17) =Stnd  of f_rg (Side  de-f,J) 

21948  CASE  -3  !  SEADOSEAD 

21951  Rg_avg  (Side,  I ,  J  +  17)  =  (Btl  rg/2)  +  (SQR  (Btl  _rg*Btl  _rg+  (Stnd_o-f  +  _r 

Side,  I) +Stnd_off_rg  (Side_de^,ji  ) ''2)1/2 
21954  END  SELECT 

21957  CASE  ELSE  •  NO  ATTACKING  HEL.OS  OF  THIS  TYPE 

21960  Rg^avg (Side, I, J  +  17) =0 

21963  END  SELECT 

21966  NEXT  J 

21969  No_rg:NEXT  I 

21972!  COMPUTE  RANGE  BETWEEN  GROUND  AND  HELICOPTER 


CASE  =1  1  HELO  TO  HELQ< /DIRECT  SUPPORT 

Rg_avg  (Side,  I,  J  +  17)  =Stnd_o-f  +  _r g (Si de,  I  > 

CASE  =2  '  HELO  TO  HELO-  HEl  0  TO  HELO 

Rg_avg  (Side,  I,J  +  17)  =  (Stnri_o-f(:_rg<Side,  I)  +Stnd_o-f  f  _rg  (Si  de_rie+ 


21975 

21978 
21981 
21984 
21987 
21990 
21993 
21996 
21999 
22002 
22005 
22008 
2201 1 
22014 
22017 
22020 
22023 
22026 
22029 
22032 
22035 
22038 


Tot_en_hel  os=Cel  1  (Side_de-f  ,1,1)  +Cel  1  (Side  def  .  1 , 2)  +Cel  1  (Si  de_de-f  .1.3) 
! TOTAL  NO.  OF  ENEMY  HELOS 
FOR  1=1  TO  3 

IF  Hel o_mis (Side, I><»0  OR  Cel  1 (Si de, 1 , I > <=0  THEN  'NO  ATTACKING 
FOR  K=1  TO  17  'HELDS  OF  TYPE  I 

Rg_avg (Si de, I , K) =0 
NEXT  K 

GOTO  Grd_hlo 
END  IF 

SELECT  Hel o_mi s (Si de, I > 

CASE  =1  DIRECT  SUPPORT 

FOR  K=1  TO  17 

Rg__avg  (Side,  I ,  K)  =Stnd  o-f  -f  _rg  (Si  de,  I ) 

NEXT  K 

CASE  »2  !  HELO  TO  HELO 

R9_«vg (Si de, I , 1 ) =0 

IF  Tot_en_hel os< =0  THEN  GOTO  H_h_rg 


FOR  J=1  TO  3  !  COMPUTE  WEIGHTED  AVERAGE  DEPENDING  UPON 

22026  .  PERCENTAGE  OF  ENEMY  HELICOPTERS  ON  A 

22029  .  PARTICULAR  MISSION 

22032  SELECT  Hel o_mi s (Si de_deT , J > 

22035  CASE  1 

220o8  Rg_avg  (Side.  I,  l)=Rg_avg(Side.  I.  )  )  +  ( SQR  (  (Stnd_o  +  -f_rg(Side_de-f. 

-Btl_r-g) '2+(Stnd_o-ff  rg  (Side,  I  >  '2>  )  )  *  (Cel  1  (Si  dede-f  .  1 .  J  )  /  Tot_en  helos) 

2204 1  CASE  2 
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Ground  combat  code  (continued). 


22044  Rg_avg  (Side, 1,1)  =ftg_avg  (Side,  I,l)+(Btl_rg/2+(  (St nd_o+  -f  _r  g  ( Si  <1 

I )  *-Stnd_of  f  _rg  (Si  de_de-f  ,  J  )  >  /4)  >  *  (Cel  1  (Si  de_def  ,  1 , J  > /Tot _en_hel  os) 

22047  ~  ~  CASE  3 

22050  Rg_avg  (Side,  I,  1)  =Rg_avg  (Side,l,l)+(Bt)  _r g+SQR  ( ABS  (St.nd_o+  +  _rn 

ide,  I )  ''2-Stnd_of  f  _rg  (Si de_de* , J ) "2)  >  >  *  (Cel  1  (Side_det ,  1 .  J)  /Tot_en  hel  os) 

END  SELECT 
NEXT  J 

H_h_rg:FQR  K=2  TO  17 

Rg_avg (Si de, I ,  K>  =Rg_avg (Si de, 1,1) 

NEXT  K 

CASE  -3  !  SEAD 

FOR  K= 1  TO  17 

Rg_avg (Side, I, K) =Stnd_ot f _rg (Side, I ) 

NEXT  K 
END  SELECT 
Grd_hl os  NEXT  I 
FOR  1=1  TO  3 

FOR  J=1  TO  4 ’STORE  THE  RANGES  FOR  THE  PROB  OF  DETECTION  CATEGORIES 
Rg_avg_pd (Side, I , J > =Rg_avg (Side, I . 1 > 

NEXT  J 

Rg_avg_pd (Side, I , 5) =0 
IF  Tot_en_helos>0  THEN 

FOR  J= 1 8  TO  20  ’LOOP  ON  HELD  TGT  CATEGORIES 

Rg_avg_pd (Si de, 1,5) =Rg_avg_pd (Side, 1,5) +Rg_avg (Si  de,  I ,  J ) * (Cel  1  ( 
de_de-f  ,  1 ,  J-17) /Tot  _en_hel  os ) 

22110  NEXT  J 

22113  END  IF 

22116  NEXT  I 
22119  NEXT  Side 
22122  SUBEND 

221 25’ ************************************************************************ 

22128  SUB  Hel  o_kills(Cell  <  * )  ,  Target  ( *  )  ,  Ad_ammo  (  * )  ,  Terr ,  Atk_pr  o-f  (  * )  ,  Hel  o_mi  s  (  *  ) 
ay_ni  te,  T i  me_step  ,  P_de-f  _ray  (  *  )  ,  Arty  (  *  >  ,  Veh_ada  ( *  )  ,  Hnd_ada  (  *  >  ,  Stnd_of  * _rg  (  *  )  .  Vi 
22131'********t************«************************************************ 
22134 'SUBROUTINE  HELQ_KILLS  CALCULATES  KILLS  BY  HELICOPTERS  AGAINST  GROUND  * 

22 137! ELEMENTS  AND  ENEMY  HELICOPTERS,  AND  HELICOPTER  LOSSES  BY  AD  WEAPONS  * 
22140'********************************************************************** 
22143! 

22146 
22149 
22152 
22155 
22158 
22161 
22164 
22167 
22170 
22173 
22176 
22179 
uni  (3) 

22182  ' 


OPTION  BASE  1 

DIM  Red_blue*C41 , No_ tar gets <2, 20) , Cel  1 _save (2,  3)  ,  Hel o_ loss (2.3) 

DIM  Tar get _l oss (2, 20) , Hel o_pd_targ (3, 20) , Hel  o_pd_tgt (5) , Ut (3) , PI  os (2,3) 
DIM  Ad_pd_hel  o  (7,3)  ,  Ad_avg_-f  i  red  (7,3)  ,  Ad_pk_hel  o  (2, 7, 3) 

DIM  Hel o_avg  t i red (3, 20) , Hel o_f ire_di st (3, 20) , Hel o_act_f i red (3, 20) 

DIM  Hel  o_pk_targ  (3, 20)  ,  Ad_-f  i  re_di  st(7,3),Ad_act_-fired(7,3) 

DIM  Pop_tstep (3) , No_pd_tgt (5) , Adust (2) , Ad_el  e<7) ,Te_firer (3) 

DIM  Ai r_rnds_avl (2,3) , Hel o_rnds_avl (2,3) , Tar get_psrv ( 2, 20) , Hel o_psrv ( 2. 
DIM  Pct_torce_(e(2)  ,  F'c.t_torce_hd  (2)  ,  Pet  _  mm  (2)  ,  Pc  t  _non_mm  (2 ) 

DIM  D+  _pd_hel  o  (20, 3)  ,  Dt  _avg_+  i red  (20,  3)  ,  D-f  _ac t  _-f  i  red  ( 20, 3)  ,  D-f  i  n-f  (2,3) 
DIM  Df tbar (2,3) 

INTEGER  I ,  J  .  K ,  L,  M,  Atmos,  Si  de_de-t ,  H_1  ase  ( 2 )  ,  Lase ,  Ti  m_st  ep  .  Ctg ,  Muni  (3)  .  F.n 


22056 

22059 

22062 

22065 

22068 

22071 

22074 

22077 

22080 

22083 

22086 

22089 

22092 

22095 

22098 

22101 

22104 

22107 
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22185  COM  /Hel  o_at.tr  i  te/  Helo_l  aad  <2. 3,  3)  ,  Pd_f  e_  i  n-f  _a  (2. 3, 5)  ,  Pd_f  e_in<  _b  <2.  3 . 

.  Pd_fe_.inf  _c  (2,3,5)  , Pd_hd_i nf _a <2, 3, 5) , Pd_hd _i nf _b  <273,5) 

22188  COM  /Hel  o_attr  i  te/  F'd_hd_inf  _e  <2,  3,  5)  .  Pd  f e_ tbar  a ( 2. 3. 5) , Pd  f e_tbar _b 
3,  5)  ,  Pd_f e_tbar_c  (2,  3,5)  , Pd_hd_tbar_a  (2,  3.5)  ,  Pd_  hd~tbar_.b  <2,  3,5) 

22191  COM  /Hel  o_attr  i  te/  Pd_hd_tbar_c  <2,  3, 5)  .  Pd  rmi  n  (2, 3,  8)  .Pd_rma>:  <2,  3.  8)  ,  Pt 
e„ a (2,3,3,20) , Pk_fe  b <2, 3, 3. 20) , Fk_f e_c (2, 3.3,20) ,Pk_hd_a <2,  3,  3,  20) 

22194  COM  /H*lo_at trite/  Pk_hd_b (2,3,3, 20) . Pk_hd_c (2,3,3,  20) , Pk_rmi n (2, 3, 3) , F 
r  mar:  <2,3,  3)  ,Np  (2,3,3)  ,Fm(2,3,3)  ,  Tm  (2, 3,  3)  ,  Te  (2, 3,  3) 

22197  COM  /Hel o_attr i te/  PI  os_al  pha  (2,  3)  ,  PI  os_beta  (2,  3)  ,  Pd_i  n-f  _ad_a  ( 2, 7, 2)  ,  Pr 
n-f  _ad_b  (2,7,2)  ,  Pd_i  n-f  _ad_c  (2, 7?2)  , Pd_tbar_ad_a < 2, 7 , 2) , Pd_tbar _ad_b72, 7 , 2) 

22200  COM  /Helo_attri  te/  Pd_tbar_ad_c  <2, 7, 2)  ,  Pd_ad_rmi  n  <2,  7, 8)  ,  Pd_ad_rma>:  <2,  7 
) , Pk_ad_a (2,7,2) , Pk_ad_b (2, 7,2) ,Pk_ad_c (2,7,2) , Pk_ad_rmin  <2, 7) ,Pk_ad_rmax (2,7) 
22203  COM  /Helo.attrite/  Rnd_wt (2, 7) , Rnds (2, 7) , Fad (2. 7)  ,  Pd_i nf _df _a (2, 2, 2) , Pc 
nf_df_b<2,2,2),  Pd_i  n-f  _df  _c  <2,  2,  2)  ,  Pd_tbar_df _a <2, 2, 2) , Pd_tbar_df _b <2,  2,  2) 

22206  COM  /Helo_attrite/  Pd_tbar_df  _c  (2. 2.  2)  ,  Pd_df  _rmi  n  (2,  2. 8)  .  Pd_d-f  .rmax  (2.  : 

)  .Df_rnds_eng  (2,2)  ,F_df  <2,  2) 

22209  COM  /Helo_attrite/  INTEGER  Mast_mnt <2, 3) . Tgt_pref <2. 3, 20) . Ad_pref <2, 7. ' 
Pd_cat (2, 20) 

22215  COM  /Direct_-f  ire/  B_cat (70) ,R_cat (70) , B_sen_d (70) . B_sen_n (70) , R_sen_d <7 
,  R_sen_n  (70)  ,  B_ammo_wt  (20)  ,  R_ammo_wt  (20) 

22218* 

22221  COM  /Helo_in-fo/  Btl  _r  ,  r  g_avg  <2, 3. 20)  .  Rg_avq_pd  (2. 3, 5)  ,  D-f  ammo  (2)  ,  D-f  _f  i 
_dist  <2,20,  3)  ,  D-f  _pk_hel  o  <2,  2*  ',  3,  2)  ,  INTEGER  Df  _sen_ptr  (2, 20)  ,  Df_muni_ptr  (2,  20) 

I 

22227  Atmos=Day_nite*4+Vis  !COMPUTE  ATMOSPHERIC  CONDITIONS 

22230  Adust ( 1 ) =. 5 
22233  Adust (2) =1.0 

22236  Time_step=Time_step*60  ! CHANGE  TO  SECONDS 
22239  PRINT 

22242  PRINT  USING  "22X , 1 1 A, 19X , 4A" ; "  BLUE  " ; "  RED" 

22245  PRINT  USING  " 17X , 52A" ; "HELO  1  HELO  2  HELO  3  HELD  1  HELD  2  HELO 

22248  PRINT  USING  "17X,52A";  " -  -  -  -  -  - 

22251  PRINT  USING  Fmt 1 ; "STANDOFF  RANGE: " ; Stnd_of f _rg ( 1 , 1 )  ;  Stnd_of f _rg ( 1 . 2 ) s St 
_of -f  _rg  (1,3):  Stnd_o-f -f  _rg  (2,  1  )  ;  Stnd_o-f -f  _rg  (2,2)  :  Stnd_of  -f  _rg  (2,3) 

22254  PRINT  USING  Fmtl;"HELQ  MSN:  "  ;  Hel  o_mi  s  (  1  ,  1 )  ;  Hel  o_mi  s  <  1 . 2)  ;  Hel  o_mi  ^ 

, 3) ; Hel o_mis(2,l>; Hel o_mi s (2, 2) : Hel o_mi s (2, 3) 

22257  PRINT  USING  Fmt 1 ; "ATK_PROF:  " ; At k_prof ( 1 , 1 > ; Atk_ prof ( 1 , 2) ; At k  prof 

.  3)  ;Atk_prof  (2,  1  )  ;  Atk_pro-f  (2~2)  ?Atk_prof  (2.3) 

22260  PRINT  USING  Fmt2; "#  HELOS:  " ; Cell  ( 1 , 1 , 1 ) . Cel  1 ( 1 , 1 . 2) , Cel  1  ( 1 ,  1 , 3 ) , 

11(2,1.1) , Cel  1 (2, 1 .2) , Cel  1  <2, 1,3) 

22263  Fmt 1: IMAGE  1 5A, 3 < 2X , 6D) , 3X , 3 (2X , 6D> 

22266  Fmt2: IMAGE  15A, 3 <2X , 3D. 2D) , 3X , 3 <2X , 3D. 2D) 

22269  PRINT 

22^72 ! - 

22275  FOR  Side=l  TO  2  !1=BLUE  2=RED 

22278  Ad_wt_avl (Side) =Ad_ammo (Side) *2000  ! CHANGE  AD  AMMO  AVAIL-TONS  TO  LBS 

22281  Df _wt_avl (Si de) =Df _ammo (Si de) *2000  ! CHANGE  DF  AMMO  AVAIL-TONS  TO  LBS 

22284  FOR  1=1  TO  70  ! PLACE  70  TARGETS  INTO  20  CATEGORIES 

22287  IF  Si de= 1  THEN  Ctg=B_cat(I> 

22290  IF  Si de=2  THEN  Ctg=R_cat<I) 

22293  Target (Side, 2, I) =Target (Side,  1 ,  I ) 
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Table  6-14.  Ground  combat  code  (continued) 


22296  IF  Ctg  O  AND  Ctg<=17  THEN  No  t  *r  get  <? ( Si  de.  Ct  a  )  =No_t. sr gets  (Si  de.  Ct  q  ) 

arget (Si de, 1 . I > 

22299  NEXT  I 

22302 ! - 

22305  FOR  1=1  TO  3  ! PLACE  HELO  TARGETS  INTO  LAST  3  CATEG  (18.19,20) 

22308  No.targets  (Side,  1  +  17)  =Cel  1  (Side,  1,  I)  !  MAP  IN  ONE-TO-ONE 

22311  IF  No_t arget s (Side, 1+17) <. 1  THEN  No  targets (Si de, I +17) =0 

22314  Cell (Side, 2, I > =No_targets (Si de. 1+17)  'INIT  REMAINING  #  OF  TGT  HEI. 

22317  NEXT  I 

22320  NEXT  Side 

20323  1 _ — _ - _ _ _ _ _ _ _ 

22326  FOR  Side=l  TO  2 

Side_det= (Side  MOD  2>+l  'DEFENDING  SIDE 

PRINT  ICOMMENT  THESE  PRINT  STATEMENTS  OUT,  BUT  LEAVE  IN  CODE' 

IF  Side=l  THEN  PRINT  "  #**  BLUE  HELO  RANGES  ***" 

IF  Si de=2  THEN  PRINT  "  ***  RED  HELO  RANGES  ***" 

FOR  1=1  TO  3 

PRINT  "Helo  ":I;"HELO  TO  GRND  RG: ;  Rg_avg  (Si  de,  1 ,  1 ) 

PRINT  TAB (9); "HELO  TO  HELO  RG: " ; Rg_avg (Si de, 1 , 1 8) ; Rg_avg < Si de.  I .  1 
; Rg_avg (Side, I , 20) 

22350  1  PRINT  TAB(9);"AVG  RG  TO  HELOS  FOR  PROB  OF  DET: " : Rg_avg_pd ( Si de . I . 

22353  '  PRINT 

22356  !  NEXT  I 

22359  • - 


22338 

22341 

22344 

22347 


22362 
22365 
22368 
22371 
22374 
22377 
22380 
22383 
22386 
22389 
22392 
22395 
22398 
2240 1 
22404 
22407 
22410 
22413 
22416 
22419 
22422 
22425 
22428 
22431 
22434 
22437 
22440 
22443 


Ful  _exp:  Totnum=0  1  CALCULATE  7.  OF  FORCE  FULLY  EXPOSED  &  HULL  DEFILADE 
Totden=0  'FOR  BOTH  SIDES 

FOR  1=1  TO  70 

Totnum=Tatnum+Tar get (Side, 2, I ) *P_det_r ay (Side. I ) 

Totden=Totden+T  arget (Side. 2, I) 

NEXT  I 

Pct_Force_-f  e  (Side)  =Totnum/Totden 

Pct_f orce_hd  (Side)  =1 .  O— Pct_F orce_-f  e (Si  de) 

!  CALCULATE  7.  OF  TGT  HELOS  MAST  MOUNTED  S'  NON-MAST-MNT 

Totden=Cel 1 (Side, 1,1) +Cel 1 (Side. 1,2) +Cel 1 (Side. 1,3) 

IF  Tot den >0  THEN 
Totnum=0 

FOR  1=1  TO  3  'CALCULATE  NO.  OF  HELOS  NON  MAST  MOUNTED 
Totnum=Totnum+Cel 1  (Si de, 1 , I >  *Mast_mnt (Side, I ) 

NEXT  I 

Pct_mm (Side) =Totnum/Totden  ! PERCENT  MAST  MOUNTED 

Pct_non_mm  (Si  de)  =  1 .  O-Pct.  _mm  (Si  de)  'PERCENT  NON  MAST  MOUNTED 

ELSE  'NO  TARGET  HELOS 

Pct_mm (Si de) =0 
Pct_non_mm (Si de) =0 
END  IF 


FOR  1=1  TO  3  ' LOOP  ON  HELO 

Air_rnds_avl (Side, I ) =0 
Hel o_rnds_avl (Si de, I ) =0 

SELECT  Atk_pro-f  (Side.  I  )  'CALCULATE  NO.  OF  ROUNDS  AVAILABLE 
CASE  1  ' MSL  LOAD 

Hel o_rnds_  avl  (Side,  I ) =Hel o_load (Si de.  I. 1  ) *Cel 1  (Side.  1 . I ) 
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Table  6-14.  Ground  combat  code  (continued). 

CASE  2  ! MSL/GUN  < MSL  LOAD  FIRST) 

Hel o_rnds_avl  (Side. I) =Hel o_load (Side,  I,  1 )*.5#Cell  (Side.  1,  I) 

CASE  3_  1  GUN 

Hel o_rnds_avl (Side. I) =Hel o_l oad(Side,I,2) #Cel 1 (Side. 1. I) 

CASE  4”  'AIR-TO-AIR 

Air_rnds_avl (Side. I) =Hel o_l oad (Side, 1.3) #Cel 1 (Side, 1 , I ) 

CASE  5  ! AIR/MSL 

Air_rnds_avl (Side, I) =Hel o_load(Side, I,3)#Cell (Side, 1, I) 

Hel  o_rnds_avl (Side, I >  =Hel o_l oad (Si de, 1 , 1 ) *Cel 1  (Si de,  1  ,  I ) 

CASE  b  ! AIR/MSL/GUN 

Ai r _rnds_avl (Si de, I 1 =Hel o_l oad (Side, 1,3) *Cel  1 (Si de, 1,1) 

Hel  o_rnds_avl (Side, I ) =Hel o_l oad (Side. I , 1 ) *- 5#Cel 1  (Side, 1,1) 

CASE  7  ! AIR/GUN 

Ai r _rnds_avl (Side, I ) =Hel o_l oad (Side, 1,3) #Cel 1 (Si de, 1 , I ) 

Hel o_rnds_avl (Side, I >  =Hel o_l oad (Side, 1,2) *Cel 1  (Side, 1 .  I ) 

END  SELECT 
NEXT  I 

GOSUB  Li  ne_o+  _si  ght  !  CALC  PRQB  OF  LINE  OF  SIGHT  BETWEEN  GRND  S<  HEl.0 

GOSUB  Ad_pk_hel  o  !  CALCULATE  PROB.  OF  KILL  BY  AD  WEAPONS 

NEXT  Side 


FOR  T i m_step= 1  TO  2  • LOOP  ON  15  MINUTE  TIME  STEP 

FOR  Side=l  TO  2 

FOR  J=1  TO  20  ! INITIALIZE  TARGETS'  PROB  OF  SURVIVAL  ARRAY 

Targetpsrv (Si de, J ) =1 . 0 
NEXT  J 

FOR  J  =  1  TO  3  ! INITIALIZE  HELOS’  PROB  OF  SURVIVAL  ARRAY 

Hel o_psrv (Si de, J) =1 . 0 
NEXT  J 

IF  Side=l  THEN  Red_bl ue*="BLUE" 

IF  Si  de=2  THEN  Red_blue*="RED'’  • 

IF  T i m_step= 1  THEN  GOTO  Skp_chk  'REST  IS  FOR  2ND  TIMESTEP 
FOR  1=1  TO  3 

IF  Cel  1  (Side,  1 ,  1)00  THEN  N>:t_lup 

Cel  1 _save (Si de, I ) =Cel 1  (Si de, 2,1)  'SAVE  REMAINING  NO.  OF  HELOS 
IF  Cell  (Side, 2.  IX.8*Cell  (Side,  1,  I)  THEN 

IF  1=3  AND  Cell  (Side,  1,  I)  >0  THEN  GOTO  N:<t_lup  'NO  MSG  IF  SCTS  Lt 

Cell  (Side, 2,  I )  =0  ‘  TEMPORARILY  ZERO  OUT  HELOS  SO  AD  ?<  ENEMY  HE! 

'T  SHOOT  AT  IT 

No_tar gets (Side, 1+17) =0 
PRINT 

PRINT  "  ” ; Red_bl ue* ; "  HELICOPTER  MISSION  I: "ABORTED  DUE  TO  ! 

VE  LOSSES. " 

ELSE  ! CHECK  FOR  ENOUGH  MUNITIONS  FOR  THIS  TIMESTEP 
IF  Cell  (Side,  1,  I)  =0  THEN  GOTO  N>:t_lup 
IF  Helo_mi s (Si de, I ) =1  OR  Hel o_ mi s (Si de . I > =3  THEN 
IF  Hero_rnds_avl  (Side.  I  )«  ='>  THEN 

IF  Atk  pro?  (Side.  I )  <  >2  AND  Atk  pro-f  (Si de.  I  )  <  6  THEN 

PRINT 

PRINT  ■'  NO  MORE 


6-VII-165 


Table  6-14 


Ground  combat  code  (continued) 


---’Vs  IF  Atk_pro-f  (Side,  I  >  =1  DR  At!,_proF  (Si  de,  I  >  =5  THEN  ERINT  "f 

UND  MISSILES  AVAILABLE  FOR  " ; Red_b 1 ue* : "  HELG  ' ;  I ;  "  .  WILL  RETURN  TO  BASE." 
22596  IF  Atk_pro-f  (Si  de  I)  =3  DR  Atk_prof  (Side,  I )  =7  THEN  PRINT  "f 

ROUNDS  AVAILABLE  FOR  “ ; Red  blue*!"  HELO  " :  I : " .  WILL  RETURN  TO  BASE." 


22599 
22602 
22605 
22608 
22611 
22614 
22617 
22620 
LO  " ;  I ; 
22623 
22626 
22629 
22632 
22635 


Cel  1  (Side, 2,  I ) =0 
No_targets (Si de. 1+17) =0 
END  IF 
END  IF 

ELSE  ! CHECK  FOR  ENOUGH  AIR  MISSILES  FOR  AIR  MISSION 
IF  Air_rnds  avl (Side, I ) <»0  THEN 
PRINT 

PRINT  "  NO  MORE  AIR  MISSILES  AVAILABLE  FOR  " : Red  blue*;" 
WILL  RETURN  TO  BASE.  “ 

Cell (Side, 2, I ) =0 
No_targets (Side, I+17>=0 
END  IF 
END  IF 
END  IF 


22638  Nxt_lup:NEXT  I 

22641'  IF  PRIMARY  MSN  IS  D.S.  OR  SEAD.  MUNITIONS  IS  MISSILES  AND  SCT  AND  AH 1  E 
ST,  THEN  SCTS  LASING 


22644  Skp_chk:H_lase(Side) =1 

22647  IF  (Helo_mis  (Side,  1)02)  AND  (Atk_pro-f  (Side.  1  >  =  1  OR  Atk_pro-f  (Si  de.  1 

5)  AND  Cell (Side, 1,3) >0  AND  Cel  1 (Side, 2, 1 ) >0  THEN 

22650  IF  Cell (Side, 2,3) <.8*Cell (Side, 1,3)  THEN  ! CHECK  FOR  ENUF  SCTS 

22653  PRINT 

22656  PRINT  ••  INSUFFICIENT  " ;  Red  blue*;"  SCOUTS  TO  CONTINUE  LASING. 

REMAINING  AH1  WILL  OPERATE  AUTONOMOUS." 


22659 
22662 
22665 
22668 
22671 
22674 
22677 
22680 ' 


Cell (Side, 2,3) *0  ! ZERO  OUT  SCOUTS 

No_targets (Si de,  20) =0 
ELSE 

H_1 ase (Side) =3  1SC0UTS  WILL  LASE  FOR  HELO  1 

END  IF 
END  IF 
NEXT  Side 


22683 

22686 

22689 

22692 

22695 

22698 

22701 

22704 


FOR  Side=l  TO  2, 

IF  Cell  (Side,  2,  1)  4-Cell  (Side.  2,  2) +Cel  1  (Side,  2,  3)00  THEN  GOTO  N>:t_si 
Si  de_de-f  *  (Si  de  MOD  2)+l 
IF  Side=l  THEN  Red_bl ue*="BLUE" 

IF  Side=2  THEN  Red_bl ue*="RED" 

FOR  J=1  TO  20  ~WHEN  *  OF  TGTS  ARE  CLOSE  TO  0.  SET  IT  TO  0 

IF  No_target  s  ( Si  de_de+ ,  J  )  <  .  )  THEN  No_targets  (Si  de  de-f.J)=0 
NEXT  J 


2707 


ts(Side_de-f  ,20) 


T°t_en_hel  os=No_tar  get  s(Side_de+  ,  18)  +No_targets  (Side_de-f  .  19)  +No_tar 


22710 

22713 

N 


!  TOTAL  NO.  OF  ENEMY  HELDS 


FOR  J=1  TO  3  ! LOOP  ON  TARGET  HELOS 

SELECT  Atk_prof (Side_def,J)  1  SET  ENEMY  MUNI  TYPE  USED  FOR  PRIMARY 


22716 

22719 

22722 


CASE  1,5  1 MSL 
En_muni  ( J  >  =1 
CASE  2.6  ' MSL/GUN 
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Table  6-14.  Ground  combat  code  (continued). 


22725  IF  Tim_step=l  THEN  Enjnuni <J)=1  'SET  TO  MISSILES  FIRST 

22728  IF  Tim_step=2  THEN  En_muni  (.])=?  ‘SET  TO  GUNS  SECOND 

22731  CASE  3.7 

22734  Enmuni <J)=2 

22737  CASE’ 4  ! AIR-TO-AIR 

22740  En_muni (J)=3 

22743  CASE  ELSE ' NO  ATTACK  PROFILE 

22746  En_muni (J)=0 

22749  END  SELECT 

22752  IF  Hel  o_mi  s  (Si  de_de-f  ,  J )  =2  AND  Atk_pro-f  (Si  de_de+ ,  J  )  >4  THEN  En_muni 

) =3  (PRIMARY  MSN  IS  ENEMY  HELO  KILLS.  THEN  SET  MUNITION  USED  TO  AIR  MSLS 
22755  NEXT  J 

22758! 

22761  FOR  1=1  TO  3 

22764  Muni ( I ) =0 

22767  IF  Atk_pro-f  (Side,  I )  >=4  THEN  Muni  ( I  >  =3  !  AIR  MSLS  ON  BOARD 

22770  NEXT  I 

22773  IF  Muni  (1>+Muni  (2)+Muni  (3) >0  THEN  ! AT  LEAST  1  HELO  HAS  AIR  MSLS 

22776  Beg_cat= 1 8  'LOOP  THRU  AIR  TGT  PK  W/  AIR  MUNI 

22779  End _c at =20 

22782  GOSUB  Helo_pk_targ  'CALCULATE  PROB.  OF  KILL  OF  TGT  HELOS 

22785  END  IF 

22788 ' 

22791  FOR  1=1  TO  3  'LOOP  ON  HELO 

22794  SELECT  Atk_pro+ (Si de, I ) ' SET  ARRAY  TO  MUNITION  TYPE  USED  THIS  TSTE 

22797  CASE  1,5  ' MSL 

22800  Muni ( I ) =1 

22803  CASE  2,6  !MSL/GUN 

22806  IF  T i m_step= 1  THEN  Muni(I)=l  '  MISSILE 

22809  IF  T i m_step=2  THEN  Muni(I>=2  'GUN 

22812  CASE  3,7_'GUN 

22815  Muni ( I ) =2 

22818  CASE  4  (AIR-TO-AIR 

22821  Mun i < I ) =3 

22824  CASE  ELSE ( NO  ATTACK  PROFILE 

22827  Muni ( I ) =0 

22830  END  SELECT 

22833  Lase=I  'SET  Lase  TO  WHICH  HELO  IS  LASING- I TSELF  OR  SCT 

22836  IF  1=1  THEN  Lase=H_l ase ( Si de ) 

22839  Pop_tstep ( I ) =0 

22842  SELECT  Hel o_mi s < Si de . I >  'CALCULATE  POPUPS  PER  TIMESTEP 

22845  CASE  1,3  (PRIMARY  MSN  IS  GROUND  KILLS.  USE  MSL  OR  GUN  TE  ?<  TM 

22848  IF  Tm (Si de, Lase, Muni ( I > > +Te (Si de, Lase, Muni ( I ) ) >0  THEN  Fop_tstep 

)  =Ti  me_st  ep/  ( Tm  ( Si  de, Lase ,  Mun  l  (I)  )+Te(Side,Lase,  Muni  ( I  >  )  ) 

22851  Te_F  i  rer ( I ) =Te (Si de, Lase , Muni  ( I > )  'STORE  TIME  EXPOSED  OF  FIRER 

22854  CASE  2  (PRIMARY  MSN  IS  HELO  KILLS,  USE  AIR  MSL  TE  fy  TM 

22857  IF  Tm  (Si  de,  Lase,  3) -*-Te  (Si  de,  Lase,  3)  >0  THEN  Pop_t  st ep  (  I  )  =T i  me_st  t- 

( Tm (Si de, Lase, 3) +Te ( Si  de, Lase, 3) ) 

22860  Te_f i rer (I)=Te(Side,Lase,3> 

22863  END  SELECT 

22866  NEXT  I 

22869  IF  (Muni  (1  )  d  AND  Muni(lK3)  OR  (Mum  (2)  0  AND  Mum  (2)  <  3)  OR  (Mum 
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Table  6-14.  Ground  combat  code  (continued). 


0  AND  Muni  (3X3)  THEN  'AT  LEAST  1  HELD  HAS  GRND  MUNIT 
22872  Beg_cat= 1  'LOOP  THRU  GROUND  TRT  P Y  W/  GROUND  MUNI 

22875  End_cat=17 

22878  GOSUB  Helo_pP_targ  'CALCULATE  PROB.  OF  FILL  BY  HEI.OS 

22881  END  IF 

22884  GOSUB  Helo_pd_targ  ! CALCULATE  PROB.  OF  DETECTION  BY  HELOS 

22887  GOSUB  Ad_pd_helo  ! CALCULATE  PROB.  OF  DETECTION  BY  AD  WEAPONS 

22890  GOSUB  Ad_avg_f i r ed  ! CALCULATE  AVERAGE  ROUNDS  FIRED  BY  AD 

22893  GOSUB  DF_pd_helo  ! CALCULATE  PROB.  OF  DETECTION  BY  DIRECT  FIRE 

22896  GOSUB  D-f  lavg_-f  i  r  ed  'CALCULATE  AVERAGE  ROUNDS  FIRED  BY  DIRECT  FIRE 

22899 1 

22902  FOR  1=1  TO  3  ! LOOP  ON  HELD  TYPE 

22905  IF  1=3  AND  H_1 ase ( Si de ) =3  THEN  ! SET  SCOUT ?  S  POPUPS  SAME  AS  AH 1 

22908  Pop_tstep (3) =Pop_tstep  < 1 ) 

22911  GOTO  Ne>:  t_l  oop 

22914  END  IF 

22917  IF  Cell (Side. 2, I)<=0  THEN  GOTO  Next_loop  ! NO  HELOS  OF  TYPE  I 

22920  IF  Hel o_mi s (Si de, I ) =2  AND  Tot_en_hel os<=0  THEN 

22923  Cell (Side. 2. I ) =0  ! HELO  ON  AIR  MSN  BUT  NO  ENEMY  HELOS  THIS  30  M 

BTL 

22926  PRINT  "  " ; Red_bl ue*; "  HELICOPTER  " ;  I ; "  ON  AIR-TO-AIR  MISSION  ! 

T  NO  ENEMY  HELOS  FLYING." 

22929  PRINT  "  WILL  RETURN  TO  BASE. " 

22932  GOTO  Ney,t_loop 

22935  END  IF 

22938  Lase=I  ! SET  Lase  TO  WHICH  HELO  IS  LASING- ITSELF  OR  SCT 

22941  IF  1=1  THEN  Lase=H_l ase (Si de) 

22944 ' 

22947  ON  AtF_pro-f  (Side,  I )  GOSUB  Mi ssi 1 e_attr i te , Msl _gun , Gun_attri te, Next 

air,Missi 1 e_attr i te, Msl _gun, Gun_attr i te 

22950  IF  Cel  1  (Side,  2,1)  <=0  THEN  GOTO  Ne::t_loop  !  MEANS  NO  MUNITIONS  LEFT 

22953  Ne>:t_ai  r  :  IF  Atk_pro+ (Si de, I > >=4  THEN  GOSUB  Air_attrite  'CALC  AIR  KILL? 
22956  Ne>:t_l oop: NEXT  I 
22959 ( 

22962  IF  Cell (Side, 2,1) +Cel 1 (Side, 2, 2) +Cel 1 (Si de, 2. 3) >0  THEN 

22965  GOSUB  Ad_+ i re_di st  ! CALCULATE  AD  FIRE  DISTRIBUTION  AGAINST  HELI'S 

22968  GOSUB  Ad_act_Fired  '.CALCULATE  ACTUAL  ROUNDS  FIRED  BY  AD 

22971  GOSUB  DF _ac t _F i r  ed  'CALCULATE  ACTUAL  ROUNDS  FIRED  BY  DIRECT  FIRE 

22974  GOSUB  Helo_psrv  'CALCULATE  HELICOPTER  PROB.  OF  SURVIVAL 

22977  END  IF 

22980 ! 

22983  N>:t_si  de:  NEXT  Side 
22986 ! 

22989  FOR  Side=l  TO  2  ! DO  ALL  THE  LOSS  CALCULATIONS 

22992  FOR  1=1  TO  3  ! RESET  CELLS  IF  NEEDED 

22995  IF  Cell  (Side, 2, I ) =0  AND  Cel  1 .save (Si de. I ) >0  THEN 

22998  Cel  1  (Side, 2, I) =Cel l_save(Side,  I) 

23001  No_targets(Side, 1+17) =Cel 1 _save (Side. I ) 

23004  END  IF 

23007  NEXT  I 

23010 1 

23013  FOR  J=1  TO  17  ! CALCULATE  GROUND  TARGET  LOSSES  BY  ATI  HELO 
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23016  Target  1  oss  (Si  de,  J  )  =  (  1  -Tar  get  _  par  v  (Si  rie,  .1 )  )  *No_  tar  get  s  (Si  de.  0  > 

23019  NEXT  J 

23022  FOR  1  =  1  TO  3  'HELO  PROS  OF  SURV  AND  LOSS  BY  AD.  DF  S-  ENEMY  HELD  '«» 

23025  He l n^psrv (Side, I  >  ^Target  _psr v (Si de, 1+17) *Hel o_perv (Si de, I ) 

23028  Hel o_loss (Side, 1 ) = ( 1 . O-Hel o_psr v (Si de, I ) ) #Cel 1 (Side. 2,1) 

23031  Target  1 oss (Si de, I +1 7) =Hel o  loss(Side, 1) 

23034  NEXT  I 

23037 ! 

23040  FOR  1=1  TO  70  ! DECATEGOR I ZE  LOSSES  TO  GROUND  ELEMENTS 

23043  IF  Si de=l  THEN  Ctg=B  cat (I) 

23046  IF  Side=2  THEN  Ctg=F:_cat(I) 

23049  IF  Ctg>0  AND  Ctg<=17  THEN 

23052  IF  Target (Side, 1 , I ) >0  AND  No_targets (Si de, Ctg ) >0  THEN 

23055  Target (Side,2, I)=Target (Side,2, I) — T ar get (Side,2,I)*(T  ar get _1 o' 

(Si de, Ct g ) /No_targets (Side, Ctg) ) 

23058  END  IF 

23061  END  IF 

23064  NEXT  I 

23067  < 

23070  FOR  1=1  TO  20  'CALCULATE  NO.  OF  TARGETS  REMAINING 

23073  No_targets (Si de, I ) =No_ tar gets (Si de, I ) -Target _l  oss (Si  de, I ) 

23076  Target_loss (Side, I ) =0 

23079  NEXT  I 

23082 ! 

23085  FOR  1  =  1  TO  3  !  SUBTRACT  HELO  LOSSES 

23088  Cel  1  (Side, 2, I >  =Cel 1  (Si de, 2, I ) -Hel o_l  oss (Si  de.  I ) 

23091  Helo  1 oss (Si de. I ) =0  'ZERO  OUT  AGAIN 

23094  NEXT  I 

23097  NEXT  Side 

23100  NEXT  Tim  step 

23103' 

23106  FOR  Si de=l  TO  2 

23109  Ad_ammo (Side) =Ad_wt_avl (Side) /2000  'CHANGE  BACK  TO  TONS 

23112  D-f  _ammo  (Si  de)  =D-f  wt  avl  (Si  de)  /200Q 

23115  NEXT  Side 

23118  GOTO  Subrout_end 

23121  ' - 

23124  Mi ssi 1 e_attr i te:  ! 

23127  IF  Helo_rnds_avl (Side, I><=0  THEN 

23130  PRINT  "  NO  MORE  GROUND  MISSILES  AVAILABLE  FOR  " ; Red_bl ue*; "  HELO  " : I 
23133  FOR  J=1  TO  17 

23136  Helo_avg_F i red ( I , J ) =0  ‘ ZERO  OUT  AVG  ROUNDS  FIRED  PER  POPUP 

23139  NEXT  J 

23142  RETURN 

23145  END  IF 

23148  GOSUB  Hel o_avg_f i red  ICALCULATE  AVERAGE  ROUNDS  FIRED  BY  HELOS 

23151  IF  Atk_proF (Side, I)<=2  THEN  ! NO  AIR  TO  AIR  KILLS  -  DO  LOSSES 
23154  GOSUB  Helo_-f  ire_di  st  ! CALCULATE  FIRE  DISTRIBUTION  BY  HELOS 

23157  GOSUB  Hel o_act i r ed  'CALCULATE  ACTUAL  ROUNDS  FIRED  BY  HELOS 

23160  GOSUB  Target_psrv  'CALCULATE  TGTS"  PROB  OF  SURVIVAL 

23163  END  IF 
23166  RETURN 
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23169 1 - 

23172  Gun  at.tr ite:  ! 

23175  IF  Helo_rnds_avl (Side, I)<=0  THEN 

23178  PRINT  "  NO  MORE  GUN  ROUNDS  AVAILABLE  FOR  ";Red_hluet: "  HELO  " : I 

23181  FOR  J=1  TO  17 

23184  Helo_avg_fired(I,  J )  =0  'ZERO  OUT  AVG.  ROUNDS  FIRED  PER  POPUP 

23187  NEXT  J 

23190  RETURN 

23193  END  IF 

23196  GOSUB  Hel o_avg_f i red  ! CALCULATE  AVERAGE  ROUNDS  FIRED  BY  HELOS 

23199  IF  Atk_prof (Side, I > =2  OR  Atk_prof (Side. I > =3  THEN  ! NO  AIR  KILLS-DO  LOS 
23202  GOSUB  Hel o_f i r e_d i st  « CALCULATE  FIRE  DISTRIBUTION  BY  HELOS 

23205  GOSUB  Hel o_act_f i red  'CALCULATE  ACTUAL  ROUNDS  FIRED  BY  HELOS 

23208  GOSUB  Target_psrv  'CALCULATE  TGTS’  PROB  OF  SURVIVAL 

23211  END  IF 
23214  RETURN 

23217 ! - 

23220  Air_attrite:  • 

23223  IF  Air_rnds_avl (Side, I><=0  THEN 

23226  PRINT  "  NO  MORE  AIR  MISSILES  AVAILABLE  FOR  “ ; Red  bl ue*s "  HELO  " ;  I 
23229  FOR  J=18  TO  20 

23232  Helo_avg_f i red ( I , J >  =0  'ZERO  OUT  AVG  AIR  MSLS  FIRED  PER  POPUP 

23235  NEXT  J 

23238  ELSE 

23241  Muni ( I ) =3  'SET  POINTER  TO  AIR  MUNITIONS 

23244  GOSUB  Ai r_avg_f i red  'CALCULATE  AVERAGE  ROUNDS  FIRED  BY  HELOS 

23247  END  IF 

23250  GOSUB  Helo_f  ire_di  st  !  CALCULATE  FIRE  DISTRIBUTION  BY  HELOS 

23253  GOSUB  Ai r _act_f i red  'CALCULATE  ACTUAL  ROUNDS  FIRED  BY  HELOS 

23256  GOSUB  Target.psrv  'CALCULATE  TGTS’  PROB  OF  SURVIVAL 

23259  RETURN 

23262 ! - 

23265  Msl_gun:  ! 

23268  IF  Tim_step=l  THEN 
23271  GOSUB  Mi ssi 1 e_attr i te 

23274  ELSE 

23277  Helo.rnds.avi (Side, I ) =Hel o_l oad (Si de, I,2>*.5*Cell  (Side, 2, I) 

! GUN  BASIC  LOAD 

23280  GOSUB  Gun_attrite 

23283  END  IF 
23286  RETURN 

23289  ! - 

23292  Line_of _sight:  1  Prob  of  Line  of  Sight  bet.  helo  &  grnd 

23295  FOR  1=1  TO  3 

23298  IF  Helo_mis (Side, I >  >0  THEN 

23301  Los_msn=Hel o_mi s (Si de, I ) 

23304  IF  Los_msn=2  THEN  Los_msn=l ‘Use  D.S.  msn  data  to  calc,  plos  if  hel o 

s  on  an  air  to  air  msn 

23307  Plos (Side, I ) =P1 os  al pha (Si de, Los_msn ) * (EXP ( -PI  os_beta (Si  de, Los_msn ) * 

g  avg (Si de,  1 .  1  ) ) ) 

23310  END  IF 

23313  NEXT  I 
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23316  RETURN 
23319  ' 

237^22  1 _ — — _ — _ 

23325  Helo_pk_targs  1  Calculate  the  Prob.  of  Killing  Target 

23328  FOR  1=1  TO  3  1  Loopinq  on  Helicopter  Type 

23331  IF  Cell  (Side,  1,  I>00  OR  Muni  <1)00  THEN  GOTO  Next_i_2 

23334  FOR  J=&eg_cat  TO  End_cat  1  Looping  on  Target  Category 

23337  IF  Muni < I ) =0  THEN 

23340  Helo_pk_targ ( I , J ) =0 

23343  GOTO  Ne:<t_hel  o_pk_tg 

23346  END  IF 

23349  !  Is  this  Target  within  Range? 

23352  IF  Rg_avg (Side, I , J ) <Pk_rmin (Side. I , Muni  < I ) )  OR  Rg_avg (Side, I . J>  >Pk_ 

a>:  (Side,  I,  Muni  (I)  )  THEN 

23355  Hel o_pk_targ ( I , J ) =0  1  No— then  F'rob.  o-f  Killing  is  Zero 

23358  GOTO~Nex t_hel o_pk_tg 

23361  END  IF 

23364  !  Calculate  Fully  Exposed  S<  Hull  Defiladed  Prob.  o-f  Killing 
23367  !  Target  using  a  Specified  Munitions  at  a  given  Range 

23370  Pkhd=  <Pk_hd_a(Side, I. Muni  (I) , J ) * (Rg_avg (Si de. I, J)  2) )  +  (Pk_hd_b (Side 

, Muni  ( I ) , J ) *Rg_avg (Side, I , J ) ) +Pk_hd_c (Side, I , Muni  (  I ) , J > 

23373  Pkf  e=Pk_-f  e_a  (Side,  I ,  Muni  (  I  )  ,  J  )  *Rg_avg  (Si  de,  I ,  J  )  2+Pk  _f  e_b  (Side,  I .  Mur 

( I ) , J ) #Rg_avg (Side,  I , J ) +-Pk:_f e_c (Si de, I , Muni  ( I  > , J  > 

23376  !  Calculate  the  Prob.  o-f  Killing  this  Target  Category 

23379  IF  J<  =  17  THEN  Hel  o_pk_targ  ( I ,  J  >  =Pkhd*Pct  _(or ce_hd  ( Si  de)  +Pkf  e*Pct  _-f  or 

e_f e (Side) 

23382  IF  J>=18  THEN  Hel o_pk_targ ( I ,  ,J ) =Pkhd #Pct_mm (Si de) +Pkf e*Pct_non_mm (S: 

e) 

23385  IF  Hel  o_pk_targ  ( I ,  J )  <0  THEN  1  IT  Prob.  o-f  Kill  is  Negative  (bad 

23388  Hel o_pk_targ ( I , J ) =0  1  points)  then  Set  it  to  Zero 

23391  END  IF 

23394  Nex t_ hel o_p k _tg :  1 

23397  NEXT  J 

23400  Nex t _i _2 : NEXT  I 

23403  RETURN 

23406 ! - 

23409  Hel  o_pd_targ :  !  Helicopter  Prob.  o-f  Detecting  Target 

23412  FOR  1=1  TO  3  !  Looping  on  Helicopter  Type 

23415  IF  Cell (Side, 1 , I )<=0  OR  Muni (I)<=0  THEN  GOTO  Next_i_l 
23418  FOR  J5=l  TO  5  1  Looping  on  Collapsed  Target  Category 

23421  !  Is  this  Target  within  Range9 

23424  IF  Rg_avg_pd (Si de, I , J5) < Pd_rmi n (Si de , I « Atmos )  OR  Rgavgpd (Si de. I . 

>Pd_rmax (Si de, I , Atmos)  THEN 

23427  Hel o_pd_tgt  ( J5)  =0  !  No-then  Prob.  o-f  Detecting  is  Zero 

23430  GOTO  Nex t _ col tg_pd 

23433  END  IF 

23436  1  Calculate  Fully  Exposed  &  Hull  Defiladed  Prob.  of  Detecting;  Infinite 
23439  1  Time  $<  Average  Time  to  Detect  a  Target  at  a  Specified  Range 
23442  Hd  i  nf  =F'd_hd_  inf  s  (Side.  I ,  J5)  (Rg  avg_pd  (Side.  I  ,  J  5  >  '  2+F'd_hd_i  nf_b(SidF 

I  ,J5>  *Rqavg_pd  (Side.  I  ,J5>  +-Pd_hd_  i  nf  c(Side,I..)5) 

23445  Fei  nf  =F’d_f  e  _  i  nf  _  a  (Si  de,  I ,  .15)  #F:g  ava  pd(Side.  I.J5)  2+Pd_f  e_i  nf  _b  (Si  df 

I .  J5)  *Rg_avg_pd  (Side,  I  ,  .15 )  +F'd_f  e_  i  nf  _c  (Si  de.  I ,  .15) 
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23448  Hdtbar =Pd _hd_tbar _a (Si de, I , J5) *Rg_avq  pd ( Si de . I , J5)  2+i’d  hd  thsr_b 

de,  I ,  J5)  *Rg_avg_pri  (Si  de,  I ,  .35)  +Rd_hd_tbar _c  (Si  de,  I  ,  J5) 

23451  Fetbar=Pd_f  e_t.bar  _a  (Side.  I ,  ,15)  *Rg_av.-i_pd  (Si  de.  I .  J5)  2+Pd_  f  e_tbar  .  b 

de, 1 , J5) *Rg_avg_pd (Side, I ,  J5)  +Pd_f e_tbar _c (Side,  I ,  J5) 

23454  1  Calculate  Search  Time,  then  F'rob.  of  Detection  -for 
23457  1  Fully  Exposed  ?,  Hu. 1  Defiladed  Collapsed  Target  Category 
23460  Ut ( I >  =Te_f irer <I)-(Rg_avg_pd (Side , I ,  J5) /Fm(Side, I, Muni < I ) ) ) 

23463  IF  UtGXO  THEN  Ut  ( I )  =0 

23466  !  Calculate  Prob.  of  Helicopter  Detecting  this  Collapsed  Target 
23469  '  Category 

23472  Pdt_fe=Feinf * ( 1 -EXP < -MIN (Ut ( I ) /Fetbar , 708) ) ) 

23475  Pdt_hd=Hdinf * ( 1-EXP (-MIN(Ut (I) /Hdtbar ,708) ) > 

23478  Hel o_pd_tgt ( J5>  =Pdt _f e*Pct _f orce_f e (Side) +Pdt_hd*Pct_f orce  hd (Side) 

23481  IF  J5=5  THEN  >  AIR  TARGETS 

23484  Pdt_rate ( I ) = (Pdt_f e*Pct _non  mm (Side) ) + (Pdt_hd*Pct_mm (Side) ) 

23487  END  IF 

23490  IF  Hel o_pd_tgt ( J5> <0  THEN  !  If  Prob.  of  Detecting  is  Negative 

23493  Hel  o_pd_tgt.  ( ,75)  =0  !  (bad  points)  then  Set  it  to  Zero 

23496  END  IF~ 

23499  Next_coltg_pd:  ! 

23502  NEXT  J5 

23505  Next._helo_pd:  ' 

23508  1  Expand  the  5  Collapsed  Target  Categories  to  20  Target  Categories 
23511  FOR  J=1  TO  20 

23514  IF  Pd_cat  < Si de_def . J ) >0  AND  Pd_cat (Si de_def , J ) < =5  THEN  Helo_pd_tarq 

,  ,7 )  =Hel  o_pd_tgt  (Pd_cat  (Si  de_def  ,  J  )  > 

23517  NEXT  J 

23520  IF  H  1 ase (Si de_def ) =3  THEN  Helo  pd  targ(I,18>=0  ! NO  PROB  OF  DET  OF  Hi 

0  1  IF  SCTS  LASING 

23523  Next_i _1 : NEXT  I 

23526  RETURN 

23529  ! 

23532  ! - 

23535  Hel o_avg_f i red s  '  Calculate  Average  Rounds  Fired  at  Target 

23538  FOR  J=1  TO  17  I  Looping  on  Target  Category 

23541  Hel o_avg_f i r ed ( I , J ) =0 

23544  IF  No_targets <Side_def , J) >0  THEN 

23547  Calculate  Average  Rounds  Fired  by  Helicopter  using  Specified 
23550  !  Munition  Type 

23553  Hel o_avg_fi red ( I , J ) =Hel o_pd  targ(Lase,J)#Plos(Side,I) #Np (Side, I , Mum 

I  )  ) 

23556  END  IF 

23559  NEXT  J 

23562  RETURN 

23565  ! 

23568  ! - 

23571  Hel o_f i re _di st :  1  Calculate  Fire  Distribution  against  Targe 

23574  Helo  tot_dist=0 
23577  Hel o  grd_ d i st =0 

23580  FOR  J=1  TO  20  1  Looping  on  Target  Cateqorv 

23583  '  Calculate  the  Total  Distribution  of  Fire  across  all  Targets 

23586  Helotot  di  st=Helo  tcit  dist  +  (Helopdtarq  (l.ase,  J  )  *  iNo  targets  'Si  rip  dot 
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.J )  *Hel  o_pi:_tarq<I,J))#Tgt  pre<  (Si  de,  Hel  o  mi  s  <  Si  de.  I  )  .  -3  )  ) 

23589  NEXT  J 

23592  !  Calculate  the  Distribution  of  Fire  tor  a  Sinnle  Target 

23595  FOR  J  =  1  TO  20 

23598  IF  Hel o_tot_di st< >0  THEN 

23601  Hel  o_f  i  re_di  st  ( I ,  J  )  =  <Hel  o_  pd  _targ  (Lase.  J!  *  ( No  _  tar  gets  (Si  de_def  ,  J )  *f 

o_pt:_targ  ( I  ,  J )  )  »Tgt_pref  (Side,  Hel  o_mi  s  (Si  de,  I  >  ,  .1 )  )  /  Hel  o_  tot _ di  st 

23604  IF  J<  =  17  THEN  Hel o_grd_di st=Hel o_gr d  dist+Helo  fire  di st ( I , J) 

23607  ELSE 

23610  Helo_f ire_di st ( I . J ) =0 

23613  END  IF 

23616  NEXT  J 

23619  RETURN 

'?36^?‘“>  1 

23625  ! - 

23628  Helo_act_f ired;  '  Calculate  Actual  Rounds  Fired  at  Target 

23631  Tot_rnds_f ired=0 
23634  Grd_act_pp < I > =0 

23637  FOR  J=1  TO  20  !  Looping  on  Target  Category 

23640  !  Calculate  Actual  Rounds  Fired  at  Target  per  Timestep 

23643  Hel  a_ac t_f  i  red  ( I ,  J  )  =Hel  o_avg_fired(I,  J)  *Pop_tstep  ( I )  *Hel  o_f  i re  di st  (I 
) *Cel 1 (Side, 2^1 > 

23646  IF  Muni(I)=l  THEN  Hel o_act_f i red ( I , J ) =Hel o_act  f i r ed ( I . J ) * . 8iAdust ( Ar 
(Side))  'MUNITIONS  IS  MISSILE 

23649  !  Calculate  Total  Rounds  Fired  per  Timestep 

23652  Tot  rnds  fired=Tot  rnds_f  ired+Helo  act  fired  (I.  3) 

23655  NEXT  J 

23658  !  Are  There  Enough  Rounds  Available'’ 

23661  IF  Tot _rnds_f i red >Hel o_rnds_avl (Si de. I >  THEN 
23664  Ad j_tot_rnds=0 

23667  FOR  J=1  TO  20 

23670  '  NO-then  Adjust  Each  Category  By'  an  Equivalent  Percentage  of  the  Rounds 
23673  1  Available  for  Firing 

23676  Hel o_act  _f i red ( I , J )  =  (Hel o_rnds_avl  (Side.  I ) /Tot_rnds_f ired ) *Hel o_ac  t 

i red ( I , J ) 

23679  NEXT  J 

23682  !  Also  Adjust  the  Number  of  Fopups  in  a  Timestep  Downward  by  an 
23685  !  Equivalent  Percentage 
23688  IF  Tot _rnds_f ired >0  THEN 

23691  Pop_tstep ( I >  =  (Hel o_rnds_avl  (Side.  I) /Tot_rnds_f ired) *Pop_t step ( I ) 

23694  END  IF 

23697  !  Adjust  Total  Rounds  Fired  (you’ve  fired  all  you  have) 

23700  Tot_rnds_f i red=Hel o_rnds_avl (Si de. I ) 

23703  END  IF 

23706  !  Reset  the  Rounds  Available 

23709  Helo_rnds  avl (Si de. I ) =Hel o  rndsavl (Side. I ) -Tot  rnds  fired 
23712  RETURN 
23715  ! 

23718  ! - 

23721  Air  avg_fired:  !  CALCULATE  AVERAGE  ROUNDS  FT RED  AT  OPPOSING  HELICOPTERS 

23724  FOR  J=18  TO  20 

27727  IF  En  muni ( J-17) =0  THEN 
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23730  Helo. avq  ♦ired(I.,il=i.i 

23733  GOTO  E.  air  svq  fired 

23736  END  IF 

23739  Te _tarq_r eci p= 1 /Te  <Si de_ def , J- 1 7 , En  muni  ( J-l 7  >  > 

23742  Tm_targ  reel p=l /Tm (Si de  def,J-17.En  muni(J-l7>> 

23745  !  CALCULATE  RATE  AT  WHICH  FIRING  HELICOPTER  "I"  DETECTS  TARGET 
23748  !  HELICOPTER  “J"  WITH  BOTH  OF  THEM  "POPPING"  IN  i>  OUT  OF  THE  LINE 
23751  !  OF  SIGHT 

23754  Pdt_rate_l  os  =  (Pdt _r ate  (Lase )  # Tm_ t ar g_rec i p  >  /  (Tm_tarq_r ec  i  p  +  Tetar  o  re-' 

P> 

23757  IF  No_target s (Si de_ def , J ) <=0  THEN 

23760  Hel  o_avg_-f  i  red  (  I ,  J  )  =D 

23763  GOTO  E_ai r _ avg_f i red 

23766  END  IF 

23769  T i me_to_i mpact=Rg_  avg (Si de, I , J ) /Fm (Side, I , Muni  <  I )  ) 

23772  Te_reci  p=l /Te  -f  i  rer  ( I ) 

23775  Den_90=L0G ( . 1 ) / (-Te_reci p ) 

23778  P_enqage=0 

23781  !  CALCULATE  THE  PROS.  OF  ENGAGEMENT 

23784  FOR  T=Ti me_to_i mpact  TO  Den_90 

23787  Pdt_t  1=  (Pdt._r ate_l  os  /  (Te_targ_reci  p-Pdt_rate_l  os  >  )  *  (EXP  ( -MIN  (Pdt  rat 

1  os# (T-Ti me_to_i mpact ) , 708) ) -EXP (-MIN ( Te_targ_reci p# (T-T i me_to_i  mpact  > . 70S )  )  > 
23790  Fdt_t i me=l - ( 1 -Pdt _t 1 ) ANo_targets (Si de_def , J ) 

23793  P  engage=P  engage-*- ( Te_reci  p*EXP  (-MIN  (Te_reci  p*T,  708)  >  #Pdt  _ti  me  > 

23796  NEXT  T 

23799  Hel  o_avg  f i red ( I . J ) =P_engage*Np (Side, I , Muni  ( I  >  ) 

23802  E_air_avg_f ired:  ' 

23805  NEXT  J 
23808  RETURN 
23811  1 

23814  1 - r - 

23817  Air_act_+i red :  1  CALCULATE  ACTUAL  ROUNDS  FIRED  AT  OPPOSING  HELICOPTERS 

23820  ~  ~  •  AND  GROUND  TARGETS 

23823  Tot_rnds_f  i  red=0 

23826  Grd_pp=0 

23829  Air_pp=0 

23832  Hel o_actuaI =0 

23835  Ai r _actual =0 

23838  Hel o_ai r _di st= 1 . O-Hel o_gr d_d i st  'TOTAL  AIR  DISTRIBUTION 

23841  FOR  3=1  TO  20  1  Looping  on  Target  Category 

23844  Hel o_act_f l red ( I . J > =0 

23847  IF  J<=17  THEN 

23850!  CALCULATE  ACTUAL  ROUNDS  FIRED  PER  POPUP  AT  ALL  GROUND  TARGETS 
23853  IF  Hel o  grd_d l st  0  THEN 

23856  Grd_pp=Gr d  _pp+He lo_avq  fired(I.J) #Hel o_fire_dist ( I , J ) /Hel o_ard_rii  ' 

23859 1  CALCULATE  ACTUAL  ROUNDS  FIRE5  PER  TIMESTEP  AT  ALL  GROUND  TARGETS 
23862  Hel  o_act_fired  <  I  .J)  =Hel  o_avg_Pired  (1,0)  #Pop_t st  ep  (  I  )  #Hel  of  ire_di  ■= 

( I , J ) #Cel 1 (Side, 2,1) 

23865  IF  Mun  i  (  I  )  =  1  THEN  HeJ  o_act_  fired  (I, J)  =Hel  o.  act  .fired  ( I .  J  )  ♦.  8*  Adii^ ' 

r t v  (Side )  )  'MUNITIONS  IS  MISSIl.E 

23868  Helo  actual  =Helo  actual +Hel  o  act  f  i  red  <  I .  .1 ) 

23871  END  IF*  * 
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23874  ELSE 

23877'  CALCULATE  ACTUAL  ROUNDS  FIRED  PER  POPUP  AT  ALL  OPPOSING  HELICOPTERS 
23880  IF  Hel o  _ai r_di st  >0  THEN 

23883  Ai  r  _pp=Ai  r  _pp+Hel  o_avg_-fired  ( I  ,  J  >  *Hel  o_-fire_dist  <  I .  J  )  /Hel  o_ai  r  _d  i 

23886'  CALCULATE  ACTUAL  ROUNDS  FIRED  PER  TIMESTEP  AT  ALL  OPPOSING  HELICOPTERS 
23889  Helo  act  -f  i  red  ( I ,  J )  =Hel  o_avg_f  i  red  ( I  .  J  )  #Pop_tstep  <  I  >  *Hel  o_t  i  re_di 

< I,  J) *Cell  (Side, 2, I) 

23892  Ai  r_actual  =Ai r _actual  +Hel  o_act_t  i  red  <  I ,  J  > 

23895  END  IF 

23898  END  IF 

23901  NEXT  J 

23904'  ARE  THERE  ENOUGH  AIR  &  GROUND  ROUNDS  AVAILABLE  TO  SUPPORT  CALCULATED 

23907'  FIRING.  IF  NOT  CONVERT  EXCESS  AIR  ROUNDS  TO  GROUND  FIRING  AND  VICE  VER 

23910  01d_ai r_actual =Ai r_actual 

23913  01 d_hel o_actual “Helo_actual 

23916  IF  Air_actual >Air_rnds_avl (Side, I >  THEN 

23919  Helo_actual  =Hel  o_actual  +  ( Ai  r_actual  -Ai  r  _rnds._avl  (Side.  I>)*(Grd_pp/Air 
P> 

23922  Ai r_actual =Ai r_rnds_avl (Side, I) 

23925  IF  Hel o_actual >Hel o_rnds_avl (Si de, I )  OR  Hel o_actual =0  THEN 
23928  IF  Hel o_actual >0  THEN  Hel o_actual =Hel o_rnds_avl (Side, I ) 

23931  !  Also  Adjust  the  Number  ot  Popups  in  a  Timestep  Downward  by  an 

23934  !  Equivalent  Percentage 

23937  IF  Grd_pp >0  THEN  A_g_r at i o=Ai r _pp /Gr d_pp  'AIR/GROUND  RATIO 

23940  IF  Grd_pp<=0  THEN  A_g_ratio=0 

23943  Pop_tstep ( I )  = (Hel o_rnds_avl (Side, I ) *A_g_rati o+Air_rnds_avl (Si de, I ) ) 

01 d_hel o_actual *A_g  ratio+01d_air_actual ) *Pop_tstep ( I ) 

3946  END  IF 

3949  GOTO  E_air_act  tired 

3952  END  IF 

3955  IF  Heloactual >Hel a_r nds_avl (Side, I )  THEN 

3958  Ai r_actual =Ai r_actual + ( (Hel o_actual -Hel o_rnds_avl (Side, I) >*(Air_pp/Gr 

pp)  ) 

23961  Hel o_actual =Hel o_rnds_avl (Side, I ) 

23964  IF  Air_actual >Air_rnds_avl (Side, I)  OR  Ai r _actual <=0  THEN 

23967  IF  Air_actual>0  THEN  Ai r _«ctual =Ai r _rnds_avl (Si de, I ) 

23970  !  Also  Adjust  the  Number  of  Popups  in  a  Timestep  Downward  by  an 

23973  !  Equivalent  Percentage 

23976  IF  Ai r_pp >0  THEN  G_a_r ati o=Grd_pp/Ai r_pp  'GROUND/AIR  TRADEOFF  RATE 

23979  IF  Air_pp<«=0  THEN  G_a_ratio*=0 

23982  Pop_tstep ( I ) = (Hel o_rnds_avl (Side, I ) +Ai r_rnds_avl (Side, I) *G_a_rat i o) 

01 d_hel o_actual +01 d_ai r_actual *G_a_rat i o) *Pop_tstep ( I ) 

23985  END  IF 

23988  END  IF 

23991  E_ai r_act_t i red :  1 

23994  '  ARE  THERE  ENOUGH  GROUND  ROUNDS  AVAILABLE'’ 

23997  IF  01 d_hel o_actual < >Helo_actual  THEN 
24000  FOR  J=1  TO  17 

24003  •  NO-THEN  ADJUST  EACH  GROUND  CATEGORY  BY  AN  EQUIVALENT  PERCENTAGE  OF  T 

24006  '  ROUNDS  AVAILABLE  FOR  FIRING 

24009  Hel o_act_T i red ( I , J ) = (Hel oactual /01 d  hel o  actual ) *Hel o.act _t i red ( I . 

24012  NEXT  J 
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24015  END  IF 

24018!  DECREMENT  GROUND  ROUNDS  AVAILABLE 

24021  Hel o_rnds_avl (Side, I )=Helo_rnds  avl (Side, I ) -Helo_actual 
24024  !  ARE  THERE  ENOUGH  AIR  ROUNDS  AVAILABLE? 

24027  IF  01d_air_actual<>Air_actual  THEN 
24030  FOR  J=1 8  TO  20 

24033  !  NO-THEN  ADJUST  EACH  AIR  CATEGORY  BY  AN  EDU I VALENT  PERCENTAGE  OF  THE 

24036  !  ROUNDS  AVAILABLE  FOR  FIRING 

24039  Hel o_act _F i red (1 ,0)  =  (Air_actual /01d_air_actual ) *Hel o_act  _F i red ( I «  J  ) 

24042  NEXT  J 

24045  END  IF 

24048!  DECREMENT  AIR  ROUNDS  AVAILABLE 

24051  Ai r_rnds_avl (Si de. I ) =Ai r  rnds_avl (Side, I ) — Ai r_actual 
24054  RETURN 
24057  ! 

24060  ! - 

24063  Target_psrv:  1  Calculate  Prob.  of  Target  Survival 

24066  FOR  J=1  TO  20  1  Looping  on  Target  Category- 

24069  Tgt=MAX  (No_ tar gets  (Side_de-f,J>  ,  1.0)  *  HAS  TO  BE  1.0  OR  MORE 

24072  Target_psrv  (Si  de_deF ,  J  >  =Target  _psr v  ( Si  de_deF  ,  J  )  *  (  ( 1  -  (Hel  o_pk_tar g  ( I ,  J 

Tgt )  )  "'Hel  o_act_F  i  red  ( I ,  J  )  ) 

24075  NEXT  J 
24078  RETURN 
24081  ! 

24084  ! - 

24087  Ad_pk_helo:  1  AD  Prob.  o-f  Killing  Helicopter 

24090  FOR  1=1  TO  7  !  Looping  on  AD  Type 

24093  FOR  J=1  TO  3  !  Looping  on  Helicopter  Type 

24096  IF  Rg_avg (Si de. J , 1 ) <Pk_ad_rmi n (Si de_deF , I >  OR  Rg_avg (Si de, J , 1 ) >Pk_ac 

rma>!  (Si  de_deF  ,  I )  THEN 

24099  Ad_pk_hel o (Si de_det . I , J ) =0  1  -No-then  Prob.  oF  Killing  is  Zero 

24102  GOTO  Ne>:t_ad_pk_helo 

24105  END  IF 

24108  !  Use  F'robabi  1  i  ti  es  For  the  Appropriate  Mast  Type 

24111  IF  Mast_mnt (Si de, J ) =0  THEN 

24114  Mt=2  ! non  mast -mounted 

24117  ELSE 

24120  Mt=l  ! mast -mounted 

24123  END  IF 

24126  !  Calculate  the  Prob.  oF  Killing  at  a  SpeciFied  Range 

24129  Ad_pk_hel  o(Side_deF,  I,J)=Pk_ad_a(Side_deF,  I,  Mt )  *Rg_avg  (Side.J,  1)  ■'2+-F 

_ad_b  (Si  de_deF  ,  I ,  Mt )  #Rg_avg  (Side.J,  1  >  -t-Pk_ad_c  (Si de_deF ,  I ,  Mt ) 

24132  Next_ad  pk  helo: ! 

24135  NEXT  J 
24138  NEXT  I 
24141  RETURN 
24144  ! 

24147  ! - 

24150  Ad_pd_helo:  1  AD  Prob.  oF  Detecting  Helicopter 

24153  FOR  1=1  TO  7  1  Loopinq  on  AD  Type 

24156  IF  Fad <Side_deF , I)-  =0  THEN  'NO  AD  TYPE  I  DATA  AVAIL 
24159  FOR  J=1  TO  3 
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2416?  Ad_ pd  hel o ( I . J ) =0 

24165  NEXT  J 

24168  GOTO  Next_ad_i 

24171  END  IF 

24174  FOR  J=1  TO  3  1  Looping  on  Helicopter  Type 

24177  Ad_pd_hel o < I , J ) =0 

24180  IF  J=1  AND  H_1 ase (Si de> =3  THEN  GOTO  Nex t _ad_pd_hel  o 

24183  IF  Cell  (Side,  1,JX=0  OR  Muni(J><=0  THEN  GOTO  Nex  t _ad..  pd..hel  o 

24186  IF  Rg_avg  (Si  de ,  J ,  1 )  <Pd_ad_r mi n  ( Si  de_def  ,  I ,  Atmos )  OR  Rq_avg (Si de. J , 1 

F'd_ad_rmax  (Si  de_def  ,  I ,  Atmos  >  THEN  !Is  it  within  range? 

24189  GOTO  Nex t_ad_pd_hel o  !no-Prob  of  detection  is  zero 

24192  END  IF 

24195  !  Use  Probabilities  -for  the  Appropriate  Mast  Type 

24198  IF  Mast_mnt (Si de, J ) =0  THEN 

24201  Mt=2  'non  mast -mounted 

24204  ELSE 

24207  Mt=l  ! mast-mounted 

24210  END  IF 

24213  f  Calculate  the  F'rob.  of  Detecting;  Infinite  Time  &  Average  Time 
24216  '  to  Detect  at  a  Specified  Range 

24219  Adinf =Pd_i  nf _ad_a (Si de_def , I , Mt >  *Rg_avg (Side, J, 1  X'2+Pd_i nf _ad_b (Si d 

def  ,  I ,  Mt )  *Rg_avg  (Si  de,  J ,  1 )  -*-Pd_i  nf  _ad_c  (Si  de_def  ,  I ,  Mt ) 

24222  Adtbar=Pd_tbar  _ad_a  (Si  de_def  , I , Mt  >  *Rg_avg  (Si de, J ,  1 )  •"■2+Pd_tbar _ad_b  ( 

de_def , I , Mt ) *Rg_avg (Si de, J , 1 ) +Pd_tbar _ad_c (Si de_def , I , Mt ) 

24225  !  Calculate  the  Time  to  Detect  this  Helicopter  Assuming  an 
24228  !  Engagement  will  follow 

24231  Adteng=Te_f irer ( J ) - (Rg_avg (Side, J. 1 > /Fad (Side_def , I > ) 

24234  IF  AdtengCO  THEN  Adteng=0 

24237  1  Calculate  F'rob.  of  the  AD  Detecting  this  Helicopter 

24240  IF  Ad t bar  >0  THEN  Ad_pd_hei o ( I , J ) =Adi nf * ( 1 -EXP ( -Adt eng / Adtbar ) ) 

24243  Nex t_ad_pd_hel o: NEXT  J 
24246  Nex  t_ad_i : NEXT  I 
24249  RETURN 
24252  ' 

24255  ! - 

24258  Ad_avg_f i red :  !  AD  Average  Rounds  Fired  at  Helicopter 

24261  FOR  1=1  TO  7  '  Looping  on  AD  Type 

24264  FOR  J=1  TO  3  !  Looping  on  Helicopter  Type 

24267  IF  Cell (Side, 1,J)<=0  OR  Helo_mi s (Side, J) <«0  THEN  GOTO  Next_j_l 

24270  !  Calculate  the  Average  Rounds  Fired  at  the  Helicopter 

24273  Ad_avg_f  i  r  ed  ( I ,  J  >  =Ad_pd_hel  a  ( I .  J  >  #F'l  os  ( Si  de.  J ) 

24276  Nex  t. _ j _ 1  s  NEXT  J 

24279  NEXT  I 
24282  RETURN 
24285  ' 

24288  1 - 

24291  Ad_ f i re_di st :  '  Calculate  AD  Distribution  against  Helo 

24294  FOR  1=1  TO  7  1  Looping  on  AD  Type 

24297  Ad  tot_dist=0 

24300  FOR  J=1  TO  3  !  Looping  on  Helicopter  Type 

24303  '  Calculate  the  Total  Distribution  of  Fire  across,  all  Helicopters 

24306  Ad  tot  di  st=Ad_t.ot  _d  i  st  «■  ( Ad  _pd_hel  o  (  I  ,  J  )  *  ( Cel  I  <  Si  de.  2 . 0  >  *  Ad  _  pi  _he)  o 
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1 de_def .  I ,  J )  )  *Ad_pref  (Si de  def ,  I .  J  )  ) 

24309  NEXT  J 

24312  !  Calculate  the  Distribution  of  Fire  for  a  Sjnole  Tarqet 
24315  FOR  J  =  1  TO  3  !  Looping  on  Hel i copter  Tvpe 

24318  IF  Ad_tot_distOO  THEN 

24321  Ad_f i re_di st  < I , J )  =  < Ad_pd_hel a  < I , J ) * (Cel  1  (Si de, 2. J ) *Ad_pfc_hel o (Sid 

def,I,J))*Ad  pref < Si de_def , I , J ) ) /Ad  tot  dist 
24324  ELSE 

24327  Ad_f i re_di st ( I , J ) =0 

24330  END  IF 

24333  NEXT  J 

24336  NEXT  I 

24339  RETURN 

24342  ! 

24345  ! - 

24348  Ad_act_f i red:  !  Calculate  Actual  Rounds  Fired  at  Hel o 

24351  FOR  1^1  TO  5  ‘FIGURE  OUT  NO.  OF  AD  ELEMENTS  ABLE  TO  FIRE 

24354  Ad_el e ( I ) =Target <Side_def ,2, 1+47) * ( l-0eh_ada (Si de_def > > 

24357  NEXT  I 

24360  Ad_el e (6) =T  ar get (Si de_def , 2, 53) * ( 1-Hnd_ada (Si de_def ) ) 

24363  Ad_el e (7) =Target (Si de_def , 2, 54) *  < 1-Hnd_ada (Si  de_def ) > 

24366  Tot _rnds_f i red=0 
24369  Tot_wt_f i red=0 

24372  FOR:  1  =  1  TO  7  \  Looping  on  AD  Type 

24375  FOR  J=1  TO  3  !  Looping  on  Helicopter  Type 

24378  !  If  Scouts  are  Lasing  for  AHl’s  then  they  can’t  be  Detected 

24381  IF  H_1  ase (Si de) =3  AND  J=1  THEN 

24384  Ad_act _f i red ( I . J ) =0 

24387  ELSE~ 


24390  Ad_act_f i red  < I , J ) =Ad_avg_f i red ( I , J ) #Pop_ tstep ( J ) *Ad_f  i  re_di  st ( I .  J ) 

Ad_el e (  I ) 

24393  END  IF 

24396  '  Calculate  Total  Rounds  Fired  per  Timestep 

24399  Tot_rnds_f i red=Tot_rnds_f i red+Ad_act  _f i red ( I , J ) 

24402  NEXT  J 

24405  Tot_wt_f  i  r  ed=Tot_wt_f  i  red+Tot_rnds_f  i  red*F:nd_wt  (Si  de_def  ,  I  >  !  IN  LBS 

24408  Tot _rnds_f i red=0 

24411  NEXT  I 


24414 

24417 

24420 

24423 

24426 

24429 

24432 

24435 

,.J) 

24438 

24441 

24444 

24447 

24450 


'  Are  There  Enough  Rounds  Available? 

IF  Tot_wt_f i r ed >Ad_wt_avl (Si de_def >  THEN 
Ad  j  _t at  _r nds=0 

FOR  1=1  TO  7  ‘  Loopinq  on  AD  Type 

FOR  J=1  TO  3  Loopinq  on  Helicopter  Type 

!  NO-then  Adjust  Each  Category  By  an  Equivalent  Percentage  of  the  Round 
1  Available  for  Firing 

Ad_act_f  i red  <  I ,  J  )  =  ( Ad_wt _avl  (Side  def  )  .'Tot  _wt _f  i  red )  *Ad_act  _f  i  red  < 

‘  Calculate  NEW  Total  Rounds  Fired 
NEXT  J 
NEXT  I 

1  Adjust  Total  weight  Fired  (you’ve  fired  all  you  have) 

Tot_wt  _f  i  red=Ad_wt_  avl  (Si de_def  > 
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24453  END  IF 

24456  1  Reset  the  ammo  weight  Available 

24459  Ad  wt  avl  ( Si de_def ) =Ad  wt  avl  (Side  def)-Tot  wt.  fired 
24462  RETURN 
24465  ' 

24468  - - 

24471  Df_pd_helo:  !  DF  Prob.  of  Detecting  Helicopter 

24474  FOR  1  =  1  TO  2  Looping  on  Sensor  Type 

24477  FOR  J=1  TO  3  !  Looping  on  Helicopter  Type 

24480  Df  inf  <  I ,  J )  =0 

24483  Dftbar <1, J>=0 

24486  IF  J  =  1  AND  H_1 ase ( Si de > =3  THEN  GOTO  Ne>;t_df  _pd_hel  o 

24489  IF  Cell (Side, 1,J)<=0  OR  Muni(J><=0  THEN  GOTO  Nex t _ df _pd_hel o 

24492  IF  Rg_avg (Si de, J ,  1 ) <Pd_ df _rmi n (Si de_def , I ,  Atmos)  OR  Rg  avo (Si de. J . 1 > 

d_df _rmax (Si de_def , I , Atmos)  THEN  !Is  it  within  range? 

24495  GOTO  Next_df _pd_hel o  !  No-Prob  of  detection  is  sera 

24498  END  IF 

24501  !  Use  Probabilities  for  the  Appropriate  Mast  Type 

24504  IF  Mast_mnt (Side, J)=0  THEN 

24507  Mt=2  !  Non  mast-mounted 

24510  ELSE 

24513  Mt=l  !  Mast-mounted 

24516  END  IF 

24519  !  Calculate  the  Prob.  of  Detecting;  Infinite  Time  S<  Average  Time 
24522  ‘  to  Detect  at  a  Specified  Range 

24525  Df inf ( I . J ) =Pd_i nf _df _a (Si de_def . I , Mt ) #Rg_avg (Side. J. 1 ) A2+Pd  inf _df  b 

ide_def , I , Mt ) *Rg_avg (Side, J, 1 ) +Pd_inf _df _c (Side_def , I,Mt) 

24528  Df tbar ( I , J ) =Pd_tbar _df _a (Si de_def , I . Mt ) *Rg_avg (Si de, J  ,  1 >  '2+Pd_tbar _d 

b  (Si  de_def  ,  I ,  Mt )  #Rg_avg  (Si  de.  J  ,  1 )  -*-Pd_tbar  _df  _c  (Si  dedef  ,  I ,  Mt ) 

24531  Next_df _pd_helo:  ! 

24534  NEXT  J 
24537  NEXT  I 

24540  FOR  1=1  TO  20  '  LOOPING  ON  DF  TYPE 

24543  IF  Df  muni _p tr ( Si de_def , I ) < =0  OR  Df _sen_ptr (Si dedef , I > <=C  THEN 

•  NO  DF  TYPE  I  DATA  AVAIL 

24546  FOR  J=1  TO  3 

24549  Df _pd_hel o ( I , J ) =0 

24552  NEXT  J 

24555  GOTO  Next_df_i 

24558  END  IF 

24561  FOR  J=1  TO  3  !  LOOPING  ON  HELICOPTER  TYPE 

24564  Calculate  the  Time  to  Detect  this  Helicopter  Assuming  an 
24567  !  Engagement  will  follow 

24570  Dfteng=Te  f i rer ( J ) - (Rg_avg (Si de. J , 1 ) /F_df (Si de_def . Df  muni _ptr (Si de  c 

f  ,  I )  )  ) 

24573  IF  Dfteng<0  THEN  Dfteng=0 

24576  1  Calculate  Prob.  of  the  DF  Detecting  this  Helicopter 
24579  IF  Df tbar ( Df _sen  pt r (Si de_def , I > . J ) >0  THEN 

24582  Df  _pd _hel o ( I. J ) =Df inf (Df _sen_ptr (Si de_def . I )  . J) *  (  1 -EXP ( -Df teng /Df 1 1 

r (Df _sen_ptr  <Side_def , I ) , J ) )  ) 

24585  END  IF 

24588  NEXT  J 
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24591 

24594 

24597 

24600 

24603 

24606 

24609 

24612 

24615 

24618 

24621 

24624 

24627 

24630 

24633 

24636 

24639 

24642 

_muni 

24645' 

24648 

24651 

24654 

24657 

24660 

24663 

24666 

24669 

24672 

24675 

24678 

24681 

24684 

24687 

ef  ,  I.. 

24690 

24693 

24696 

24699 

24702 

24705 

24708 

24711 

24714 

24717 

24720 

24723 

24726 

24729 

24732 

24735 

24738 
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Ne>:  t  df  l  :  ' 

NEXT  I 
RETURN 


Df _avg_f i red :  !  DF  Average  Rounds  Fired  at  Helicopter 

FOR  1=1  TO  20  !  Looping  on  DF  Type 

IF  D-f  _<nuni  _ptr  (Si  de_def  ,  I )  <=0  THEN 

FOR  J=1  TO  3  ! ZERO  OUT  ROUNDS  FIRED  BY  THIS  DIRECT  FIRER 

D-f  _avg_f  i  red  <  I ,  J  >  =0 
NEXT  J 
GOTO  Nxt_i _1 
END  IF 

FOR  J=1  TO  3  !  Looping  on  Helicopter  Type 

D-f  _avg_f  i  red  ( I ,  J  )  =0 

IF  Cell  (Side,  1,J)<=0  OR  Helo_mis  (Side.  J  )  <=0  THEN  GOTO  N>-.t._j_l 
!  Calculate  the  Average  Rounds  Fired  at  the  Helicopter 

D-f  _avg_f  i  red  ( I ,  J )  =Df  _pd_helo(I,J>  *Plos(Side,J)  *Df  _r  nds_eng  (Side  def  .1 
ptr (Si de_def , I ) ) 

N>;t_  j_l :  NEXT  J 
N>:  t  _i  _  1 :  NEXT  I 
RETURN 

i 


Df _act_f i red :  1  Calculate  Actual  Rounds  Fired  at  Hel o 

Tot_rnds_f i red=0 
Tot _wt_f i r ed=0 

FOR  1=1  TO  20  1  Looping  on  DF  Type 

FOR  J=1  TO  3  '  Looping  on  Helicopter  Tvpe 

1  If  Scouts  are  Lasing  for  AHl’s  then  they  can't  be  Detected 
IF  H_lase(Side>=3  AND  J=1  THEN 
Df _act_f i red ( I , J > =0 
ELSE 

Df _act_f i red ( I „ J ) =Df  _  avg_f i r ed ( I , J  >  *F’op  _  tstep  ( J  )  *Df  _f  i  r  e_d  i  st  (Side 
>*Target(Side_def,2, I) 

END  IF 

!  Calculate  Total  Rounds  Fired  per  Popup 

Tot_rnds_f  i  red=Tot_rnds  f  i  red-*-Df  _act_.f  i  r  ed  ( I .  J  ) 

NEXT  J 

IF  Side_def=l  THEN  Df _rnd_wt=B_ammo_wt ( I > 

IF  Si de~def =2  THEN  Df ~rnd~wt=R_ammo_wt ( I ) 

Tot_wt _f i red=Tot _wt _f i r ed+Tot _rnds_f  i  r ed * Df  r nd_wt  ‘IN  LBS 

Tot_rnds_f i r  ed=0 
NEXT  I 

I  Are  There  Enough  Rounds  Available"? 

IF  Tot _wt _f i r ed < Df _wt _avl < Si de_def >  THEN 
Df  j  _tot_rnds=0 

FOR  1=1  TO  20  1  Looping  on  DF  Type 

FOR  J=1  TO  3  1  Looping  on  Helicopter  Type 

1  NO— then  adjust  Each  Category  By  an  Equivalent  Percentage  of  the  Rounds 
1  Available  for  Firing 

Df _act _f i red ( I . J > = < Df _wt _avl (Si de _ def ) / Tot _ wt  f i red ) *Df  act  fired(T 
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Table  6-14.  Ground  combat  code  (concluded) 


,1 ) 

24741 

24744 

24747 

24750 

' 

24753 

l 

24756 

24759 

24762 

24765 

1 

* 

24768 

24771 

1 

24774 

* 

24777 1 

* 

24780 

24783 

24786 

24789 
v  > )  'Ad 

i 

24792 

24795 

24798 

24801 

24804 

_al v ) ) 

24807 

NEXT  J 
NEXT  I 

'  Adjust  Total  weight  Fired  (you've  -fired  all  you  have! 

T  ot _wt _f  i  r ed  =  Df  _wt_av]  (Sided ef  > 

END  IF 

!  Reset  the  ammo  weight  Available 

Df _wt _avl  (Side_def)=Df_wt_avl  (Side  def  )  -Tot  _wt.  f  1 red 
RETURN 


Hel o_psrv: 

FOR  J=1  TO  3 

Hel  o_psr v (Si de , J  >  = 1 
IF  Cell (Side, 2, J ) <  =0 
H_alv=MAX (Cel  1  (Side.  : 
FOR  1=1  TO  7 


1  Calculate  Prob.  of  Helicopter  Survival 
1  Looping  on  Helicopter  Type 
1  Set  initial  Prob.  of  Survival  to  1.0 
THEN  GOTO  No_psrv 

?..!>,  1.0)  1  HAS  TO  BE  '  =  1.0 

1  Looping  on  AD  Type 


Hel o_psrv (Si de, J ) =Hel o_psrv (Side, J) * ( (1- ( Ad_pk_hel o(Side_def, I , J ) /H_ 
_act_f i red ( I . J ) ) 

NEXT  I 

IF  Mast _ mnt < Si de . J ) =0  THEN 
IF  Mast _mn t ( Si de , J ) = 1  THEN 
FOR  1=1  TO  20 

Hel o_psr v < Si de, J ) =Hel o_ Dsr v (Si de.  J ) * (  ( 1  —  ( Df  ol-  helolSide  def  .  I  .  J  .  Mt ) 
'Df  _act _f i red  < I , J  > ) 

NEXT  I 


Mt= 1  'NON  MAST  MT  (FE) 

Mt  =2  ‘MAST  MNT  (HD) 

1  Looping  on  DF  Type 

psrv  (Side,  J)  *  (  (l-(Df_pl'_helo(Side_def.  I, 


24810  No_psr v: NEXT  J 
24813  RETURN 
24816  ! 

24819  Subraut_end:  1 
24822  SUBEND 
24825  ! 

24828  '********************************'*************************************** 
**********  *************  *******  **************  ********  ********  *********** 
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CHAPTER  7 


CHFMICAL  ATTRITION 


1.  PURPOSE. 

The  purpose  of  the  chemical  attrition  program  is  to  calculate  attrition  from 
chemical  munitions  based  on  agent  type,  firing  unit,  unit  type,  composition, 
and  mission-oriented  protective  posture  (MOPP)  status. 

2.  GENERAL. 

A.  The  chemical  attrition  program  (P5)  is  a  slightly  modified  version  of 
the  DAME  chemical  module  discussed  in  CAORA/TR-5/83,  Deep  Attack  Map 
Exercise  (DAME)  Game  Rules  and  Operation  Procedures.  The  attrition  process 
remains  the  same. 

B.  Attrition  of  Red  and  Blue  forces  due  to  chemical  warfare  is  played  in 
DIME  using  the  chemical  program.  However,  it  is  important  to  realize  that 
chemical  attrition  is  not  a  separate  process  but  must  be  integrated  into  the 
overall  loss  assessment  process  used  in  the  game.  The  chemical  munitions 
used  in  DIME  are  artillery  or  rocket  delivered  and  are  measured  in  battery 
(48-round)  or  battalion  (144-round)  missions.  The  program  allows  Red  and 
Blue  forces  to  deliver  either  persistent  or-  non-persistent  agents  against 
enemy  forces.  The  use  of  chemical  munitions  must  be  integrated  into  the 
artillery  fire  planning  process,  and  use  of  chemical  munitions  must  not 
exceed  prescribed  firing  rates,  range  requirements,  or  basic  loads. 
Chemical  missions  replace  conventional  missions  in  the  overall  firing 
profile  of  an  artillery  unit.  An  artillery  unit  may  not  exceed  its 
conventional  rate  of  fire  or  basic  load. 

3.  DATA  FLOW. 

A.  Input  data.  As  with  other  programs,  an  input  sheet  has  been 
developed  to  simplify  the  development  of  chemical  attrition  assessments. 
Figure  7-1  shows  an  example  of  the  form.  The  following  paragraphs  describe 
the  required  inputs. 

(1)  Type  of  mission.  Circle  the  type  of  mission  desired.  A  separate 
input  sheet  is  required  for  each  individual  mission  type.  For  example,  ii. 
the  gamer  desires  to  shoot  Red  battalion  missions  of  persistent  agent  and 
Blue  battery  missions  of  non-persistent  agent,  two  separate  input  sheets  are 
required.  Note  that  Red  battalion  mission  denotes  the  Red  attacker. 
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Figure  7-1.  Chemical  attrition  input  sheet 


(2)  Number  of  targets.  Enter  the  number  of  units  which  will  be 
targeted  by  a  particular  type  of  mission.  A  target  may  only  have  one  unit 
in  it.  A  maximum  of  10  targets  may  be  designated  for  a  mission  type.  If 
the  gainer  desires  more  than  10  targets,  an  additional  input  sheet  must  be 
used. 

(3)  Target  data  matrix.  Information  on  each  target  is  specified  by 
entering : 


(a)  The  unit  number  of  the  target  (1-400). 

(b)  The  fraction  of  the  unit  which  is  affected  by  the  mission.  For 
example,  if  only  half  a  unit  is  in  the  target  area,  then  .50  is  entered. 

(c)  The  number  of  missions  which  will  be  fired  against  the  target. 

(d)  The  MOPP  status  of  the  target  unit  (1  *  not  in  M0PP,  2  >  in 
MOPP).  Units  which  are  in  MOPP  do  not  sustain  casualties  from  chemical 
attack. 


B.  Output  data.  Output  consists  of  the  total  chemical  kills  for  each 
side  per  mission  and  total  chemical  kills  for  each  side  per  critical 
incident  (Cl). 

C.  Data  flows  are  depicted  in  Figure  7-2. 


4.  FILE  STRUCTURE. 

Data  files  supporting  the  chemical  program  are  held  external  to  the  program. 
These  files  consist  of  target  radius  files  and  target  profile  files. 

A.  A  target  radius  file  exists  for  both  defenders,  Blue  and  Red  (BLTEMP 
and  RDT0CP).  This  data  is  read  into  the  Trgt_rds(I, J)  array,  where: 

I  ■  unit  type  (1-10) 

J  »  major  mission 

1  *  attack 

2  -  defend 

3  ■  reserve 

4  ■  movement. 
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MAIN  DRIVER  INPUTS: 


Figure  7-2.  Chemical  data  flow. 
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The  appropriate  value  from  this  array,  for  the  unit  being  attacked,  is  used 
to  access  the  correct  target  profile  array. 


B.  A  target  profile  file  containing  casualty  fractions  exists  for  the 
combinations  of  the  following: 

(1)  Blue  or  Red  defender. 

(2)  Battery  or  Battalion. 

(3)  Persistent  or  non-persistent  chemical. 

(4)  Major  mission  (defend,  attack,  reserve,  move). 

The  appropriate  one-record  file  is  read  into  the  Def end_f  ile(*) , 
Attack_file(*) ,  Reserve__file(*) ,  and  Move_file(*)  arrays.  The  casualty 
fraction  for  each  element  type  within  a  unit  is  accessed  by  choosing  the 
appropriate  major  mission  file  for  the  defending  unit  (Defend_file  (I,J), 
Attack_file  (I,J),  Reserve_file  (I,J),  and  Move_file  (I,J)),  where: 

I  «  1-70  element  types. 

J  -  1-5,  target  radius  value  divided  by  100. 

C.  It  should  be  noted  that  no  data  currently  exists  for  the  chemical 
program.  Therefore,  volume  III  of  this  report  does  not  contain  information 
and  data  concerning  the  chemical  program. 


5.  ALGORITHMS. 

The  primary  algorithm/equation  used  to  assess  chemical  attrition  is: 

Kills  ■  Cslty_frct  *  N_elements  (Eq.  7-1) 

This  calculation  is  repeated  for  the  number  of  missions  using  the  new  number 
of  elements  (N_elements  -  N_elements  -  Kills)  for  each  repetition  where: 

Kills  -  number  of  victims. 

Cslty_frct  ■  casualty  fraction  to  be  assessed,  depends  on  target 

radius  and  profile. 

Njelements  *  number  of  elements  to  assess. 

The  logic  flow  of  the  chemical  program  is  depicted  in  Figure  7-3. 
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Figure  7-3.  Chemical  Logic  Flow 

6.  "UN1TFULE"  IMPACT. 

This  program  changes  several  elements  in  the  unit  status  file  ("UNITFILE") . 
Elements  1-70  are  suffer  attrition  if  chemical  losses  are  subtracted. 
Element  77  (MOPP  status)  is  changed  to  a  2  which  indicates  that  the  unit  is 
in  MOPP.  There  is  no  interaction  with  any  other  programs.  Control  is 
returned  to  the  DIME  driver  program. 
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7.  CODE. 

A.  The  chemical  program  code  is  discussed  in  the  following  paragraphs. 
The  functional  areas  discussed  are  represented  in  Figure  7-4. 

(1)  Initialization  of  variables  and  selection  from  the  menu  shown  in 
Figure  7-1  (gamer  input  sheet),  part  A,  are  the  first  occurrences  within  the 
program.  Appropriate  data  files  are  then  read. 

(2)  Following  other  inputs  (see  Figure  7-1),  the  MOPP  value  entered  is 
assessed.  If  the  MOPP  status  is  2,  the  unit  is  in  MOPP  and  cannot  be 
assessed.  If  the  value  1  is  entered  for  a  unit,  the  assessment  is 
continued.  It  should  be  noted  that  the  MOPP  value  input  for  each  unit  from 
the  menu  should  correspond  accordingly  with  the  unit's  MOPP  value  held 
within  the  "UNITFILE". 

(3)  If  assessment  is  to  continue,  another  check  must  be  made.  An 
attacker  may  not  inflict  attrition  on  a  friendly  unit  (on  the  same  side). 
If  the  unit  suffering  attrition  is  unfriendly,  the  appropriate  casualty 
fraction  is  multiplied  by  the  number  of  elements  to  get  the  number  of 
elements  killed. 

(4)  MOPP  status  is  changed  to  "in  MOPP"  for  those  units  assessed.  A 
summary  of  the  inputs  and  total  chemical  kills  for  the  current  critical 
incident  (Cl)  is  printed  if  the  choice  was  to  update  the  kills  to  the  units. 

B.  A  subroutine  variable  listing  appears  in  Table  7-1.  Table  7-2 
contains  a  listing  of  the  chemical  program  code. 


Enter  aenu 
selection 


Figure  7-4.  Chemical  functional  flow. 
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Table  7-1.  Chemical  subroutine  table. 
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Table  7-1.  Chemical  subroutine  table. 
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Table  7-2.  Chemical  code 


10  1 ! !  P5  -  CHEMICAL  ATTRITION 

20  !  REWRITTEN  FROM  DAME  CHEMICAL  MODULE  INTO  HP  BASIC 

30  !  EXPANDED  VERSION  —  JUNE  9,  1986  —  BY  OAO  CORP. 

40  OPTION  BASE  1 

50  DIM  N ( 150) , Trgt_rds < 10, 4) 

60  DIM  Chem_l osses  <70> , B1 _game_tot  (70)  , Rd_.game_tot (70) , Mi ssi on_tot (70) 

70  DIM  De-f  end_f  i  1  e  (70,  5)  ,  Attack,*  i  1  e  <70, 5) ,  Reserve.!  i  1  e  <70,  5)  ,  Move.f  i  1  e (70, 5 

80  DIM  Uni  t.nuro  <10>,Trgt_-frct.  (10),  Nm_mi  ssi  ons  ( 10)  ,  Mopp_status  (10) 

90  ! 

1 00  ! 

110  Main.program:  ! 

120  PRINT  USING  "<?,#" 

130  Disk**": HP91 34, 701 " 

140  Menu*=" REPEAT" 

150  WHILE  Menu** "REPEAT" 

160  GOSUB  Menu.selection 

170  SELECT  Option* 

180  CASE  "RUN" 

190  GOSUB  Read iles 

200  GOSUB  Input  ..output 

210  GOSUB  Attrition 

220  GOSUB  Accumulate 

230  CASE  "EXIT" 

240  PRINT 

250  PRINT 

260  PRINT 

270  PRINT  "EXIT  CHEMICAL  MODULE" 

280  Menu** "STOP" 

290  END  SELECT 

300  END  WHILE 

310  ! 

320  GOTO  Sub_end 
330  ! 

340  Menu.selection!  ! 

350  REPEAT 
360  PRINT 

370  PRINT  "CHEMICAL  MODULE  MENU — INPUT  FOLLOWING  OPTION:" 

3P0  PRINT  "  < 1 ) RED  BATTERY  OF  PERSISTENT" 

390  PRINT  "  (2) RED  BATTERY  OF  NON-PERSISTENT" 

400  PRINT  "  (3) RED  BATTALION  OF  PERSISTENT" 

410  PRINT  "  (4) RED  BATTALION  OF  NON-PERSISTENT" 

420  PRINT  "  (5) BLUE  BATTERY  OF  PERSISTENT" 

430  PRINT  "  (6) BLUE  BATTERY  OF  NON-PERSISTENT" 

440  PRINT  "  (7) BLUE  BATTALION  OF  PERSISTENT" 

450  PRINT  "  (8) BLUE  BATTALION  OF  NON-PERSISTENT" 

460  PRINT  "  (9) EX  IT  CHEMICAL  MODULE" 

470  INPUT  Menu,optn 

480  Opt ion** "RUN" 

490  SELECT  Menu_optn 

500  CASE  1 

510  Name.p 1 **“BTY" 

520  Np 1*=" BATTERY" 
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Table  7-2.  Chemical  code  (continued). 


530 

Name_p2*="PS" 

540 

Np 2*=" PERSISTENT ” 

550 

Name  p3*="BL" 

560 

Attacker*«"RED" 

570 

Victim*="BLUE" 

580 

CASE  2 

590 

Name_p  1  *=  “  BT  Y  " 

600 

Np 1 *™ " BATTERY " 

610 

Name  p2*="NP" 

620 

Np2*=" NON-PERSISTENT' 

630 

Name_p3*= “ BU " 

640 

Attacker*™ "RED" 

650 

Victim*™ "BLUE" 

660 

CASE  3 

670 

Name_pl*™"BN" 

680 

Npl*=" BATTALION" 

690 

Name_p2*™“PS" 

700 

Np2*= "PERSISTENT " 

710 

Name_p3*™"BL" 

720 

At  t  ac  k  er  *™  "  RED  “ 

730 

Vi ct i m*=“BLUE" 

740 

CASE  4 

750 

Name_p 1 *= " BN " 

760 

Npl*=" BATTALION" 

770 

Name  p2*="NP" 

780 

Np2*=" NON-PERS I STENT ' 

790 

Name_p3*= " BL " 

800 

Attacker*™ "RED" 

810 

Victim*™" BLUE " 

820 

CASE  5 

830 

Name_p 1 *="BTY" 

840 

Np 1*="BATTERV" 

850 

Name  p2*="PS" 

860 

Np2*=" PERSISTENT" 

870 

Name_p3*="RD" 

880 

Attacker*™ "BLUE" 

890 

Vi cti m*="RED" 

900 

CASE  6 

910 

Name_p 1 *™ " BT Y " 

920 

Npl*=" BATTERY" 

930 

Name_p2*“ “ NP “ 

940 

Np2*»" NON-PERSISTENT 

950 

Name_p3*™"RD" 

960 

Attacker*™ "BLUE” 

970 

Vi cti m*™ "RED" 

980 

CASE  7 

990 

Name_p 1*=" BN" 

1 000 

Np 1 *=" BATTAL I ON" 

ioio 

Name_p2*="PS" 

1020 

Np2*= " PERS I  STENT " 

1030 

Name_p3*="RD" 

1 040 

Attacker*™ "BLUE" 
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Table  7-2.  Chemical  code  (continued) 


1050 
1 060 
1070 
1080 
1 090 
1 100 
1 1 10 
1120 
1 130 
1140 
1 150 
1 160 
1  170 
1180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1 550 
1560 


Vi ct l mS="RED" 

CASE  8 

Name_pl*="BN" 

Np 1*=" BATTALION " 

Name_p2*="NP" 

Np  2*^ “ NON-PERS I STENT " 

Name_p3*="RD" 

At  t  ac  k  er  <= ” BLUE " 

Victim*="RED" 

CASE  9 

Opti on*="EX IT" 

CASE  ELSE 
PRINT 

PRINT  "**  ERROR:  INVALID  MENU  SELECTION 
WAIT  1 
END  SELECT 

UNTIL  Menu_optn>=l  AND  Menu_optn<=9 
RETURN 

Read_f i les:  ! 

Fi  1  e*=Name_p3*S<"TEMP" 

ASSIGN  ©Path  TO  File«&Disk* 

ENTER  «?Path ,  1 ;  Trgt_rds  ( *  > 

Name*=Na«ie_p  1  SS<Name_p2*8<Name_p3* 

F  i  1  e*=Name*-V  "  DFN  " 

ASSIGN  BPath  TO  File«S<Disk* 

ENTER  «?Path,  1 ;  De-f  end_t  i  1  e  ( *  > 

F  i  1  e*=Name*S< "  ATK  " 

ASSIGN  E-Path  TO  File*S<Disk* 

ENTER  E-Path,  1;  Attack _tile(») 

F  i  1  e$=Namet?< "  RS  " 

ASSIGN  E*Path  TO  File*S<Disk* 

ENTER  ij'Path ,  1 ;  Reser  ve_-f  i  1  e  <  * ) 

Fi  le«=Name*S<"MV" 

ASSIGN  *?Path  TO  Fi 1 e*&Di sk* 

ENTER  E-Path,  1  ;Move_-f  i  led) 

ASSIGN  ©Path  TO  * 

RETURN 


Input_autput:  ! 

i 

INPUT  "ENTER:  #  OF  UNITS  TO  ASSESS  (MAX  10) " , Num_uni ts 
CALL  Ck_var  ( '*#  OF  UNITS" . "TO" . Num_uni ts. 1 , 1 0) 

PRINT 

PRINT  "FOR  EACH  UNIT,  ENTER:  UNIT  #,  TGT  FRACTION,  #  MISSIONS. 
FOR  1=1  TO  Num_units 

PRINT  USING  F  i  o  1  ;  "  TGT  #  ",I 
Fiol : IMAGE  5A, 2D, 2X 

INPUT  Uni  t_num  <  I )  ,  Trgt_f ret  ( I  )  ,  Nm_mi  ssi  ons  ( I  >  .  Mopp_stati_ts  (  I ) 
CALL  Ck_var ("UNIT  "TO" , Uni t_num ( I) , 1,400) 

CALL  Ck_var ( " TGT  FRACTION" , "THROUGH" , Trgt_f ret  < I )  ,  O,  1 ) 

CALL  Ck_var<"#  MISSIONS" , "TO" , Nm_mi ssi ons ! I >, O, 10) 


MOPP  #" 
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Table  7-2 


Chemical  code  (continued). 


1570  CALL  Ck_var ( "MOPP  #" , "OR" , Mopp_st atus(I) . 1,2) 

1580  NEXT  I 
1 590 

1600  Ft: Re_enter*="CONT" 

1610  PRINT 

1620  PRINT  "THE  FOLLOWING  WERE  CHOSEN:  “ 

1630  GOSUB  Prnt 
1640  ! 

1 650  REPEAT 

1660  INPUT  "DO  YOU  WISH  TO  CHANGE  INPUTS?  ( Y/N> “ . Answ* 

1670  UNTIL  Answt="Y“  OR  Answ*="N" 

1680  ! 

1690  WHILE  Re_enteri« " CONT ” 

1700  SELECT  Answ* 

1710  CASE  "Y" 

1720  INPUT  "ENTER  TARGET  #“,Targ_id 

1730  CALL  Ck_var <" TARGET  #" , "TO" , Targ_id , 1 . Num  uni ts> 

1740  INPUT  " ENTER i  UNIT  #,  TGT  FRACTION,  #  MISSIONS,  MOPP  , Un l t _num < Tar c 

_i d) , Trgt_f ret (Targ_i d ) , Nm_mi ssions  <Targ_i d  > , Mopp_status (Targ_i  d ) 

1750  CALL  Ck_var  < "UNIT  , "TO" , Uni t _num < Tar g_i d ) . 1 , 400) 

1760  CALL  Ck_var  (  "TGT  FRACTION"  ,  "THROUGH"  ,  Trgt_-f  ret  (Targ_i  d ),  0,  1 ) 

1770  CALL  Ck_var<"#  MISSIONS" , "TO" , Nm  missions (Tara  id), 0,10) 

1780  CALL  Ck_var  (  "MOPP  #"  ,  "OR"  ,  Mopp_statns  (Targ  id)’7l-2) 

1790  ! 

1800  REPEAT 

1810  INPUT  "ARE  CHANGES  COMPLETE?  (Y/N)",An* 

1820  UNTIL  AnS="Y"  OR  An*="N" 

1830  ! 

1840  SELECT  An* 

1850  CASE  "Y" 

1860  Re_enter*="STOP“ 

1870  CASE~"N" 

1880  Re_enter*="CONT" 

1890  END  SELECT 

1 900  ! 

1910  CASE  "N" 

1920  GOTO  Ret 

1930  END  SELECT 

1940  END  WHILE 
1 950  GOTO  Pt 
1960  Ret:  ' 

1970  RETURN 
1980  ! 

1990  Attrition:  ! 

2000  FOR  1=1  TO  Nun  units 
2010  'INITIALIZE  LOSSES 

2020  FOR  L=1  TO  70 

2030  Chem_l osses (L) =0 

2040  NEXT  L 

2050  'CHECK  MOPP  STATUS 

2060  IF  Mopp  status(I)=2  THEN 

2070  PR  I  NT ~ 
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Table  7-2 


Chemical  code  (continued) 


2080  PRINT  "UNIT  " ; Uni t_num ( I ) ; "  IN  MOPP.  CANNOT  BE  ASSESSED" 

2090  ELSE 

2100  GOSUB  Assess 

2110  END  IF 

2120  NEXT  I 

2130  RETURN 

2140  ! 

2150  Assess i  ! 

2160  ASSIGN  ©Path  TO  "UNITFILE: HP9134, 701 " 

2170  ENTER  ©Path, Uni t_num < I ) ;N<*) 

2180  ! 

2190  ! CHECK  COLOR  OF  UNIT 
2200  Force_type« I NT ( N ( 78  > ) 

2210  SELECT  Force_type 

2220  CASE  1 

2230  For ce*“" BLUE " 

2240  CASE  2 

2250  Force*«“RED" 

2260  END  SELECT 

2270  IF  Force**Attacker$  THEN 

2280  PRINT 

2290  PRINT  "CANNOT  ASSESS  FRIENDLY  UNIT  "  :  Uni  t.  _num  ( I  > 

2300  ELSE 

2310  GOSUB  Chem_ki 1 1 

2320  !  CHANGE  MOPP  STATUS  IN  UNITFILE 

2330  N  <  77 ) =2 

2340  GOSUB  Prnt  losses 

2350  END  IF 

2360  ! 

2370  ! 

2380  OUTPUT  ©Path , Uni t_num < I ) s N < * > 

2390  ASSIGN  ©Path  TO  * 

2400  ! 

2410  1 

2420  RETURN 
2430  ! 

2440  Chem_kill:  ! 

2450  *  UNPACK  TO  GET  UNIT  TYPE 

2460  Unit_type=(N(78)-Force_type>  *10+1 

2470  Trgt_radi us=Trgt  rds (Un i t _type, N < 75) ) / 1 00 

2480  ! 

2490  FOR  J*1  TO  70 
2500  SELECT  N<75) 

2510  CASE  1 

2520  Csl ty  4 ret =At tack _f i le(J„Trgt_radius> 

2530  CASE  2 

2540  Csl ty_f rct=Def end_f ile<J,Trgt_radius) 

2550  CASE  3 

2560  Cslty  <rct=Reserve  4 i 1 e ( J . Trgt_radius) 

2570  CASE  4 

2580  Csl ty_4 rct=Move_4 i le(J,Trgt_radius) 

2590  END  SELECT 
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Table  7-2 


Chemical  code  (continued) 


2600  • 

2610  Sum_kill=0 

2620  N_el  ements=N  ( J  >  *Trgt_t ret  <  1 ) 

2630  FOR  K=1  TO  Nm_mi ssi ons < I ) 

2640  Sum_ki  1 1  =Sum_ki  1 1  +Csl  ty_f ret  *N_el  ements 

2650  N_el  ements=N_elements-Sum_l;i  1 1 

2660  IF  N_elements<=0  THEN 

2670  N_el ements=0 

2680  END  IF 

2690  NEXT  K 

2700  ! 

2710  Chem_losses < J ) =Sum  kill 

2720  NEXT  J 
2730  RETURN 
2740  ! 

2750  Prnt:  ! 

2760  PRINT 

2770  PRINT  "TOT  #  UNIT  #  TGT  FRACTION  #  MISSIONS  MOP 

P  #“ 

2780  FOR  1=1  TO  Num_units 

2790  PRINT  USING  Fi o2: I . Uni t_num < I > . Trgt  f r ct ( I ) , Nm_mi ssi ons ( I )  .  Mopp  status ( I 
) 

2800  Fio2: IMAGE  3X ,  2D, 12X . 3D,  1 1 X .  D. 2D. 16X , 2D, 16X . D 
2810  NEXT  I 
2820  RETURN 
2830  ! 

2840  Prnt  lasses:  1 
2850  PRINT 

2860  PRINT  "CHEMICAL  LOSSES  TO  UNIT  "jUnit  num(I) 

2870  PRINT 

2880  PRINT  "  ELEMENT  4  LOSSES" 

2890  FOR  M= 1  TO  70 

2900  FRINT  USING  Fpl 1 ; M, Chem_l  osses <M> 

2910  NEXT  M 

2920  Fpl 1: IMAGE  15X,3D,  7X.4D.2D 
2930  REPEAT 

2940  INPUT  "DO  YOU  WISH  TO  SUBTRACT  LOSSES?  (Y/N)".An* 

2950  UNTIL  An*="Y"  OR  An*="N" 

2960  IF  AnS="Y"  THEN 
2970  FOR  M=1  TO  70 

2980  Mi ssi an_tat  <M) =Mi ssi on_tot <M) +Chem_l osses  <M) 

2990  N (M) =N (M) —Chem_l osses (M> 

3000  NEXT  M 

3010  END  IF 
3020  RETURN 
3030  1 

3040  Accumulate:  ! 

3050  PRINTER  IS  702 
3060  PRINT 
3070  PRINT 

3080  PRINT  "THE  FOLLOWING  PARAMETERS  WERE  CHOSEN  FOR  MISSION  " : Attacker*: "  " : Np 
IS:"  OF  " : Np2S 
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Table  7-2.  Chemical  code  (continued) 


3090  GOSUB  Prnt 
3100  PRINT 
3110  PRINT 

3120  PRINT  "  ": Victim*;”  CHEMICAL  VICTIMS  FOR  THIS  MISSION” 

3130  PRINT  ”  ELEMENT  «  VICTIMS" 

3140  FOR  1  =  1  TO  70 

3150  PRINT  USING  Fa  1 ; I , Mi ssi on_tot U > 

3160  NEXT  I 

3170  Fals IMAGE  25X . 3D, 1 1 X , 4D . 2D 
3180  ! 

3190  ASSIGN  ©Blvctm  TO  “BLCHMVCTM" 

3200  ASSIGN  PRdvctm  TO  "RDCHMVCTM" 

3210  ENTER  PB1 vetm, 1 ; B1 _game_tot < *> 

3220  ENTER  PRdvctm, 1 ; Rd  game_tot(*) 

3230  ! 

3240  IF  Name_p3*= " BL "  THEN 
3250  FOR  I*=l  TO  70 

3260  B1 _game_tot  < I > =81 _game_tot  < I ) +Mi ssi on_tot ( I > 

3270  NEXT  I 

3280  END  IF 

3290  IF  Name_p3*="RD"  THEN 
3300  FOR  1=1  TO  70 

3310  Rd_game_tot  < I ) =Rd_game_tot ( I ) +Mi ssi on_tot ( I ) 

3320  NEXT  I 

3330  END  IF 

3340  OUTPUT  l?Bl  vetm,  1 ;  81  _game_tOt  <  *  > 

3350  OUTPUT  PRdvctm. 1 ; Rd_game_tot ( * ) 

3360  ! 

3370  PRINT 
3380  PRINT 

3390  PRINT  "TOTAL  BLUE  CHEMICAL  VICTIMS  TOTAL  RED  CHEMICAL  VI 

TIMS" 

3400  PRINT  "  ELEMENT  *  VICTIMS  ELEMENT  #  VICTI 

S" 

3410  FOR  1=1  TO  70 

3420  PRINT  USING  Fa2;l,Bl  game  tot < I ) , I . Rd_game_tot ( I ) 

3430  NEXT  I 

3440  Fa2: IMAGE  9X,2D,  5X , 4D. 2D, 31 X . 2D,  4X.4D.2D 
3450  PRINTER  IS  1 
3460  RETURN 
3470  1 

3480  Sub_end:  ! 

3490  LOAD  "DIME: HP9 1 34, 701 " 

3500  END 
3510  ! 

3520  !*********************************************************************** 

3530  ! 

3540  SUB  Ck_var  <  Var_name*,  T*,  Var  i  abl  e.  Mi  n_val  ue,  Ma>:  _val  ue) 

3550  SELECT  T* 

3560  CASS  "THROUGH" 

3570  WHILE  Var  i  abl e<Mi  n_val  ue  OR  Var  i  ab  1  e>Ma>:  _val  ue 

3580  GOSUB  Print  error 
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Chemical  code  (concluded) 


3590  END  WHILE 

3600  CASE  "OR" 

3610  GOTO  Case  to 

3620  CASE  "TO" 

3630  Case_to:FOR  M*Min_value  TO  Ma>:_value 

3640  IF  Variable-M  THEN  GOTO  End_select 

3650  NEXT  M 

3660  GOSUB  Print_error 

3670  GOTO  Case_to 

3680  End_selects ! 

3690  END  SELECT 

3700  GOTO  Rtrn 

3710  Print_error:  ! 

3720  PRINT 

3730  PRINT  "**  ERROR:  “ : Var i abl e: "  IS  INVALID  FOR  ":Var_name« 
3740  PRINT  “INPUT:  " j Mi n_val ue; "  ";T*;“  "  ;  Ma>:_val  ue:  "  ONLY" 

3750  INPUT  Variable 

3760  RETURN 

3770  Rtrn: ! 

3780  SUBEND 
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CHAPTER  8 


CQMAND  AMD  CONTROL 

1.  PURPOSE. 

The  purpose  of  the  DIME  command  and  control  program  (P10)  is  to  calculate 
the  reaction  time  for  both  the  commander  and  staff  to  begin  a  new  mission. 

2.  GENERAL. 

The  command  and  control  program  calculates  the  total  reaction  time  needed  to 
react  to  a  change  in  mission. 

A.  The  command  and  control  program  uses  an  interactive  menu/response 
format  to  access  the  appropriate  delay  times  stored  in  auxiliary  data  files. 

B.  Combining  the  responses  from  the  gamer  with  the  appropriate  delay 
times,  the  program  calculates  the  total  reaction  time  for  the  change  in 
mission. 

C.  This  program  develops  the  command  and  control  table  look-up  procedure 
from  the  Deep  Attack  Map  Exercise  (DAME)  model  into  a  computerized  process. 


3.  DATA  FLOW. 

A.  The  data  flow  consists  of  a  menu/response  format  in  which  the  user 
answers  questions  concerning: 

(1)  Side:  1  »  Blue;  2  -  Red. 

(2)  Mission:  1  -  Defend 

2  ■  Move 

3  ■  Reserve 

4  *  Attack. 

(3)  Transmission  of  commands: 

(a)  Issuing  echelon:  0  ■  Battalion/regiment 

1  »  Brigade/division 

2  ■  Division  (Blue  only) 

3  ■  Corps/army 

4  ■  Army/front. 

(b)  Receiving  1  =  Brigade/division 

echelon:  2  ■  Division  (Blue  only) 

3  «  Corps/army. 
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(4)  Weather  conditions: 


1  -  Moderate 

2  =  Severe 

3  *■  Good. 


(5)  Combat  condition: 


(6)  Day/night  condition: 


1  -  Conventional 

2  -  Integrated  (chemical/nuclear) 

3  ■  Conventional  and  integrated. 

1  «  Night  (1800  to  0600  hours) 

2  =  Day. 


B.  Using  the  responses  input  by  the  user,  the  program  accesses  the 
appropriate  delay  time  array. 

C.  Figure  8-1  indicates  the  data  flow  with  the  appropriate  inputs  and 
outputs . 


4.  FILE  STRUCTURE. 

The  command  and  control  program  data  consists  solely  of  eight  auxiliary  data 
files  which  contain  the  delay  time  in  minutes  under  various  combat  and 
environmental  conditions. 

A.  Combat  related  delay  and  effect  arrays  include:  Conv_delay(*) , 
Integ_delay(*) ,  Attritejeff (*) ,  Inter_eff (*) ,  and  Deep_atk_eff(*). 

(1)  Conv_delay(M) .  A  40-dimensioned  array  containing  the  conventional 
delay  time  in  minutes.  This  delay  time  is  dependent  upon  the  side,  mission 
and  issuing  echelon.  For  means  of  simplicity,  the  array  Conv_delay(M)  is 
equivalent  in  structure  to  C_d  (I,J,K)  where: 

I  ■  1  to  2  sides 

J  -  1  to  4  missions 

I  ■  1  to  5  issuing  echelon. 

Note:  K  ■  3  is  vacant  for  Red. 

(2)  Integ  delay (M).  A  40-dimensioned  array  containing  the  integrated 
delay  time  in  minutes.  Indexes  are  same  as  above. 

(3)  Attrite_ef f (N) .  An  eight-dimensioned  array  containing  the 
attrition  delay  time  in  minutes.  This  delay  time  is  dependent  upon  the  side 
and  the  mission  for  a  Blue  battalion  or  a  Red  regiment.  For  means  of 
simplicity,  the  array  Attrite_eff (N)  is  equivalent  in  structure  to  A_e  (I,J) 
where: 


I  -  1  to  2  sides 

J  -  1  to  4  missions  for  a  Blue  battalion  or  a  regiment  or  a  Red 
regiment . 
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Jfe. 


Figure  8-1.  Command  and  control  data  flow. 


(4)  Inter_ef  f  (M) .  A  40-dimensional  array  containing  the  air 
interdiction  delay  effects  in  minutes.  This  delay  is  dependent  upon  the 
side,  mission,  and  issuing  echelon.  Refer  to  (1)  above  for  indices. 

(5)  Deep_atk_eff(P) .  A  10-dimensioned  array  containing  the  deep 
attack  effects  (in  minutes)  for  a  unit  with  an  attacking  mission.  For  means 
of  simplicity,  the  array  Deep_atk_eff (P)  is  equivalent  in  structure  to 
D_e(I,K)  where: 


I  ■  1  to  2  sides 
K  *  1  to  5  issuing  echelon. 

Note:  K  *  3  is  vacant  for  Red. 


B.  Environmental  effect  arrays  include:  Mod_weather_ef  f  ( * )  , 
Sev_weather_eff(*)  and  Night_eff (*) . 

(1)  Mod_weather_eff(M) .  A  40-dimensioned  array  containing  the  delay 
time,  in  minutes,  due  to  moderate  weather  conditions.  Refer  to  A(l)  for 
index  descriptions. 

(2)  Sev_weather_eff(M).  A  40-dimensioned  array  containing  the  delay 
time,  in  minutes,  due  to  severe  weather  conditions.  Refer  to  A(l)  for  index 
descriptions. 

(3)  Night_eff(M).  A  40-dimensioned  array  containing  the  delay  time, 
in  minutes,  due  to  nighttime  decreases  in  visibility.  Refer  to  A(l)  for 
index  descriptions. 


5.  ALGORITHMS. 

A.  The  command  and  control  program  uses  an  interactive  menu/response 
format  to  access  the  delay  times  associated  with  battle  mode,  weather 
effects,  visibility,  attrition,  interdiction  by  air,  and  deep  attack. 


B.  Once  the  appropriate  delay  times  have  been  read  into  the  data  arrays, 
the  program  uses  a  simple  formula  to  calculate  the  total  reaction  time 
needed  to  change  from  an  existing  mission  to  a  new  mission.  Equation  8-1 
shows  this  formula. 


T 


he 

E  (Bi  +  Wi  +  vi  +  Di 

i-le 


(Ij  +  A) 


/60 


(Eq.  8-1) 


where : 


T  ■  total  time  to  react  to  mission  change  (hours), 
he  ■  number  corresponding  to  the  highest  echelon  involved. 
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le  ■  number  corresponding  to  the  lowest  echelon  involved. 

%  ■  delay  (minutes)  due  to  battle  mode  for  each  echelon  involved 

(i). 

■  delay  (minutes)  due  to  weather  conditions  for  each  echelon 
involved  (i). 

-  delay  (minutes)  due  to  day /night  for  each  echelon  involved 
(i). 

>  delay  (minutes)  if  unit  mission  is  deep  attack  for  each 
echelon  involved  (i). 
ie  >  number  of  interdicted  echelons. 

Ij  a  delay  (minutes)  due  to  air  interdiction  for  the  jth  echelon. 

A  ■  delay  (minutes)  due  to  attrition  suffered  by  the  lowest 
echelon  (Blue  battalion/Red  regiment). 

C.  Figure  8-2  contains  a  generalized  flow  of  the  command  and  control 
program. 


6.  "UWITFILE"  IMPACT. 

The  command  and  control  program  is  a  stand-alone  program,  which  does  not 
impact  directly  with  the  DIME  unit  status  file  ("UNITFILE") . 


7.  CODE. 

A.  The  command  and  control  program  consists  of  15  subroutines  performing 
three  major  functions:  game  initialization,  data  entry,  and  calculation  of 
total  time  required  to  react  to  a  mission  change. 

(1)  Game  initialization.  The  game  initialization  routines  (Start, 
Defend,  Relocate,  Reserve,  and  Attack)  establish  the  initial  pointers  and 
data  parameters  needed  to  access  the  appropriate  delay  time  arrays. 

(2)  Data  entry.  The  data  entry  routines  (Conven,  Integ,  Both, 
Moderate,  Severe,  Night,  Attrite,  Interdict,  Deepjatk)  use  the  pointers  and 
parameters  established  by  the  game  initialization  routes  to  access  the 
appropriate  delay  time  arrays. 

(3)  Total  time  calculation.  The  total  time  is  a  cumulative  value 
resulting  from  totaling  all  the  delay  times  read  into  the  program  by  the 
data  entry  routines.  The  calculation  does  not  occur  in  any  specific  routine 
but  is  calculated  throughout  all  the  data  entry  routines. 

B.  Table  8-1  contains  a  description  of  the  primary  variables  associated 
with  the  subroutines  in  the  command  and  control  program.  Table  8-2  contains 
a  listing  of  the  command  and  control  code. 
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Figure  8-2.  Command  and  control  logic  flow 
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Table  8-2 


Command  and  control  code 


no  REM— "Pi 0"  IS  THE  COMMAND  8<  CONTROL  DELAY  TIME  CALCULATOR  PROGRAM  FOR  DIM1 

20  ! CODED  BY  MAJ  A.  RESNICK,  FDAD,  SAD,  CAORA,  AVN  552-5431/3575. 

30  .'THE  PROGRAM  WAS  LAST  CHANGED  ON  23  MAY  1983. 

40  ! 

50  ! 

60  ! 

70  OPTION  BASE  1 

80  DIM  Conv_del ay (40) , Integ_del ay (40) , Mod _ we at her _ef  f (40) , Sev_weather _e+f  ( 40 

,  Ni  ght_ef  f  (40)  ,  Inter  _e-f  f  (40)  ,  Deep_atk_eff  (10)  ,Datal  i  ne  (  13)  ,Attri  te_ef f  (8) 

90  ! 

100  Datdr i ve*=" : HF91 21 , 700,0" 

110  Starts  PRINT  USING  “8,#" 

120  PRINT  "THIS  PROGRAM  CALCULATES  THE  STAFF  t<  COMMANDER  REACTION  TIME" 

130  INPUT  "WHICH  SIDE?  (1=BLUE  2=RED)",Side 

140  IF  SideOl  AND  Si  de<  >2  THEN  Start 

150  IF  Si de= 1  THEN  Star t_poi nt=l 

160  IF  Side=2  THEN  Start_pai nt=21 

170  Delay=0 

ISO  PRINT  USING  "8" 

190  PRINT  "WHAT  IS  THE  ASSIGNED  MISSION?" 

200  PRINT  "  1  =  DEFEND" 

210  PRINT  "  2  =  MOVE" 

220  PRINT  "  3  =  RESERVE" 

230  PRINT  "  4  =  ATTACK" 

240  INPUT  “ENTER  ASSIGNED  MISSION: ",  Mi ssi on 

250  IF  Mission  >1  AND  Mission-"  '>2  AND  Mission<>3  AND  Mission  >4  THEN  190 
260  ON  Mission  GOTO  Def  end  ,  Rel  ocate,  Reserve ,  Attac  k 
270  De-f  end  :  F'oi  n  ter  =3t  ar  t  _poi  n  t 
280  GOTO  340 

290  Rel  ocate:  F'oi  n  ter  =St  art  _poi  nt  +5 
300  GOTO  340 

310  Reserve: Foi nter=Star t_poi nt+10 
320  '  GOTO  340 

330  At tack:Po inter =Start_point+15 
340  PRINT  USING  "@" 

350  PRINT  "WHAT  IS  HIGHEST  ECHELON  ISSUING  ORDER?" 

360  PRINT  "0  =  BATTALION/REGIMENT  (BLUE/RED)" 

370  PRINT  "1  =  BRIGADE/DIVISION" 

380  PRINT  "2  =  DIVISION  (BLUE  ONLY)” 

390  PRINT  "3  =  CORPS/ ARMY" 

400  PRINT  "4  =  ARMY/FRONT" 

410  INPUT  "ENTER  HIGHEST  ECHELON: ",  Hi _echel on 

420  IF  Hi _echel or/ >0  AND  Hi _echel on( >1  AND  Hi_echelon  >2  AND  Hi _echel on  I  > _■  AMI 
Hi _echel on< >4  THEN  350 
430  PRINT  USING  "8" 

440  PRINT  "IS  THE  RECEIVING  ECHELON  A  BATTALION/REGIMENT'"" 

450  PRINT  "Y  =  YES,  N  =  NO" 

460  INPUT  "ENTER  RESPONSE: ", Anwer S 

470  IF  Anwer*<>"Y"  AND  Anwer$<>”N"  THEN  440 

430  IF  Anwer$="N"  THEN 

490  PRINT  USING  "8" 
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Table  8-2.  Command  and  control  code  (continued) 


500  PRINT  "WHAT  LEVEL  IS  RECEIVING  THE  ORDER?" 

510  PRINT  " 1  =  BRIGADE/DIVISION" 

520  PRINT  "2  =  DIVISION  (BLUE  ONLY)" 

530  FRINT  "3  =  CORPS/ARMY" 

540  INPUT  “ENTER  RECEIVING  ECHELON: ", Lo_echel on 

550  IF  Lo  echelonOl  AND  La_echel  on 02  AND  Lo_echel  on<  >3 

560  ELSE 

570  Lo_echelon=0 

580  END  IF 
590  f 

600  ASSIGN  i?Cc_-f  i  I  e  TO  "CMD_CNTRL"S<Datdr  i  ve* 

610  ASSIGN  @Cc~f  i  1  e2  TO  "CClEFF"S<Datdr  i  ve* 

620  ENTER  i?Cc_Fi 1 e2, 1 ; Datal i ne ( *> 

630  ASSIGN  l?Cc_file2  TO  * 

640  FOR  1=1  TO  8 

650  Attr  i  te_et-f  ( I )  =Dat  al  i  ne  ( I ) 

660  NEXT  I 

670  FOR  1=1  TO  10 

680  Deep_atk_e-f -f  <  I )  =Datal  »ne(I  +3) 

690  NEXT  I 

700  ! 

710  FRINT  USING  "I?" 

720  PRINT  “WHAT  IS  BATTLEFIELD  MODE'7" 

730  FRINT  "1  CONVENTIONAL  2=  INTEGRA  TED  3=B0TH” 

740  INPUT  "ENTER  MODE:", Mode 

750  IF  ModeOl  AND  Mode<>2  AND  Mode<  >3  THEN  720 
760  ON  Mode  GOSUB  Conven , Integ , Both 
770  FRINT  USING  "i?“ 

780  PRINT  “WHAT  ARE  WEATHER  CONDITIONS?" 

790  PRINT  " 1=M0DERATE  2=3EVERE  3=G00D" 

800  INPUT  "ENTER  WEATHER  CONDITIONS: ",  Weather 

810  IF  Weather <  > 1  AND  Weather < >2  AND  Weather 03  THEN  780 

820  ON  Weather  GOSUB  Moderate. Severe. Good 

830  PRINT  USING  "©" 

840  FRINT  "IS  IT  DAY  OR  NIGHT?" 

850  FRINT  " 1 =N I GHT  (2100  TO  0600  HRS)  2=DAY" 

860  INPUT  "PHASE  OF  DAY:", Phase 
870  IF  PhaseOl  AND  Phase!  >2  THEN  840 
880  IF  Phase® 1  THEN  GOSUB  Night 
890  PRINT  USING  "I?" 

900  PRINT  "HAS  THIS  BATTALION/REGIMENT  BEEN  ATTRI TED?" 

910  FRINT  "Y  =  YES  N  =  NO" 

920  INPUT  "ENTER  RESPONSE: ",  Response* 

930  IF  Response*-'!  >"Y"  AND  Response*'-!  >"N"  THEN  900 
940  IF  Response*=" Y"  THEN  GOSUB  Attrite 
950  PRINT  USING  ">*" 

960  PRINT  "HAS  ANY  ECHELON  BEEN  INTERDICTED  BY  A I R? " 

970  PRINT  "Y  =  YES  ^  N  =  NO" 

980  INPUT  "ENTER  ANSWER Answer * 

990  IF  Answer S< >"Y"  AND  Answer *\ >"N"  THEM  960 
1000  IF  Answer*="Y"  THEN  GOSUB  Interdict 
1010  PRINT  USING  -®" 


THEN  500 
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Table  8-2.  Command  and  control  code  (continued) 


1020  PRINT  "IS  THIS  A  DEEP  ATTACK?" 

1030  PRINT  "Y  =  YES  N  =  NO" 

1040  INPUT  "ENTER  RESPONSE: ",  An sen* 

1050  IF  Anser *<  >•"  Y"  AND  Anser$0"N"  THEN  1020 
1060  IF  Anser*=“Y"  THEN  GOSUB  Deep_atk 
1070  Hour s=Del ay/60. 

1080  PRINT  USING  "I?" 

1090  PRINT  "TIME  DELAY  IMPOSED  FOR  COMMAND  AND" 

1100  PRINT  "CONTROL  PROCESSING  IS  ",  Hours, "HOURS" 

1110  PRINT  USING  "/////" 

1120  PRINT  "PRESS  CONT  TO  PROCEED" 

1130  PAUSE 

1140  PRINT  USING  "li‘“ 

1150  PRINT  “IS  THERE  ANY  FURTHER  PROCESSING  REQUIRED?" 

1160  PRINT  "Y  =  YES  N  =  NO" 

1170  INPUT  "ENTER  RESPONSE Respond* 

1180  IF  Respond*-;  >"Y"  AND  Respond*/ >"N"  THEN  1150 
1190  IF  Respond*="Y"  THEN  Start 
1200  !  LOAD  "DIME" 

1210  GOTO  Halt 
1220  ! 

1230  ' 

1240  ! 

1250  Conven:  ! CONVENT  I ONAL  MODE 
1260  ENTER  S'Cc_-f  i  1  e,  1 :  Conv_del  ay  ( *  > 

1270  FOR  I =Poi nter +Lo_echel on  TO  Poi nter+Hi _echel on 
1 280  Del  av=Del  ay+Con v_del ay ( I ) 

1290  NEXT  l' 

1 300  RETURN 
1310  ! 

1320  Integ:  ! INTEGRATED  MODE 

1330  ENTER  i?Cc_-f  i  1  e,  2;  Integ_del  ay  <  *  > 

1340  FOR  I=Foi nter+Lo_echel on  TO  Foi nter +Hi _echel on 
1  350  Del  ay=Del  ay-*- In  teg_del  ay  ( I ) 

1360  NEXT  I 
1 370  RETURN 
1 380  ! 

1390  Both:  ! COMBINED  CONVENTIONAL  ?<  INTEGRATED 

1400  PRINT  USING 

1410  PRINT  "FOR  COMBINED  CONVENTIONAL  S<  INTEGRATED  MODE:" 

1420  PRINT  "WHAT  IS  LOWEST  INTEGRATED  ECHELON?" 

1430  PRINT  "0  =  BAT TALI ON /REGIMENT" 

1440  FRINT  "1  =  BRIGADE/DIVISION" 

1450  FRINT  "2  =  DIVISION  (BLUE  ONLY)" 

1460  PRINT  "3  =  CORPS /ARMY" 

1470  FRINT  "4  =  ARMY/FRONT" 

1480  INPUT  "ENTER  LOWEST  INTEGRATED  ECHELON: ", Lo_i nteg_ech 

1490  IF  Lo_i nteg_ech< >0  AND  Lo_i nteg_ech< >1  AND  Lo_i nteg_ech C >2  AND  Lo_i 

h  03  AND  Lo_i  nteg_ech<  >4  THEN  1420 

1500  !  COMPUTES  DELAY  TIME  FOR  CONVEN  !,  INTEG  SEF'ARETELY 

1510  Hi _echel on_tem=Hi _echel on 
1520  Hi_echelon=Lo_integ_ech-l 


ntefl  e 
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Table  8-2.  Command  and  control  code  (continued) 


1330  GOSUB  Conven 
1540  Hi _echel on=Hi _echel on_tem 
1550  Lo_echel on_tem=Lo_echel on 
1560  Lo_echelon=Lo_integ_ech 
1570  GOSUB  Integ 
1580  Lo_echelon=Lo_echelon_tem 
1390  RETURN 
1600  ! 

1610  Moderate: (MODERATE  WEATHER  EFFECTS 
1620  ENTER  l?Cc_-f  i  1  e,  3;  Mod_weather  _ef  f  ( *  ) 

1630  FOR  J=Poi  nter+Lo_echel  on  TO  F'oi  nter  +Hi  _echel  on 
1640  Del  ay=Del  ay+Mod_weather _e-f  f  (J) 

1650  NEXT  J 
1 660  RETURN 
1670  ! 

1630  Severe:  (SEVERE  WEATHER  EFFECTS 
1690  ENTER  @Cc_f l le, 4;Sev_weather_ef f (*) 

1700  FOR  J=Poi nter+Lo_echel on  TO  Poi nter +Hi _echel on 
1710  Del  ay=Del  ay+Sev_weather  _ef  -f  (J) 

1720  NEXT  J 
1 730  RETURN 
1 740  ! 

1750  Good:  I  THERE  ARE  NO  EFFECTS  FOR  GOOD  WEATHER 

1760  RETURN 
1770  ! 

1780  Night:  ! 

1790  ENTER  liCc_-f  i  1  e.  5:  Ni  ght_et t  ( * ) 

1800  FOR  K=Poi nter+Lo_echel on  TO  Pointer+Hi _echel on 
1810  Del  ay=Del  ay+Ni  ght_e-f  F  <K) 

1320  NEXT  K 
1830  RETURN 
1840  ! 

1350  Attrite:  ! 

1360  FRINT  USING  n©“ 

1370  INPUT  "ENTER  PERCENT  OF  UNIT  ATTRITED  (AS  2-DIGIT  NO. >:", Percent 

1380  Amount=Per cent / 10 

1890  IF  Si de=2  THEN 

1900  Factor=Mi ssi on+4 

1910  ELSE 

1920  Factor=Mi ssi on 

1930  END  IF 

1940  IF  Lo_echelon=0  THEN 

1950  Attrition=Attrite_eff (Factor) * Amount 

1960  ELSE 

1970  Attrition=0 

1980  END  IF 

1990  Del ay=Del ay+At tr i t i on 
2000  RETURN 
20 10  ! 

2020  Interdict: (ADDS  TIME  FOR  INTERDICTED  MODES 
2030  ENTER  i>'Cc_f  i  1  e ,  6;  I  n  t  er  _e-f -f  (  *  ) 

2040  PRINT  USING  "S'" 
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Table  8-2 


Command  and  control  code  (concluded) 


2050  Again: PRINT  "WHICH  ECHELON  IS  INTERDICTED?" 

2060  PRINT  “0  =  BATTALION/REGIMENT" 

2070  PRINT  "1  =  BRIGADE/DI VI SI ON” 

2080  PRINT  "2  =  DIVISION  (BLUE  ONLY)" 

2090  PRINT  "3  =  CORPS/ ARMY" 

2100  PRINT  “4  =  ARMY/FRONT" 

2110  INPUT  "ENTER  INTERDICTED  ECHELON: ", lnter_ech 

2120  IF  Inter _ech< >0  AND  Inter _ech< >1  AND  Inter_ech<>2  AND  Inter_eeh<>3  AND  Int 
er_ech<>4  THEN  2050 

2130  Del ay=Del ay+Inter _e+ + (Painter+lnter_ech) 

2140  PRINT  USING  "l*"' 

2150  INPUT  "ARE  THERE  ANY  OTHER  ECHELONS  INTERDICTED?  <Y  OR  N)",Q* 

2160  IF  Q*<>"Y"  AND  Q*<>“N"  THEN  2140 
2170  IF  Q$="Y"  THEN  GOTO  Again 
2180  RETURN 
2190  ! 

2200  Deep_atk: ! 

2210  FOR  K=Lo_echel on+ 1  TO  Hi_echelon+l 
2220  Del ay=Del ay+Deep_atk_ef f  (K) 

2230  NEXT  K 
2240  RETURN 
2250  ! 

2260  Hal t: ASSIGN  SCc.file  TO  * 

2270  LOAD  " D I ME : HF9 1 34 ,701 " 

2230  END 

2290  ! FINIS  CORONAT  OFUM 
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CHAPTER  9 

MOVEMENT  GENERATOR1 


1.  PURPOSE. 

The  purpose  of  the  DIME  movement  generator  (P9)  is  to  provide  a 
deterministic  method  for  calculating  troop  and  cargo  movement  capabilities 
and  timelines. 

2.  GENERAL. 

The  DIME  movement  program  portrays  two  movement  phases:  troop  movement  and 
cargo  transport. 

A.  Troops  move  as  either  dismounted  or  mounted  during  the  ground 
movement  phase. 

(1)  The  user  decides  whether  troop  movement  is  dismounted  or  mounted 
and  the  number  of  resting  periods  the  unit  shall  receive. 

(2)  A  movement  rate  value  is  used  by  the  troop  movement  phase  to 
determine  the  total  time  needed  to  complete  a  march  along  a  predetermined 
route  of  specified  length. 

B.  Cargo  transport  is  modeled  in  phase  two  of  the  movement  program. 
Cargo  may  be  moved  by  two  helicopters,  the  CH47D  and  the  UK60A. 

(1)  The  cargo  transport  phase  loads  the  helicopters  by  a  simplistic 
loading  routine  which  gives  first  priority  to  transporting  troops,  second 
priority  to  loading  helicopter  slings,  and  third  priority  to  loading  the 
interior  of  the  helicopter. 

(2)  The  cargo  transport  module  uses  gamer  inputs  to  access  data  on  the 
transportability,  rate  of  movement,  and  fuel  use  needed  to  transport  cargo 
by  the  helicopters. 

(3)  Once  the  appropriate  data  has  been  accessed,  the  cargo  transport 
phase  calculates  the  amount  of  cargo  and  the  time  necessary  to  transport 
that  cargo  along  the  route(s)  indicated  by  the  gamer. 


^  This  chapter  describes  the  original  DIME  program  before  it  was 
changed  by  ADEA  in  Ft.  Lewis,  WA.  It  has  been  retained  to  demonstrate  the 
methodology  and  structure.  The  original  code  is  listed  in  Table  9-3.  The 
code  developed  by  ADEA  is  listed  in  Table  9-3a. 


C.  In  either  phase,  a  summary  report  is  generated  following  the  reaching 
of  a  final  destination  by  all  movement  types. 

3.  DATA  FLOW. 

The  DIME  movement  program  requires  a  separate  data  flow  for  the  troop 
movement  phase  and  the  cargo  transport  phase. 

A.  The  troop  movement  phase  uses  two  auxiliary  data  files:  mounted 
movement  rates  and  dismounted  movement  rates. 

(1)  The  movement  rates  are  for  ground  forces  moving  under  noncombat 
conditions.  The  rates  are  expressed  in  km/hr  as  a  function  of  five 
geographic  area  and  eight  traveling  conditions.  For  a  detailed  discussion 
of  the  troop  movement  data  files,  refer  to  paragraph  4  of  this  chapter. 

(2)  The  user  accesses  the  appropriate  movement  rates  through 
a  question/answer  format.  The  following  inputs  must  be  entered  to  establish 
the  parameters  necessary  to  access  the  correct  file. 

(a)  Force:  1  *  Blue;  2  *  Red. 

(b)  Pace:  1  -  Normal  day 

2  *  Forced  day 

3  **  Normal  night 

4  ■  Forced  night. 

(c)  March:  MH  »  Hours  to  march 

RH  =  Hours  to  rest. 

(d)  Start  time:  The  time  for  start  of  movement. 

(e)  Column  length:  NP  »  Number  of  persons  in  longest  column 

NV  -  Number  of  vehicles  in  longest  column. 

(f)  Tankers:  The  number  of  tankers  available. 

(g)  Distance  of  leg:  1  -  Flat  road/trail 

2  -  Hilly  rbad/trail 

3  <*  Cross  country  flat 

4  ■  Cross  country  hilly 

5  »  Cross  country  mountainous. 

(3)  The  troop  movement  phase  combines  the  movement  rates  with  the 
methodology  discussed  in  paragraph  5  to  determine  the  total  time  needed  to 
move  a  march  column  over  a  specified  route.  See  Figure  9-1  for  a 
generalized  data  flow  of  the  troop  movement  phase. 
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B.  The  cargo  transport  phase  accesses  three  sets  of  data  files  which 
provide  information  on  the  transportability,  rate  of  movement,  and  fuel 
usage  needed  to  transport  cargo  from  one  destination  to  another  by  the  UH60A 
and  the  CH47D  helicopters.  The  file  structure  for  these  three  files  will  be 
discussed  in  paragraph  4  of  this  chapter. 

(1)  The  cargo  transport  files,  similar  to  the  troop  movement  files, 
are  accessed  through  gamer  inputs.  The  following  inputs  must  be  supplied  by 
the  gamer. 


(a)  Force:  1  =  Blue;  2  ■  Red. 

(b)  Start  time:  The  time  in  hours  and  minutes  for  start  of  mission. 

(c)  Air  temperature:  1  -  -10°  C 

2  »  0°  C 

3  -  10O  C 

4  -  20°  C 

5  -  30°  C 

6  -  40°  C. 

(d)  Pressure  density  altitude:  1  «  sea  level 

2  -  2,000  ft 

3  «  4,000  ft 

4  «  6,000  ft 

5  =  8,000  ft 

6  =  10,000  ft. 

(e)  Number  of  troops  to  move,  including  hand-carried  weapons  and 
crew  members. 

(f)  Helicopter  data: 

1 .  Number  of  helicopters  available  for  both  the  CH47D  and  the 

UH60A . 

2.  Loading  profile;  whether  interior  and  sling  or  interior 

only. 

3.  Refueling  status;  whether  full  tanks  or  one-hour  fuel  and 

reserves. 

4.  CH47D  usage  only  (yes/no). 
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(g)  Routes  of  travel.  Distance  in  miles  along  designated  routes. 
Figure  9-2  indicates  the  seven  legs  of  the  route  the  helicopters  may  travel. 

Leg  1  ■  Distance  from  CH47D  origin  point  to  load  zone. 

Leg  2  -  Distance  from  UH60A  origin  point  to  load  zone. 

Leg  3  -  Distance  from  load  zone  to  drop  zone. 

Leg  4  *  Distance  from  load  zone  to  refuel  point. 

Leg  5  ■  Distance  from  drop  zone  to  refuel  point. 

Leg  6  *  Distance  from  drop  zone  to  CH47D  destination. 

Leg  7  *  Distance  from  drop  zone  to  UH60A  destination. 


(h)  Cargo  data  includes  a  cargo  number  identifier  (element  number) 
and  the  number  of  cargo  elements  to  move. 

(2)  The  cargo  transport  phase  combines  the  transportability,  rate  of 
movement,  and  fuel  use  data  files  with  the  methodology  discussed  in 
paragraph  5  to  determine  the  amount  of  cargo  and  the  time  needed  to 
transport  that  cargo  along  the  predetermined  route(s).  See  Figure  9-3  for  a 
generalized  data  flow  of  the  cargo  transport  phase. 


4.  FILE  STRUCTURE. 

The  movement  program  portrays  two  movement  phases  (ground  and  cargo)  with 
each  phase  having  unique  data  files. 

A.  Ground  movement  of  troops  uses  mounted  and  dismounted  movement  rates. 

(1)  The  mounted  movement  rates  file  structure  consists  of  an  8x5  file 
with  the  following  records  and  indexes: 

(a)  Record  1  contains  the  movement  rates  for  the  five  geographic 
areas  when  a  Blue  force  is  traveling  at  a  normal  march  pace  during  the  day. 
This  record  is  composed  of  the  following  five  indexes: 


traveling 

1 .  Index  1  contains 

on  an  open  road  or  trail. 

the 

movement 

rate 

for 

ground 

troops 

traveling 

2 .  Index  2  contains 

on  a  hilly  road  or  trail. 

the 

movement 

rate 

for 

ground 

troops 

craveling 

3 .  Index  3  contains 

in  open  cross  country. 

the 

movement 

rate 

for 

ground 

troops 
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4.  Index  4  contains  the  movement  rate  for  ground  troops 
traveling  in  hilly  cross  country. 

5.  Index  5  contains  the  movement  rate  for  ground  troops 
traveling  in  mountainous  cross  country. 

(b)  Record  2  contains  the  movement  rates  for  the  five  geographic 
areas  when  a  Blue  force  is  traveling  at  forced  march  pace  during  the  day. 

(c)  Record  3  contains  the  movement  rates  for  the  five  geographic 
areas  when  a  Blue  force  is  traveling  at  a  normal  march  pace  during  the 
night. 

(d)  Record  4  contains  the  movement  rates  for  the  five  geographic 
areas  when  a  Blue  force  is  traveling  at  a  forced  march  pace  during  the 
night. 

(e)  Record  5  contains  the  movement  rates  for  the  five  geographic 

areas  when  a  Red  force  is  traveling  at  normal  march  pace  during  the  day. 

(f)  Record  6  contains  the  movement  rates  for  the  five  geographic 

areas  when  a  Red  force  is  traveling  at  forced  march  pace  during  the  day. 

(g)  Record  7  contains  the  movement  rates  for  the  five  geographic 

areas  when  a  Red  force  is  traveling  at  normal  march  pace  during  the  night. 

(h)  Record  8  contains  the  movement  •  rates  for  the  five  geographic 

areas  when  a  Red  force  is  traveling  at  forced  march  pace  during  the  night. 

(2)  The  dismounted  movement  rate  file  is  in  the  same  format  as  the 
mounted  movement  rate  file  previously  discussed. 

B.  The  cargo  transport  module  uses  three  auxiliary  files:  Copter(*), 
Cargo(*)  and  Fuelarray(*) . 

(1)  Copter(*).  The  Copter(I,J,K)  array  contains  information  about  the 
two  helicopters  used  within  the  cargo  transport  phase.  The  array  is  created 
interactively  by  the  running  of  the  cargo  transport  phase  and  is  based  on 
the  helicopter's  maximum  lift  weight,  maximum  fuel  capacity,  cruising  and 
hovering  speed,  and  time  needed  to  refuel  and  load  cargo.  The  copter  array 
is  dimensioned  (2,10,10)  and  has  indexes  as  follows: 

(a)  Index  I  identifies  the  helicopter  being  used  this  mission  (1  = 
CH47D,  2  *  UH60A).  The  cargo  movement  module  allows  the  user  to  fly  10 
helicopters  of  each  type. 

(b)  Index  J  identifies  which  of  the  10  helicopters  of  the  type 
indicated  by  index  I  are  being  used  during  this  mission.  For  example,  if 
the  third  helicopter  in  the  CH47D  group  were  being  employed,  then  the  first 
and  second  subscripts  of  Copter(*)  would  have  the  values  Copter(l,3,K). 
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(c)  Index  K  contains  the  following: 

K_  Description 

1  Vacant 

2  Weight  allowable  for  transporting  of  cargo. 

3  Weight  of  crew  +  fuel  reserve  +  fuel  load. 

4  Total  allowable  weight  for  the  helicopter. 

5  Vacant 

6  Total  cargo  space,  in  inches,  available  on  the 
helicopter:  CH47D  »  366  inches;  UH60A  *  151  inches. 

7  Total  cargo  space,  in  inches,  taken  up  within  the 
helicopter . 

8  Current  amount  of  fuel  on  board  the  helicopter. 

9  Vacant 

10  Current  weight  of  helicopter  with  crew  +  fuel  reserve  + 

fuel  load  +  cargo  +  weight  of  the  helicopter. 


(2)  Cargo(*).  The  Cargo  (I,J)  array  contains  information  about 
the  cargo  being  transported  by  the  helicopters  within  the  cargo  transport 
phase  and  is  dimensioned  (71,9). 

(a)  Index  I  contains  the  type  of  cargo,  identifiable  by  its 
location  on  the  weapons  list,  which  is  to  be  moved  by  the  helicopters. 
Items  1-70  are  equivalent  to  those  listed  on  the  unit  status  file  as  the 
weapons  list.  Item  71  was  added  to  provide  the  transporting  of  strictly 
personnel. 

(b)  Index  J  contains  the  description  of  indexes  as  follows: 

J.  Description 

1  The  total  number  of  each  item  that  is  being  carried  by 
the  helicopter. 

2  An  integer  value  of  1,  2,  or  3  that  indicates  which 
helicopter  is  being  used  to  transport  cargo.  1  =  CH47D; 

,  2  ■  UH60A;  3  «*  Either. 

3  Weight  of  cargo  item. 


9-9 


4 


Vacant 


5  Either  a  2  digit  or  4  digit  number  that  describes  how  an 

item  may  be  carried  by  a  given  helicopter. 

If  item  is  only  transportable  by  one  helicopter  (xy). 
x  =  Helicopter  used 
y  =  How  item  may  be  transported. 

1  -  Sling  only 

2  *  Sling  or  interior. 

3  =  Interior  only. 

If  an  item  may  be  transported  by  both  helicopters 
(wxyz) . 

w  *  helicopter  one. 
x  =  how  item  may  be  transported, 
y  ■  helicopter  two. 
z  =  how  item  may  be  transported 

6-8  Vacant 

9  Cargo  space  required  for  transporting  of  item  by 

helicopter. 


(3)  Fuelarray(*) .  The  fuel  use  file  contains  the  fuel  needed  to 
transport  cargo  of  a  specified  weight  over  a  predetermined  route.  The  fuel 
use  file  is  a  function  of  helicopter  type  I,  altitude  J,  temperature  K, 
flying  speed  L,  and  weight  class  M: 

1=1=  CH47D 
2  =  UH60A. 

J  =  1  =  sea  level 

2  =  2,000  ft 

3  =  4,000  ft 

4  =  6,000  ft 

5  =  8,000  ft 

6  =  10,000  ft. 

K  =  1  =  -10°  C 

2  =  0°  C 

3  =  10°  C 

4  =  20°  C. 

5  =  30°  C. 

6  =  40°  C. 

L  =  1  =  40  knots 

2  =  60  knots 

3  =  80  knots 

4  =  100  knots 

5  =  120  knots 


* 
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6  =  140  knots 

7  =  160  knots. 


M  =  Weight  class  for  CH47D  Weight  class  for  UH60A 

1  =  22,000  to  26,000  lbs  1  =  10,000  to  12,000  lbs 

2  =  26,000  to  30,000  lbs  2  =  12,000  to  14,000  lbs 

3  =  30,000  to  34,000  lbs  3  =•  14,000  to  16,000  lbs 

4  =  34,000  to  38,000  lbs  4  =  16,000  to  18,000  lbs 

5  =  38,000  to  42,000  lbs  5  »  18,000  to  20,500  lbs 

6  =  42,000  to  46,000  lbs 

7  =  46,000  to  50,000  lbs 


5.  ALGORITHMS. 

The  DIME  movement  program  portrays  two  movement  phases  with  each  having 
unique  algorithms.  The  two  sections  consist  of  ground  troop  movement  and 
cargo  transport  by  helicopters. 

A.  The  troop  movement  section  depicts  dismounted  and  mounted  troop 
movement . 

(1)  Mounted.  The  mounted  troop  movement  routine  requires  the 
execution  of  six  formulas  in  order  to  calculate  the  total  time  required  to 
move  mounted  troops. 

(a)  Time  required  to  refuel  a  column  of  tankers. 

Trf  =  (Pr  /  Tkrs  /  4)  *  8  (Eq.  9-1) 

where: 

Pr  =  length  of  a  march  column. 

Tkrs  =  number  of  tankers  available. 

Trf  =  time  required  to  refuel  a  column  of  tankers  in  hours. 
Constants  =  time  required  for  one  tanker  to  discharge  fuel. 


(b)  Time  spent  resting  (Tr). 


(Eq.  9-2) 


Tr  =  time  spent  resting,  in  hours, 
nl  -  number  of  legs. 

Ddi  »  distance  of  leg  i  that  may  be  moved  under  daylight 
conditions . 

Dn^  -  distance  of  leg  i  that  may  be  moved  under  night  conditions. 


Vdtr  -  velocity  possible  under  day  conditions  through  the  current 
terrain  type. 

Vntr  ■  Velocity  possible  under  night  conditions  through  the  current 
terrain  type. 

Mp  m  inarch  period;  march  cycle  time  in  hours. 

Rp  -  rest  period,  in  hours. 


(c)  Time  for  refueling  the  force. 


Trff  - 


I  (Mi  +  Dni) 

Drf 


(Eq.  9-3) 


where : 

Trff  ■  total  time  for  refueling  the  force,  in  hours. 

Drf  ■  distance  between  refueling  points. 

Trf  «  total  time  required  to  refuel  the  column,  in  hours. 

(d)  Closure  time  for  mounted  troops  (Mclose),  in  hours. 

Mclose  -  Pr/180  (Eq.  9-4) 

where : 


Pr  ■  length  of  a  march  column. 

180  ■  factor  necessary  for  closure  of  mounted  troops. 

(e)  Total  time  required  for  mounted  troops  to  complete  a  march 
along  a  predetermined  route  (Tmtime). 


Tmtime  * 


nl 


+  Max  (Tr,  Trff)  +  Mclose  (Eq.  9-5) 


(2)  Dismounted.  The  dismounted  troop  movement  routine  uses 
equations  9-2  and  9-3  without  any  modifications.  In  addition,  the 
dismounted  routine  requires  that  two  other  formulas  be  executed  in  order  to 
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calculate  the  total  time  required  to  move  dismounted  troops  over  a 
predetermined  route. 


(a)  Closure  time  for  dismounted  troops  (Dclose),  in  hours. 

Dclose  *  Pr/360  (Eq,  9-6) 


where : 


Pr  ■  length  of  a  column. 

360  *  factor  necessary  for  closure  of  dismounted  troops. 


(b)  Total  time  required  for  movement  of  dismounted  troops  along  a 
predetermined  route  (Tdtime). 


Tdtime  * 


Vdtr 


+  Tr  +  Dclose 


(Eq.  9-7) 


B.  The  cargo  movement  section  consists  of  formulas  which  schedule, 
screen,  load,  move,  and  unload  cargo. 

(1)  Fuel  usage  for  leg  1  of  the  route.  This  route  is  the  distance 
between  the  load  zone  and  the  refueling  point. 


Fuell  »  Routel  *  Fuelarray/Flightsped  (Eq.  9-8) 


where : 


Fuell  ■  fuel  needed  for  leg  1  of  the  route. 

Routel  ■  distance  in  kilometers  for  the  first  leg  of  the  route;  the 
distance  between  the  load  zone  and  the  refuel  point. 
Fuelarray  ■  fuel  required  to  transport  the  cargo  given  the  helicopter 
type,  altitude,  temperature,  speed  and  weight  class. 
Flightsped  *  flight  speed. 


(2)  Fuel  usage  for  leg  2  of  the  route.  This  route  is  the  distance 
between  the  refueling  point  and  the  drop  zone. 

Fuel2  ■  Route2  *  Fuelarray/Flightsped  (Eq.  9-9) 


where : 

Fuel2  «  fuel  needed  for  leg  2  of  the  route. 

Route2  ■  distance  in  kilometers  for  the  second  leg  of  the  route;  the 
distance  between  the  refueling  point  and  the  drop  zone. 

(3)  Fuel  needed  is  the  total  fuel  for  both  legs  (Fuelneed). 

Fuelneed  *  Fuell  +  Fuel2  (Eq.  9-10) 

(4)  The  maximum  weight  of  cargo  which  is  transportable  by  each 
helicopter  is  calculated  as  follows; 

Mwci  *  Wtai  "  wcfrflc-|_  (Eq.  9-11) 

where : 

Mwcj[  *  maximum  weight  of  cargo  transportable  by  the  helicopter 
where:  i  ■  1  is  the  CH47D  and  i  ■  2  is  the  UH60A. 

Wtai  *  the  tQtal  allowable  weight  for  helicopter  i. 

Wcfrflci  ■  weight  of  helicopter  i  +  crew  +  fuel  reserve  +  fuel 
load  +  cargo. 

(5)  Before  any  item  is  loaded,  the  earliest  time  the  event  may 
occur  is  calculated  as: 

Facilitime  »  MAX  (Load_area,  Fac_freed)  (Eq.  9-12) 

where : 

Facilitime  -  the  earliest  time  the  loading  of  items  may  occur. 

Load_area  «  the  earliest  the  helicopter  can  arrive  at  the  loading  area. 
Fac  freed  -  the  time  the  load  area  was  last  freed  for  use. 


6.  "UNITPILE"  IMPACT. 

The  movement  program  does  not  Impact  directly  with  the  "UNITFILE".  It  is  a 
stand-alone  program. 
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7.  CODE 


The  DIME  movement  program  consists  of  a  driver  and  two  major  phases:  troop 
movement  and  cargo  transport.  The  driver  allows  selection  of  one  of  the  two 
phases . 


A.  The  troop  movement  phase  depicts  dismounted  and  mounted  troop 
movement . 

(1)  Both  the  mounted  and  dismounted  routines  follow  the  same  general 
flow  through  the  code.  Figure  9-4  shows  this  flow. 

(2)  The  program  begins  by  asking  the  user  to  indicate  whether  the 
ground  movement  is  mounted  or  dismounted. 

(3)  Based  on  the  response  to  the  user  inputs,  the  program  reads  in  the 
appropriate  movement  rates  from  an  auxiliary  data  file. 

(4)  After  the  proper  data  is  accessed,  the  program  solicits  additional 
information  from  the  gamer  concerning  the  force,  march  pace,  rest  periods, 
column  length,  and  number  of  tankers  available  for  this  march. 

(5)  At  this  point,  the  program  combines  the  movement  rates,  the  gamer 
responses,  and  the  appropriate  formulas  to  produce  the  total  time  required 
for  the  movement  of  troops  along  the  predetermined  route. 

(6)  The  mounted  and  dismounted  movement  routines  produce  a  printed 
summary  of  the  total  time  and  the  time  for  closure. 


B.  The  cargo  transport  phase  algorithms  consist  of  routines  and  formulas 
which:  set  up  the  initial  data,  establish  an  event  file,  schedule,  screen, 
load,  move,  and  unload  cargo.  See  Figure  9-5  for  a  generalized  flow  diagram 
of  the  cargo  transport  phase. 

(1)  Initial  setup.  The  initial  setup  of  the  cargo  transport  phase 
requires  the  calling  of  six  subroutines:  Datain,  Map,  Catset,  Speedscren, 
Xfuelcheck,  Wtalloved. 

(a)  Datain  is  the  main  data  input  subroutine.  It  utilizes  the  Map, 
Catset,  Speedscren,  and  Wtallowed  routines  to  check  input  and  set  initial 
parameters.  Datain  uses  a  menu  procedure  for  data  entry.  The  operator 
responses  are  used  to  access,  build,  and  load  the  appropriate  data  into  the 
Cargo(*),  Maxflov(*),  and  Copter(*)  arrays. 
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Figure  9-4  General  flow  of  troop  movement  phase. 
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DIMENSION 

ARRAYS 


1 .  Map.  The  Map  routine  provides  the  operator  with  a 
conceptual  map  of  the  seven  legs  of  the  route.  Figure  9-2  shows  this  map. 

2.  Catset.  The  Catset  routine  converts  the  temperature  and 
altitude,  input  by  the  operator,  into  the  appropriate  temperature  and 
altitude  categories. 

3.  Speedscren.  The  Speedscren  routine  checks  flight  speed  fuel 
usage  for  two  legs  within  the  route  and  speed/weight  restrictions  to 
determine  if  a  specified  helicopter  can  transport  the  indicated  cargo. 

a.  Speed/weight  restrictions.  The  Speedscren  routine  checks 
to  see  if  the  flight  speed,  indicated  by  the  operator,  will  allow  for 
sufficient  fuel  to  complete  the  movement  of  the  cargo.  The  helicopter  must 
be  able  to  go  to  the  load  zone  from  the  refuel  point,  then  to  the  drop  zone 
loaded,  and  finally  to  the  refuel  point  empty,  or  the  helicopter  must  be 
able  to  go  from  the  refuel  point  to  the  load  point  empty,  then  to  the  refuel 
point  loaded,  refuel,  then  go  to  the  drop  zone  loaded,  and  finally  back  to 
the  refuel  point  unloaded. 

b.  If  either  of  the  speed/weight  restrictions  are  true,  then 
the  Speedscren  routine  calculates  the  total  allowable  weight  for  each 
helicopter.  The  weight  in  pounds  allowable  for  the  CH47D  is  4000*  weight 
class  +  22000.  The  weight  allowable  for  the  UH60A  is  2000*  weight  class  + 
10,000. 

4.  Wtallowed.  The  Wtallowed  routine  determines  the  maximum 
weight  of  cargo  which  is  transportable  by  each  helicopter. 

(b)  Once  the  three  data  arrays  (Maxflow(*),  Cargo(*),  Copter(*)) 
have  been  established,  Datain  returns  control  to  the  driver. 

(c)  The  driver,  in  turn,  calls  the  Initl  routine  to  place  an  event 
on  the  schedule  array  which  indicates  the  helicopters  have  moved  from  their 
place  of  origin  to  the  loading  area. 

1.  Prior  to  placing  this  event  onto  the  schedule  array,  the 
Initl  routine  calls  the  Dfuelcheck  routine  to  ensure  the  helicopters  have 
the  needed  fuel.  In  addition,  the  Dfuelcheck  routine  determines  the  total 
time  which  will  be  required  for  the  helicopters  to  move  between  the  point  of 
origin  and  the  loading  area.  This  time  will  serve  as  a  lease  time  for  the 
next  scheduled  event,  since  one  event  may  not  start  until  the  first  event 
has  been  completed. 


a «  The  Dfuelcheck  routine  uses  the  same  formula  as  the 
Xfuelcheck  routine  to  determine  the  fuel  needed.  The  Dfuelcheck  routine 
returns  the  total  fuel  needed  to  travel  over  two  legs  of  the  route,  as  does 
the  Xfuelcheck  routine.  In  addition,  the  Dfuelcheck  routine  sets  an 
internal  flag  (Xstatus)  if  the  fuel  needed  is  greater  than  the  fuel 
available. 
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b .  Once  the  fuel  needed  is  determined,  the  Dfuelcheck 
routine  calculates  the  total  time  required  to  travel  over  two  legs  of  a 
route. 


2.  The  Initl  routine  uses  the  total  time  calculated  by  the 
Dfuelcheck  routine  to  build  the  event  array,  Scheduled).  The  Schedule 
(I,J)  array  has  dimensions  of  (100,3)  where  each  I  represents  a  different 
event  and  each  J  is  as  follows: 

J_  Description 

1  The  helicopter  type  (1  -  UH60A,  2  -  CH47D)  for  event  I. 

2  The  mission  (1  -  load,  3  -  drop)  assigned  to  the  helicopter 
for  event  I. 

3  The  earliest  time  the  event  I  may  occur. 

3.  The  fuel  used  to  move  from  the  point  of  origin  to  the  load 
area  is  subtracted  from  the  helicopter's  available  fuel.  This  updated  value 
is  replaced  in  the  Copter(*)  array. 


(d)  The  arrival  of  the  helicopters  to  the  loading  area  indicates 
the  end  of  the  initial  setup  phase. 


(2)  Cargo  transport.  The  cargo  transport  phase  includes  methodology 
and  formulas  which  screen,  schedule,  load,  move,  and  unload  cargo  between 
two  points. 

(a)  Screen.  The  Cargoscren  routine  is  called  to  determine  if  the 
cargo  contained  within  the  Cargo  array  is  transportable  by  the  designated 
helicopter.  The  Cargoscren  routine  accesses  the  Cargo  array  and  searches 
for  any  cargo  item  which  may  exceed  the  maximum  weight  lift  capacity  of  the 
helicopter.  If  the  cargo  exceeds  the  weight  lift  capacity,  it  is  removed 
from  the  Cargo  array.  The  Cargoscren  routine  performs  a  second  search  of 
the  Cargo  array  to  determine  if  a  cargo  item  must  be  moved  by  an  attached 
sling.  If  so,  it  checks  to  see  if  a  sling  has  been  placed  on  the  copter. 
If  a  sling  has  not  been  attached  to  the  helicopter,  then  the  Cargoscren 
routine  removes  the  sling-only  cargo  from  the  Cargo  array. 

(b)  Schedule.  The  Scheduler  routine  is  called  to  determine  the 
next  event  on  the  Schedule(*)  array.  The  Scheduled)  array,  established  by 
the  initial  setup  phase,  is  searched  to  determine  the  event  with  the 
earliest  time.  The  main  driver  uses  the  mission  to  call  the  Loader  or  the 
Drop  routine  for  this  event. 
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(c)  Load.  Provided  the  mission  indicated  by  the  Scheduler  routine 
for  the  next  scheduled  event  is  to  load  cargo,  the  main  driver  calls  the 
Loader  routine. 

1.  The  Loader  routine  will  access  the  Cargo(*)  array  and  assign 
the  items  to  the  helicopter  to  be  transported  to  the  drop  zone. 

2.  However,  before  any  item  is  loaded,  the  Loader  routine  sets 
the  earliest  time  the  event  may  occur  and  reinitializes  the  Scheduled) 
array  to  zero  for  this  event. 

3.  In  addition,  the  Cargo(*)  array  is  searched  for  any 
restrictions  which  would  require  the  cargo  be  transported  by  the  larger 
CH47D  helicopter.  The  Loader  routine  calls  the  Chneed  routine  to  determine 
if  the  cargo  is  restricted.  The  Chneed  routine  checks  the  cargo  items  for 
excessive  weight  and  then  checks  the  Copter(*)  array  for  environmental 
conditions  which  might  limit  the  weight  allowable.  If  the  restriction  is 
valid,  the  Chneed  routine  sets  a  flag  and  returns  control  to  the  Loader 
routine. 


4.  Using  the  flag  set  by  the  Chneed  routine,  the  Loader  routine 
passes  control  in  one  of  two  directions. 

a.  If  the  flag  indicates  the  cargo  must  be  transported  by 
the  CH47D,  then  the  helicopter  type,  for  this  event,  is  checked.  Provided 
the  helicopter  type  is  for  the  CH47D,  the  cargo  is  loaded.  Otherwise,  the 
Coptdone  routine  is  called.  The  cargo  remaining  to  be  loaded  must  be 
transported  by  a  CH47D  helicopter. 

b.  If  the  flag  indicates  the  cargo  has  no  helicopter-  type 
restriction,  then  the  cargo  is  loaded. 

5.  The  Loader  routine  loads  the  cargo  in  a  simplistic  method  of 
troops  first,  slingable  items  next,  and  items  which  must  be  loaded  inside 
the  helicopter  last. 

a.  Thirty-three  infantry  personnel  may  be  loaded  on  a  CH47D 
helicopter,  while  only  11  will  fit  inside  the  UH60A.  However,  the  actual 
number  of  personnel  loaded  during  any  trip  may  vary.  The  module  assigns 
each  person  a  weight  of  250  pounds.  This  weight  is  then  multiplied  by  the 
number  awaiting  transport  to  produce  a  total  weight  for  all  the  troops 
awaiting  transport.  If  this  total  weight  is  less  than  the  maximum  allowable 
weight  for  the  helicopter,  then  all  the  troops  are  loaded.  Otherwise,  the 
number  of  personnel  which  can  be  loaded  is  the  integer  value  of  the  maximum 
allowable  weight  divided  by  250  lbs.  If  no  troops  can  be  moved,  then  the 
module  outputs  a  message  to  the  terminal  and  stops.  Otherwise,  each 
helicopter,  of  the  type  indicated,  is  loaded  with  troops  until  no 
helicopters  remain  or  until  no  infantry  personnel  remain.  When  the  troop 
loading  is  completed,  the  sling  loads  are  considered  next. 

b.  Slingable  items  are  loaded  in  two  passes:  items  which 
must  be  transported  by  sling  and  items  which  can  be  transported  by  sling  or 
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inside  the  cargo  bay.  Sling  loading  is  strictly  by  weight  allowance 
remaining  on  each  helicopter.  While  there  are  limitations  on  the  number  of 
slings  that  each  helicopter  can  employ,  the  data  base  as  it  currently  exists 
ensures  the  cargo  weights  preclude  violation  of  these  limitations. 

c.  Following  the  loading  of  troops  and  slings,  the  interior 
of  the  helicopter  is  loaded.  The  cargo  list  is  searched  for  items  whose 
weight  and  space  requirements  allow  it  to  be  placed  inside  the  helicopter 
type  requested.  If  there  is  sufficient  weight  allowance  remaining  and  the 
cargo  bay  has  space,  then  the  cargo  list  is  decremented  by  one  for  that 
item.  This  procedure  is  repeated  until  all  helicopters,  of  the  type 
specified,  have  been  used  or  until  all  cargo  has  been  loaded. 

6.  If  any  item  was  loaded,  a  fixed  time  of  0.25  hours  is  added 
to  the  elapsed  time  counter  to  reflect  loading  time.  This  time  is  added  to 
the  previously  set  Faciltime  value  to  reflect  the  earliest  time  the  facility 
will  be  free  for  the  next  loading  event  to  occur. 

(d)  Move.  The  Uhaul  routine  is  called  by  the  Loader  and  the  Drop 
routines  to  calculate  the  actual  movement  along  the  specified  routes  of 
travel . 


1.  Irrespective  of  which  routine  calls  it,  Uhaul  checks  to  see 
that  sufficient  fuel  exists  to  travel  to  the  drop  area  (loaded)  and  then  to 
the  refuel  area  (unloaded)  by  calling  the  Xfuelcheck  routine. 

a.  If  there  is  enough  fuel  for  this  direct  route,  then  the 
fuel  needed  and  the  total  time  for  completion,  of  the  trip  is  calculated. 

(1)  The  refuel  point  computes  the  time  to  refuel  a 
helicopter  by  dividing  the  amount  of  fuel  needed  by  13,320  which  is  the 
number  of  pounds  of  fuel  which  may  be  dispensed  in  an  hour. 

(2)  This  refuel  time  is  added  to  the  travel  time  to 
determine  the  total  time  for  completion  of  the  trip. 

b.  If  insufficient  fuel  is  available  for  this  direct  route, 
then  the  Xfuelcheck  routine  returns  a  flag  indicating  insufficient  fuel. 

2.  If  the  direct  route  is  infeasible,  Uhaul  calls  Xfuelcheck  a 
second  time  to  check  that  sufficient  fuel  exist  to  travel  to  the  fuel  point 
(loaded),  refuel,  travel  to  the  drop  area  (loaded)  and  then  return  to  the 
refuel  area. 


a.  If  there  is  enough  fuel  for  this  second  route,  then  the 
fuel  needed  and  the  total  time  for  completion  of  the  trip  is  calculated. 
This  total  time  is  increased  for  the  refuel  time.  Uhaul  calls  the  Refuel 
routine  to  compute  the  fueling  time  and  the  fuel  required. 

( 1 )  The  Refuel  routine  computes  the  time  to  refuel  a 
helicopter  by  dividing  the  amount  of  fuel  needed  by  13,320,  which  is  the 
number  of  pounds  of  fuel  which  may  be  dispensed  in  an  hour. 
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(2)  This  refuel  time  is  added  to  the  travel  time  to 
determine  the  total  time  for  completion  of  the  trip. 

(3)  The  refueling  area  is  not  treated  as  a  facility,  as 
are  the  loading  areas  and  the  drop  areas.  However,  a  count  is  kept  of  the 
number  of  times  the  refuel  area  is  used.  Since  the  refuel  area  is  not 
treated  as  a  facility,  the  process  is  modeled  as  if  both  helicopter  types 
are  refueled  simultaneously. 

b.  If  there  is  insufficient  fuel  to  complete  the  trip,  a 
message  is  generated  and  the  program  stops. 

3.  Finally,  the  Uhaul  routine  places  the  move  event  onto  the 
Schedule(*)  array  by  assigning  the  current  helicopter  type  a  new  mission  of 
load  or  drop  and  setting  the  earliest  time  for  the  event  to  begin.  This 
earliest  time  is  the  total  time  computed  to  complete  either  the  direct  or 
indirect  route. 


(e)  Unload.  Provided  the  mission  indicated  by  the  Scheduler 
routine  for  the  next  scheduled  event  is  to  drop  cargo,  the  main  driver  calls 
the  Drop  routine. 


1 .  The  Drop  routine  will  unload  the  cargo  passed  from  the 
loading  area  and  return  the  helicopter  to  either  the  loading  area  or  to  its 
place  of  origin. 


a.  The  Drop  routine  begins  the  unloading  process  by 
resetting  the  Schedule(*)  array  for  this  event  to  zero. 

b.  In  addition,  the  Drop  routine  sets  the  earliest  time  the 
event  may  occur  and  begins  unloading  the  cargo. 

( 1 )  The  unloading  process  involves  resetting  the 
helicopter  status  to  an  unloaded  state,  resetting  the  cargo  space  used  to 
zero,  and  incrementing  Faciltime  by  0.25  hours. 

( 2 )  In  addition,  the  Drop  routine  determines  if  a 
helicopter  should  be  returned  to  the  loading  area  or  to  its  place  of  origin 
by  screening  the  Cargo(*)  array  for  the  remaining  items. 

(a)  If  cargo  remains  to  be  loaded,  then  the  mission  for 
the  Scheduled)  array  is  returning  the  helicopter  to  the  loading  area. 

(b)  If  no  cargo  remains  to  be  loaded,  then 
the  Coptdone  routine  is  called  to  indicate  the  helicopter  has  finished  its 
mission  and  is  returning  to  its  point  of  origin. 
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2.  If  more  cargo  remains  to  be  transported,  the  Drop  routine 
returns  the  helicopters  to  the  loading  area.  This  is  accomplished  by 
returning  control  to  the  main  driver  routine. 


(3)  Summary.  When  all  cargo  and  troops  have  been  transported  to 
the  drop  area  and  all  helicopters  have  arrived  at  their  final  destinations, 
the  Schedule(*)  array  will  have  been  reset  to  contain  only  zero  entries. 

The  call  to  Scheduler  will  find  that  no  events  remain  to  occur.  At  this 

point,  subroutine  Summary  is  called  to  provide  a  screen  or  hardcopy  output 
of  the  results  of  the  movement. 

(a)  Subroutine  Summary  generates  a  formatted  report  giving 
information  about  the  time  required  to  move  the  cargo  and  get  the 
helicopters  to  their  final  destinations. 

1.  Faciltime(3)  and  Faciltime(4)  contain  the  times  the  CH47D 

and  the  UH60A  arrived  at  their  termination  points.  The  greater  of  these 
times  is  chosen  as  the  time  for  movement  termination.  Faciltime(2)  contains 

the  time  the  drop  area  was  last  free;  this  is  reported  as  the  time  until  all 

cargo  and  troops  are  delivered  to  their  target  area. 

2.  Summary  calculates  the  number  of  days  needed  for  the  move 
and  creates  a  string  variable  to  report  the  24-hour  clock  time  of  the  day 
that  the  move  terminates. 

3.  Information  summarized  includes: 

a.  Number  of  helicopters  of  each  type  used. 

b.  Number  of  sorties  by  each  helicopter  type. 

c.  Speed  maintained  by  each  helicopter  type. 

d.  Miles  flown  by  each  helicopter  type. 

e.  Total  fuel  dispensed. 

f .  Number  of  hours  from  origin  to  destination  for  each 

helicopter  type. 

g.  A  listing  of  all  cargo  left  behind  as  too  heavy  for 

conditions. 


(b)  At  this  point,  the  program  may  be  rerun  with  alterations  to 
the  gamer  inputs  used.  The  operator  will  be  asked  if  a  rerun  is  desired.  A 
negative  response  causes  the  program  to  terminate  and  the  DIME  menu  to  be 
loaded.  A  positive  reply  causes  a  message  to  be  printed  giving  instruction 
for  rerunning  the  program  using  some  of  the  previous  inputs,  and  the  program 
stops. 
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(c)  If  the  rerun  option  is  chosen,  the  user  is  directed  to  type 
"RUN  RERUNIT".  This  causes  all  variables  to  be  re-initialized  and  execution 
t  to  begin  in  subroutine  Rerunit.  Rerunit  causes  flag  Repcount  to  be  set  to  1 

to  indicate  that  a  rerun  is  taking  place.  Subroutine  Fromfile  is  called  to 
reenter  inputs  stored  in  the  previous  run.  The  start  time,  temperature, 
altitude,  CH47D  use  option,  number  of  each  type  of  helicopter  to  use,  sling 
\  options  for  each  helicopter  type,  refueling  option  chosen  for  each  type,  and 

finally  the  cargo  list  from  the  last  run  are  reloaded.  The  user  is  asked  if 
the  cargo  series  has  changed,  and  if  so,  to  what.  Portions  of  the  main 
|  program  are  utilized  to  reset  name  strings  and  header  strings,  as  well  as  to 

initialize  capacities,  etc.  Program  control  resumes  in  subroutine  Datain, 
with  the  display  of  the  data  entry  menu.  The  gamer  may  alter  any  or  all  of 
the  input  parameters;  any  not  chosen  for  alteration  will  retain  previous 
values.  The  only  major  pieces  of  information  that  must  be  reentered  are  the 
speeds  to  be  flown  by  each  helicopter.  The  program  then  proceeds  as 
described. 

C.  The  movement  program  consists  of  a  driver  routine  and  two  phases: 
ground  movement  and  cargo  transport.  Each  phase  has  its  own  algorithms  and 
subroutines  consisting  of  local  variables  which-  are  not  common  to  both 
phases.  These  phases,  with  their  accompanying  subroutines  and  primary 
variables,  are  contained  in  Tables  9-1  and  9-2.  Table  9-3  contains  a 
listing  of  the  original  movement  program  code  and  Table  9-3a  contains  a 
listing  of  ADEA's  movement  program  code. 
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(ible  9-1.  froop  movement  subroutine  teble. 


9-25 


Wbl«  9-1.  troop  «ove«ent  subroutine  t*ble  (continued). 
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T*bU  9-1.  Troop  aovcwnt  subroutine  ttble  (continued). 
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Wblc  9-1.  troop  movenent  subroutine  table  (continued). 


fihle  9-1.  froop  movement  subroutine  table  (continued). 
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table  4-1.  troop  Movement  subroutine  table  (concluded). 
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weight  to  max.  lift  weight  for  each  of 
two  helicopters: 
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Table  9-2.  Cargo  transport  subroutine  table. 
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Starttime  A  real  number  Indicating  the  start 

time  in  hours  and  minutes. 


Table  9-2.  Cargo  transport  subroutine  table. 
Functional  area(a):  B.  Establishes  data  arrays 
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Table  9-2.  Cargo  transport  subroutine  table. 
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Table  9-3.  Movement  code. 


10  !  "P9"  IS  THE  MOVEMENT  PROGRAM  FOR  THE  DIVISION  MAP  EXERCISE  ( 
DIME) 

20  ! 

60  f MAIN  MENU  OF  MODULE 

80  OPTION  BASE  1 

90  Masteraenu:  ! 

lOO  PRINT  USING  "@,#" 

HO  PRINT  TABXY (1,7), TAB <25)  ,  "DIME  MOVEMENT  CALCULATOR- 
120  PRINT  "  " 

130  PRINT  "THIS  PROGRAM  CALCULATES  MOVEMENT  TIME  FOR  UNITS  USIN 
G  VARIOUS" 

140  PRINT  "  MODES  OF  TRANSPORT.  THESE  ARE: " 

150  PRINT 

160  ! 

170  PRINT  "MOVEMENT  MENU:  1-HELICOPTER  MOVEMENT  OF  CARGO" 

180  PRINT  "  2-GROUND  MOVEMENT- 

190  PRINT  "  3-RETURN  TO  MASTER  MENU- 

200  INPUT  "SELECT  OPTION", Opt* 

210  IF  Opt*-"3"  THEN  LOAD  "DIME: HP9134, 701 , 0“ 

220  IF  Opt*="2"  THEN 

230  CALL  P9 

240  GOTO  Mastermenu 

250  END  IF 

260  PRINT  "THIS  PROGRAM  REQUIRES  A  FILE  NAMED  < LOGDAT A >  ON  YOUR 
DISC- 

270  PRINT  "  IT  SHOULD  BE  1  RECORD  OF  LENGTH  2400" 

280  Repcount^O 

290  {DIMENSION  ARRAYS  NEEDED  IN  PROGRAM 
300  Dimit:DIM  Hname* (3) C53, Mi lesf loan (2) 

310  DIM  Cargo <22, 9) , SI ing (2) , Leg (2) , Faci 1 time (4) , Schedule < lOO, 3 
) , Tempi (2) 

320  DIM  Route (7), Ncopts (2), Copter <2, 10,10), Fuel array <2, 6, 6, 7, 7) 
330  DIM  Maxf 1qm(2, 6,6) , Wtcap  <2) , Fuelr (2) 

340  DIM  Fuel <2, 2) ,Headr«<l) C803 

350  DIM  Fuelusstat (2) , Legwt <2) , Dropcount (2) 

360  DIM  FI ightsped <2) ,Lowwt (2) , Wta (2) , Fuelcap <2) , Tot fuel usd <2) , 
Fhelo<2) 

370  DIM  Fuel  end  <2) ,  Drop-fuel  (2,10)  , Firer*  (2, 22)  1 153 ,  Labels*  <7)  C4 
53 

380  REAL  Fuel 1, Fuel 2 
390  Or*-"" 

400  IF  Repcount-1  THEN  GOTO  Datget 

410  'HELICOPTER  NAMES 

420  Progtop:Hname*(l)«"CH47D" 

430  Hname*<2)-"UH60“ 

440  Hname* <3)  ""BOTH  " 

450  {NAMES  OF  THE  ELEMENTS  OF  THE  CARGO  FILES 

460  {FORCE  'A'  CARGO 

470  Firer*<l, 1 ) -"descriptive  name  for  system  element  1  restrict 
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Table  9-3.  Movement  code  (continued). 


ed  to 
480 
ed  to 
490 

14  char . " 

Firer* (1,2) “"descriptive 
14  char. " 

Firer* (1,3)*" 

M 

name  -for 

system  element  2 

3 

restrict 

500 

Firer* (1,4)*" 

M 

4 

510 

Firer*  (1,5)  *" 

m 

5 

520 

Firer* (1,6)*" 

N 

6 

530 

Firer*(l,7)«" 

N 

7 

540 

Firer* (1,8)*" 

M 

8 

550 

Firer* (1,9)*" 

H 

9 

560 

Firer*  <  1  f  10) *" 

M 

10 

570 

Firer* <1, ll)*" 

M 

11 

580 

Firer* <1, 12)«” 

•• 

12 

590 

Firer*(l, 13)*" 

M 

13 

600 

Firer*(l, 14)*" 

M 

14 

610 

Firer* ( 1 , 15) «" 

N 

15 

620 

Firer*<l, 16)*" 

N 

16 

630 

Firer* (1, 17)*" 

M 

17 

640 

Firer*(l, 18)*" 

M 

18 

650 

Firer*(l, 19)*" 

M 

19 

660 

Firer*  ( 1 , 20) »“ 

■ 

20 

670 

Firer* (1,21)*" 

N 

21 

680 

690 

700 

ed  to 

710 

ed  to 

720 

Firer* (1,22)*" INFANTRY" 

! FORCE  ' B'  CARGO 
Firer*(2, 1 )*"descriptive 
14  char." 

Firer* (2,2) *"descripti ve 
14  char." 

Firer* (2, 3) *" 

n 

!  always 

name  -for 

name  -for 

reserved  for  infantry 

system  element  1  restrict 

system  element  2  restrict 

3 

730 

Firer* (2, 4) *" 

M 

4 

740 

Firer*(2,5)-" 

5 
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Table  9-3.  Movement  code  (continued). 


750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 


Firer*<2,6)="  6 

M 

Firer*<2, 7) — "  7 

Firer*<2,8)-M  8 

m 

Firer*<2,9)«"  9 

N 

Firer*<2, 10)-"  10 

M 

Firm-*  (2,  11)—"  11 

n 

Firer*<2, 12)="  12 

M 

Firer*<2, 13)-“  13 

M 

Firer*<2, 14)="  14 

M 

Firer*<2, 15)-"  15 

M 

Firer*<2, 16)-"  16 

M 

Fi rerl (2, 17) — "  17 

N 

Firer*<2, 18)-"  18 

M 

Firer*<2, 19)="  19 

H 

Firer*<2,20)="  20 

>• 

Firer*<2,21)="  21 

M 


Firer* (2, 22)  — " INFANTRY"  !  always  reserved  -for  infantry 
! LABELS  OF  ROUTES  1-7 

Label sS ( 1 ) -"DISTANCE  FROM  CH  ORIGIN  TO  LOAD  ZONE” 
Labels* (2) -"DISTANCE  FROM  UH  ORIGIN  TO  LOAD  ZONE" 
Labels* (3) -"DISTANCE  FROM  LOAD  ZONE  TO  DROP  ZONE" 

Label s*< 4) -"DISTANCE  FROM  LOAD  ZONE  TO  REFUEL  POINT" 
Label s*<5) -"DISTANCE  FROM  DROP  ZONE  TO  REFUEL  POINT" 
Labels* (6) -"DISTANCE  FROM  DROP  ZONE  TO  CH  DESTINATION" 
Labels* (7) -"DISTANCE  FROM  DROP  ZONE  TO  UH  DESTINATION" 
Kallit-O 

•NUMBER  OF  SORTIES  MADE  BY  <1-CH,  2=UH> 

Dropcount < 1 ) -O 
Dropcount (2) -O 
! FUEL  USAGE  COUNTERS 
Totf uelusd < 1 ) -O 
Totf uelusd (2) — O 
Fuel end  < 1 ) -O 
Fuel end ( 2) -O 

! ARRAY  TO  RECORD  FUEL  AVAILABLE  AT  DROP  POINT 
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Table  9-3.  Movement  code  (continued). 


1100  FOR  1=1  TO  2 
1110  FOR  J=1  TO  10 
1 120  Dr  op -fuel  ( I ,  J  >  =0 

1130  NEXT  J 
1140  NEXT  I 
1150  Flaga-O 

1160  BOSUB  Datain  'ENTER  DATA 

1170  GOSUB  Initl  !SEND  COPTERS  TO  LOAD  ZONE 

1180  GOSUB  Cargoscren  'SCREEN  OUT  UNMOVABLE  CARGO 

1190  PRINT  "PERFORMING  CARGO  MOVEMENT - WAIT..." 

1200  More: GOSUB  Scheduler  ILOOP  AS  APT  FOR  EVENTS 

1210  SELECT  What  • 1 -READY  TO  LOAD  CARGO  3-READY  TO  DROP  OFF  C 

ARGO 

1220  CASE  1 

1230  GOSUB  Loader 

1240  CASE  3 

1250  GOSUB  Drop 

1260  CASE  ELSE 

1270  PRINT  "SHOULD  NOT  HAVE  GOTTEN  HERE!" 

1280  LOAD  "DIME: HP9134, 701,0" 

1290  END  SELECT 
1300  GOTO  More 

1310  • tssttttst*sttt*t*t«**ttttstt*t«******t»**t****t*t*****t*r* 

mmmti 

1320  Xfuelcheck:  ! 

1330  ! DETERMINE  HOW  MUCH  FUEL  WOULD  BE  REQUIRED  FOR  U 

P  TO  2  LEGS 
1340  Fuel  1=0. 

1350  Fuel 2=0. 

1360  Tstvlu=INT( (Flight sped (Helo) -20) /20) 

1370  IF  Leg (1)00  THEN 

1380  Fuel  1= Route  (Leg  ( 1 ) )  iFuel  array  (Helo,  A1  teat ,  Teat ,  Tstvlu,  Leg 

wt (1) )/Fli gh t sped (Hel a ) 

1390  END  IF 

1400  IF  Leg  (2)00  THEN 

1410  Fuel 2=Raute (Leg (2) ) *Fuel array (Helo, A1 teat , Teat , Tstvlu, Leg 

wt (2) ) /FI ightsped (Helo) 

1420  END  IF 

1 430  Fuel need=Fuel 1 +Fuel 2 
1440  RETURN 

1450 

««** ******* 

1460  Speedscren:  !  SET  WT  OF  HELO  TO  O  INITIALLY 

1470  Wta ( 1 ) =0 

1480  Wta(2)=C 

1490  FOR  Hel 0=1  TO  2 

1500  IF  Ncopts (Helo) =0  THEN  GOTO  Twohelo 

1510  PRINT  "ENTER  FLIGHT  SPEED  TO  USE  FOR  HELO  ”;Hname*(Helo) ; 
"  BETWEEN  40  AND  160  KNOTS:  ENTER  O  IF  NO  SPEED  HAS  WORKED.” 

1520  Newsp: INPUT  FI ightsped (Helo) 

1530  IF  FI ightsped (Hel o>=0  THEN 
1540  Ncopts (Hel o)=0 


9-42 


Table  9-3.  Movement  code  (continued). 

1550  PRINT  Hname$(Helo) ; "  COULD  NOT  BE  USED  UNDER  THESE  COND 

ITIONS" 

1560  GOTO  Twohelo 

1570  END  IF 

1580  Atstvlu=INT( (FIightsped(Helo>-20) /20) 

1590  IF  FI ightsped (Helo) <40  OR  Flightsped (Helo) >160  THEN 
1600  PRINT  -SPEED  MUST  BE  BETWEEN  40  AND  160  KNOTS" 

1610  PRINT  -RE-ENTER  SPEED  FOR  Hname*  (Hel o) 

1620  GOTO  Newsp 

1630  END  IF 

1640  Spokay— O 

1650  Top=7 

1660  IF  Hel o=2  THEN  Top =5 

1670  FOR  Wcat=Top  TO  2  STEP  -1 

1680  IF  Fuel array (Hel o,Al teat, Teat, Atstvlu, Wcat)  >Max -flow  (Hel 

o,Al  teat.  Teat)  THEN  GOTO  Newcat  .'SCREEN  OUT  NON-PERM  I SSABLE  WT/ 
SPEED  COMBINATIONS 

1690  Leg  < 1 ) =4  ! COPTER  MUST  BE  ABLE  TO  GO 

TO  LOAD 

1700  Leg (2) =3  ! ZONE  FROM  REFUEL  POINT,  TH 

EN  TO  DROP 

1710  Legwt  ( 1 )  =  1  'ZONE  LOADED,  THEN  TO  REFUE 

L 

1720  Legwt (2) =Wcat  !OR 

1730  GOSUB  Xfuel check  ! COPTER  MUST  BE  ABLE  TO  GO 

FROM  REFUEL 

1740  Ftel ler l=Fuel need  !POINT  TO  LOAD  POINT  EMPTY, 

THEN  TO  REFUEL 

1750  Leg ( 1 ) =5  ! POINT  LOADED,  REFUEL,  THEN 

GO  TO  DROP 

1760  Leg (2) =0  ! ZONE  LOADED,  THEN  BACK  TO 

REFUEL  UNLOADED 

1770  GOSUB  Xfuel check 

1780  Ftel ler 1 —Ftel ler 1+Fuel need  ! IF  EITHER  CHECK  IS  PASSED, 

THE  SPEED/WT 

1790  Leg ( 1 ) =4  ! COMBINATION  IS  OKAY. 

1800  Leg (2) -4 

1810  GOSUB  Xfuelcheck 

1820  Ftel ler 2=Fuel need 

1830  Leg ( 1 ) =5 

1840  Leg (2) =5 

1850  GOSUB  Xfuel check 

1860  Ftel ler 3— Fuel need 

1870  IF  Ftel ler l<-Copter (Helo, 1 , 8)  OR  (Ftel ler 2<=Copter (Helo 

,1,8)  AND  Ftel ler3< -Copter (Helo, 1,8) )  THEN  Spokay=l 

1880  IF  Spokay-1  THEN 

1890  Wta (Helo) -Wcat 

1900  GOTO  Newhelo 

1910  END  IF 

1920  Newcat: NEXT  Wcat 

1930  PRINT  "THAT  SPEED  NOT  FEASIBLE  FOR  " ; Hname* (Helo) 

1940  PRINT  "ENTER  NEW  SPEED  TO  TRY  FOR  Hname* (Hel o) 
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Table  9-3.  Movement  code  (continued). 

1950  GOTO  Newsp 
1960  Newhelo: ! 

1970  IF  Helo=l  AND  Ncopts IHelo) < >0  THEN  Wta  !1 ) =Wta ! 1 > *4000+220 
OO 

1980  IF  Helo=2  AND  Ncopts (Helo> < >0  THEN  Wta (2) =Wta (2) *2000+100 
OO 

1990  IF  Wta (2) *20000  AND  He lo=2  AND  Ncopts <Hel o) < >0  THEN  Wta (2 
) =20500 

2000  Tunohelo: NEXT  Helo 
2010  RETURN 

2020  ! ********************************************************** 
*********** 

2030  Cargoscren:  ! 

2040  FOR  1  =  1  TO  22 
2050  Ki 1 1 =0 

2060  IF  Cargo (1,1) =0  THEN  GOTO  Nex one 
2070  ! MUST  BE  SLUNG  AND  CANNOT 

2080  IF  Sling !  1 ) =0  AND  Cargo! I , 5) =1 1  THEN  Kill=l 

2090  IF  SI ing (2) =0  AND  Cargo! I , 5) =21  THEN  Kill =2 

2100  IF  SI ing ! 1 ) =0  AND  Sling!2)=0  AND  Cargo ! I , 5) =1 121  THEN  Kil 

1=3 

2110  ‘TOO  HEAVY  EVEN  FOR  CH47D 

2120  IF  Ncopts!  1)00  THEN 

2130  IF  Cargo! 1,3) >Copter!l, 1,2)  THEN  Kil 1=1 

2140  END  IF 

2150  IF  Ki I 1 >0  THEN 

2160  PRINTER  IS  702 

2170  PRINT  "CARGO  ITEM  #  ";I;"  CANNOT  BE  MOVED:  REQUIRES  SLI 

NG  ON  OR  IS  TOO  HEAVY  FOR  " ; Hname* IKi 1 1 ) 

2180  IF  1=16  THEN 

2190  PRINT  "MISSILES  FOR  ITEM  16  ALSO  CANNOT  BE  MOVED” 

2200  PRINT  **  AND  WILL  NOT  SHOW  IN  THE  FINAL  SUMMARY" 

2210  Cargo !1,1)=0 

2220  PRINTER  IS  1 

2230  END  IF 

2240  END  IF 

2250  NexonesNEXT  I 

2260  Ki 1 1 =0 

2270  FOR  1=1  TO  22 

2280  IF  Cargo! 1, 1)00  THEN  Kil  1  =  1 

2290  NEXT  I 

2300  IF  KillOl  THEN 

2310  PRINT  "NO  CARGO  LEFT  TO  MOVE;  DROPPED  OUT  IN  CARGOSCREN" 
2320  PRINT  "DONE  SCREENING  CARGO" 

2330  PRINT  "  " 

2340  LOAD  "DIME: HP9134, 701 ,  O" 

2350  END  IF 
2360  RETURN 

2370  ! ******************************************************** 

************* 

2380  Copt done:  ! 

2390  Legwt ! 1 ) =1 
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Table  9-3.  Movement  code  (continued). 

2400  Legwt (2) =1 

2410  Originl=Point  iRECORD  WHERE  COMING  FROM  IN  CASE  IMP 

ROPERLY  SENT 

2420  !BACK  TO  LOAD  POINT  WHEN  NO  CARGO  WAS 

LOADABLE 

2430  Leavetime^Faci 1 time (Point) 

2440  IF  Dropcount (Helo) >0  THEN 
2450  Originl=Point 

2460  Poi nt=2 

2470  END  IF 

2480  SELECT  Point  !COMING  EITHER  FROM  < 1 ) LOAD  ZONE  OR  (2 

) DROP  ZONE 

2490  CASE  1 

2500  Leg  <l>-3 

2510  Leg (2) -6 

2520  IF  Helo«l  THEN  Leg (2) *7 

2530  !  COMPUTE  TIME  AND  FUEL  NEEDED  TO  GET  TO  DESTINATION 

2540  GOSUB  Dfuel check 

2550  X“ Temp us 

2560  IF  Xstatus=0  THEN 

2570  Leg ( 1 ) -4 

2580  Leg  (2)«=0 

2590  GOSUB  Dfuelcheck 

2600  X— Tempus 

2610  Leg(l)«5 

2620  Leg (2) =6 

2630  IF  Helo=2  THEN  Leg (2) =7 

2640  GOSUB  Refuel 

2650  GOSUB  Dfuel check 

2660  TempussTempus+X 

2670  ! ADD  IN  DISTANCE  FROM  ENTRY  POINT  TO  DESTINATION 

2680  Mil esf  1  own (Hel o )  =Mi  1  esf  1  own  (Helo)  +Rout e ( 4 )  +Rout e (5)  +Rou 

te (Leg (2) ) 

2690  ELSE 

2700  Mi 1 esf 1 own (Helo) =Mi lesf lown (Helo) +Route (3) +Route (Leg (2) 

) 

2710  GOTO  Timer 

2720  END  IF 

2730  CASE  2 
2740  SELECT  Hel o 

2750  CASE  1 

2760  Leg ( 1 ) =6 

2770  CASE  2 

2780  Leg ( 1 ) -7 

2790  END  SELECT 

2800  Ley(2)-0 

2810  ' IF  POINT  COMING  FROM  IS  1,  INADVERTANTLY  SENT  BACK  TO 

LOAD  ZONE 

2820  1  JO  RESET  FUEL  ON  HAND  TO  WHAT  IT  WAS  WHEN  IT  WAS  AS  TH 

E  DROP  ZONE 

2830  !  ALSO  RESET  THE  TIME  IT  LEFT  FOR  IT'S  DESTINATION,  AND 

THE  FUEL 
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Table 

9-3.  Movement  code  (continued). 

2840 

•USED  AS  OF  THAT  TIME 

2850 

IF  PointOOriginl  THEN 

2860 

FOR  1*1  TO  Ncopts (Helo) 

2870 

Copter  (Helo,  1,8)  =Dr op-fuel  (Helo,  I) 

2880 

NEXT  I 

2890 

Leavetime=Fl  elo (Helo) 

2900 

Totfuel usd (helo) “Fuel end (Helo) 

2910 

END  IF 

2920 

GOSUB  D-fuel  check 

2930 

Miles-flown  (Helo)  “Mi  lesflown  (Helo)  +Route  (Leg  ( 1 ) ) 

2940 

END  SELECT 

2950 

! ADD  TRIP  TIME  TO  TIME  STARTED  FOR  DESTINATION; RECORD  IN 

2960 

! FACILITY  3  FOR  CH,  FACILITY  4  FOR  UH 

2970 

T i «er : Faci 1 t i me (Hel o+2) “Leavet i me+Tempus 

2980 

FOR  I“1  TO  Ncopts (Helo) 

2990 

Copter (Helo, I ,8) “Copter (Helo, I ,8) -Fuel need 

3000 

NEXT  I 

3010 

! HELICOPTER  TYPE  HELO  IS  DONE,  SO  ENSURE  THAT  NO 

EVENTS  FO 

R  IT 

3020 

! REMAIN  IN  THE  SCHEDULE  ARRAY 

3030 

FOR  1*1  TO  lOO 

3040 

IF  Scheduled,  1) “Helo  THEN 

3050 

FOR  J*1  TO  3 

3060 

Schedul e ( I , J ) “O 

3070 

NEXT  J 

3080 

END  IF 

3090 

NEXT  I 

3100 

IF  Hel o=l  THEN  Flaga=l 

3110 

RETURN 

3120! 

****************************************************** 

tmmtt** 

3130 

Detain: ! 

3140 

PRINT  "ENTER  DESCRIPTIVE  TITLE  FOR  THIS  RUN" 

3150 

INPUT  Headr*(l) 

3160 

PRINTER  IS  702 

3170 

PRINT  "  “ 

3180 

PRINT  Headr* ( 1 ) 

3190 

PRINT  "  " 

3200 

PRINT  "  " 

3210 

PRINTER  IS  1 

3220 

INPUT  "ENTER  <1>  FOR  FORCE  'A',  <2>  FOR  FORCE  ”B’ 

".Typecarg 

o 

3230 

IF  RepcountOO  THEN 

3240 

PRINT  "YOU  WILL  NEED  TO  RE-ENTER  CARGO  DATA  IF 

YOUR 

LAST" 

3250 

PRINT  "  RUN  WAS  NOT  WITH  THE  SAME  CARGO  SERIES  AS 

THIS 

ONE" 

3260 

INPUT  "HAS  THE  CARGO  SERIES  CHANGED?" , Or % 

3270 

END  IF 

3280 

PRINT  "LOADING  ARRAYS" 

3290 

! INITIALIZE  FACILITY  TIMES 

3300 

FOR  1-1  TO  4 

3310 

Fac i 1 t i me ( I ) =0 
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Table  9-3.  Movement  code  (continued). 


! ENTER  CARGO  DATA 
IF  Repcount=l  AND 


IF  Typecargo=l 
RESTORE  3530 
ELSE 

RESTORE  3750 
END  IF 

FOR  1*1  TO  22 
FOR  J=1  TO  9 

READ  Cargo ( I ,  J ) 
NEXT  J 
NEXT  I 

!  FORCE  'A’  DATA 
DATA 
DATA 
DATA 


Qr* 

THEN 

iLOAD  FORCE 


N"  THEN  GOTO  Aleph 


’A’  CARGO 


! LOAD  FORCE  ’B’  CARGO 


3320  NEXT  I 

3330  ! SET  FUEL  CAPACITIES  OF  EACH  HELO 

3340  Fuel cap (1)=6180 

3350  Fuel cap (2) *2172 

3360  f SET  LOWWEST  WEIGHT  OF  HELOS 

3370  Lowwt ( 1 ) =22499 

3380  Lowwt (2) =12165 

3390  !*t«S**t*t****t**t«»S***»*t***t*Stt****t***t***t*tt*tttt**t* 

tttmtmm 

3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
TS 

3560 
VIDE 
3570 
3580 
H  OF 
3590 
3600 


DATA 

DATA 
DATA 
THE 
DATA 
DATA 

—  1  -for 
3610  DATA 
3620  DATA 
3630  DATA 


THESE  DATA  STATEMENTS  SHOULD  CONTAIN 
DATA  FOR  THE  ARRAY  ’ CARGO ( I , J > ’ . 

1=1  TO  22*  1-21  ARE  THE  21  SYSTEM 


ELEMEN 


OF  THE  UNITFILE  AND  22  IS  ADDED  TO  PRO 

THE  TRANSPORTING  OF  PERSONNEL. 

=1  TO  9*  (1) INTEGER  CONTAINING  #  OF  EAC 

22  ELEMENTS  BEING  CARRIED  BY  HELO, 

(2) REPRESENTS  TYPE  OF  HELO  BEING  USED- 


CH47D  2  for  UH60  3  for 
(3) WEIGHT  OF  ITEM, 

(5) DESCRIBES  HOW  ITEM  IS 


ei ther , 

(4) VACANT 
TO  BE  CARRIED 


3640  DATA 
el  o  (xy) 

3650  DATA 
transported 
3660  DATA 
helos  (wxyz) 
3670  DATA 
transported 
3680  DATA 
ransported 
3690  DATA 
lowing  manners: 
3700  DATA 
3=interior 


If  item  only  transportable  by  one  h 
x  =  helo  used  y  =  how  item  is 
If  item  may  be  transported  by  both 
w  =  CH47D  x  =  how  item  is 

y  =  UH60  z  =  how  item  is  t 

Items  may  be  transported  in  the  fol 
l=sling  2=sling  or  interior 
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Table  9-3.  Movement  code  (continued). 


3710  DATA  !  (6  THRU  8)  VACANT 

3720  DATA  !  (9) CARGO  SPACE  REQUIRED  FOR  TRANSPORT I 

NG 

3730  DATA  !  OF  ITEM  BY  HELO. 

3740  'FORCE  ’B'  DATA 

3750  DATA  !  THESE  DATA  STATEMENTS  SHOULD  CONTAIN 

3760  DATA  !  DATA  FOR  THE  ARRAY  ’ CARGO ( I ,  J  )  ’  . 

3770  DATA  !  USE  SAME  FORM  DESCRIBED  ABOVE  FOR  FORCE 

'A'  . 

3780  !********************************************* ************** 
************* 

3790  ! ENTER  MAXFLOW  DATA  (MAXIMUM  FUEL  FLOW  ALLOWABLE) 

3800  Aleph: RESTORE  3900 
3810  FOR  H=1  TO  2  ! HELO  TYPE 

3820  FOR  1=1  TO  6  ! ALTITUDE 

3830  FOR  J=1  TO  6  !  TEW>ERATURE 

3840  READ  Max flow (H, I, J) 

3850  Max flow (H, I , J ) =Max f 1 ow ( H , I , J>  « lOO 

3860  NEXT  J 

3870  NEXT  I 
3880  NEXT  H 

3890  !  THE  FOLLOWING  DATA  CONTAINS  MAXIMUM  HELO  FUEL  USAGE  IN  P 

OUNDS  PER  HOUR 

3900  DATA  ! MAXFLOW (H, I , J )  CONTAINS: 

3910  DATA  «.  H=1  TO  2 — U>CH47D  (2>UH60 

3920  DATA  !  1=1  TO  6 — ALTITUDE  above  sea  level:  (1)0  f 

t.  (2)2000  ft. 

3930  DATA  !  (3)4000  ft.  (4)6000  ft.  (5)8000  ft. 

(6) lOOOO  ft. 

3940  DATA  !  J=1  TO  6 — TEMP  in  Centi.:  (l)-lO  (2)0  (3 

>+io 

3950  DATA  •  (4) +20  (5) +30  (6) +40 

3960  ! *********************************************************** 
************* 

3970  ! ENTER  FUEL  ARRAY  DATA 
3980  RESTORE  4520 
3990  FOR  Hel o= 1  TO  2 

4000  !  IF  Hel o=l  THEN  PRINT  "DATA  FOR  CH47D" ; TAB ( 10) ; "  " 

4010  !  IF  Hel o=2  THEN  PRINT  "DATA  FOR  UH60" ; TAB ( JO) ; "  " 

4020  FOR  Alt=l  TO  6  ! ALTITUDE 

4030  FOR  T=1  TO  6  ! TEMPERATURE 

4040  FOR  S=1  TO  7  'SPEED 

4050  FOR  W=1  TO  7! WEIGHT 

4060  READ  Fuel array (Hel o, A1 t, T, S, W) 

4070  Fuel  array  (Helo,  A1 1 ,  T,  S,  W)  =Fuel  array (Helo, A1 t, T,  S, 

W)*100 

4080  NEXT  W 

4090  NEXT  S 

4100  NEXT  T 

4110  '  PRINT  "  " 

4120  !  PRINT  "  " 

4130  !  PRINT  "ALTITUDE:  Alt *2000-2000 
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Table  9-3.  Movement  code  (continued). 


4140  !  PRINT  “  M 

4150  !  FOR  T=1  TO  6 

4160  !  PRINT  "TEMPERATURE:  " j (T-2) *10; ”  DEGREES  CENTIGRADE" 

4170  !  FOR  S=1  TO  7 

4180  !  FOR  W=1  TO  7 

4190  !  PRINT  TAB <W*8) ; Fuel array (Helo, Alt, T,S,W); 

4200  !  NEXT  W 

4210  .'  NEXT  S 

4220  •  PRINT  "  “ 

4230  !  PRINT 

mm«tmn 

4240  *  NEXT  T 

4250  BEEP 

4260  NEXT  Alt 

4270  !  PRINT  "  " 

4280  !  PRINT  "  “ 

4290  NEXT  Helo 
4300  PRINTER  IS  1 

4310 


4320  DATA 
4330  DATA 
4340  DATA 
4350  DATA 
4360  DATA 
4370  DATA 
4380  DATA 
4390  DATA 


4510  DATA  !  M=WEIGHT  CLASS  FOR  CH47D 

4520  DATA  !  ( 1 ) 22000 to26000  (4) 34000to38000 

4530  DATA  !  (2) 26000to30000  (5) 38000to42000  (7) 46000to50000 

4540  DATA  !  (3) 30000to34000  <6) 42000to46000 

4550  DATA  !  M=WEIGHT  CLASS  FOR  UH60 

4560  DATA  !  ( 1 ) 10000tol2000  (3) 14000 to 16000 

4570  DATA  !  (2) 12000tol4000  (4) 16000tol8000  (5) 18000to20500 

4580  !**tt*tt«tt*t*t*«tt***S*t*tt**S***ttt*t*t**tSt*****t**tt**t* 

mmmm* 

4590  ! ENTER  COPTER  DATA:  FIRST  SET  MAXIMUM  WEIGHT  EVER  ALLOWABLE 
FOR  HELO 

4600  Wtcap < 1 ) -50000 
4610  Wtcap (2) =20500 


4520  DATA 
4530  DATA 
4540  DATA 
4550  DATA 
4560  DATA 
4570  DATA 
4580  !**t« 


THE  FOLLOWING  DATA  STATEMENTS  ARE  TO  REPRESENT 
THE  ARRAY  Fuel array < I , J, K, L, M)  WHICH  CONTAINS 
THE  FUEL  USAGE  UNDER  THE  FOLLOWING  CONDITIONS: 
NOTE:  tt  for  conditions  unable  to  fly  use  l.E+11 
I-HELICOPTER  TYPE 

( 1 )  CH47 

(2)  UH60 

J= ALTITUDE (FEET  PA) 


4400 

DATA  ! 

(l)SEA  LEVEL 

(4)6000 

4410 

DATA  ! 

<2)2000 

<5)8000 

4420 

DATA  ! 

<3)4000 

<6)10000 

4430 

DATA  ! 

K= TEMPERATURE <C> 

4440 

DATA  ! 

(l)-lO 

<4) +20 

4450 

DATA  ! 

(2)  0 

(5) +30 

4460 

DATA  ! 

(3) +10 

<6) +40 

4470 

DATA  ! 

L=SPEED  IN  KNOTS 

4480 

DATA  ! 

<1)40 

(4) 100 

4490 

DATA  ! 

(2)60 

(5) 120 

4500 

DATA  ! 

<3)80 

(6) 140 

(7) 160 


Table  9-3.  Movement  code  (continued). 
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4620  FOR  H—l  TO  2  !FOR  EACH  HELD  TYPE 
4630  FOR  1=1  TO  10 'FOR  MAX  OF  10  HELOS  OF  THAT  TYPE 
4640  FOR  J=1  TO  10! FOR  lO  ELEMENTS  FOR  EACH  HELO 

4650  Copter (H, I, J)=0! INITIALIZE  ARRAY  WITH  APT  DATA 

4660  IF  J=4  THEN  Copter <H, I , J) “Wtcap (H> 

4670  IF  J=6  THEN 

4680  IF  H=1  THEN  Copter <H, I , J ) =366 

4690  IF  H=2  THEN  Copter (H, I , J) =151 

4700  END  IF 

4710  NEXT  J 

4720  NEXT  I 

4730  NEXT  H 

4740  Menus  PRINT  "MENU: TAB (1 ); “  1 -START  TIME";TAB(1) ; “  2-TEMP” ;T 
AB <  1 ) ;  "  3-MAXIMUM  PRESSURE  ALTITUDE" ; TAB < 1 ); "  4-#  TROOPS  TO  MOVE" 

; TAB  < 1 ) ; "  5-HELO  DATA" 

4750  PRINT  "  6-FLIGHT  ROUTES" ; TAB < 1 ); “  7-CARGO  DATA”; TAB (1 ); ”  8- 
RUN  PROGRAM" 

4760  BEEP 

4770  INPUT  "SELECT  MENU  ITEM", Choice 

4780  Which: ON  Choice  GOTO  LI, L2, L3,L4,L5,L6,L7f LB 

4790  La: INPUT  "CORRECT?  ", A* 

4800  IF  A*="Nn  THEN  GOTO  Which 
4810  GOTO  Menu 

4820  LI: INPUT  "ENTER  START  TIME  <HOUR.MINUTES>", Starttime 
4830  PRINT  "START  TIME  IS  Starttime; 

4840  Cstarttime=Starttime 

4850  Starttin»e=INT(Starttime)  +  (Starttime  MOD  l)*5/4 
4860  GOTO  La 

4870  L2: INPUT  "ENTER  TEMPERATURE  IN  CENTIGRADE  (-lO  TO  40)  ",Temp 
4880  PRINT  "TEMPERATURE  IS:  ";Temp; 

4890  GOTO  La 

4900  L3: INPUT  "ENTER  MAXIMUM  PRESSURE  ALTITUDE  TO  BE  FLOWN  <<=10, 
OOO  FEET) ",  Altitude 

4910  PRINT  "ALTITUDE  IS:  "; Altitude; 

4920  GOTO  La 

4930  L4: INPUT  "ENTER  NUMBER  OF  INFANTRY  TO  MOVE:  INCLUDE  WEAPON  C 
REWMEMBERS" , Cargo (22, 1 ) 

4940  PRINT  Cargo <22, 1) ; "  TROOPS  TO  MOVE, CORRECT?  <WILL  BE  STORED 
AS  CARGO  ITEM  22>"; 

4950  GOTO  La 

4960  L5: FOR  HeIo=l  TO  2 

4970  L51 sPRINT  "ENTER  #  OF  " ; Hname* (Hel o) ; "  AVAILABLE  " 

4980  INPUT  Ncopts (Helo) 

4990  PRINT  Ncopts (Helo)  ; 

5000  INPUT  "CORRECT?", A* 

5010  IF  A*="N"  THEN  GOTO  L51 

5020  IF  Ncopts (Helo) -0  THEN 

5030  SI ing (Helo) =0 

5040  GOTO  Anhelo 

5050  END  IF 

5060  L52: PRINT  "ENTER  LOAD  PROFILE  FOR  " ; Hname* (Helo) ; TAB (5) ;  "HOW 
SHOULD  HELO  BE  LOADED?" ; TAB (5) ; "O-INTERIOR  ONLY" ; TAB (5) ;" 1-INTER 
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Table  9-3.  Movement  code  (continued). 


I OR  OR  EXTERIOR" 

5070  INPUT  Sling (Helo) 

5080  PRINT  "LOAD  PROFILE  FOR  " ; Hnarae* (Helo) ; "  IS  " ; SI ing <Helo) 

5090  INPUT  "CORRECT?", A* 

5100  IF  A*="N"  THEN  GOTO  L52 

5110  L53: INPUT  "ENTER  FUEL  LOAD  TO  USE:  1-ONE  HOUR  RANGE  2-FULL 
TANKS", Fuel usstat (Helo) 

5120  PRINT  "FUEL  USE  FOR  ";Hna«e*(Helo) ; "  IS  ",  Fuel usstat (Helo 
) 

5130  INPUT  "CORRECT?", A* 

5140  IF  A*=“N“  THEN  GOTO  L53 

5150  L54: IF  Helo=l  THEN 

5160  PRINT  “ENTER  CH47D  USAGE  CODE  HERE.  'AS  NEEDED'  MEANS  U 

SE  IT" 

5170  PRINT  "ONLY  AS  LONG  AS  THERE  ARE  ITEMS  THAT  ONLY  IT  CAN 

MOVE.  " 

5180  PRINT  "'FULLY'  MEANS  USE  IT  AS  LONG  AS  THERE  IS  CARGO  T 

O  MOVE." 

5190  INPUT  "ENTER  CH47D  UTILIZATION:  1-AS  NEEDED  ONLY  2-F 

ULLY" , Chstat 

5200  PRINT  "CH47D  UTILIZATION  IS:  "5 Chstat 

5210  INPUT  "CORRECT?", A* 

5220  IF  A*="N"  THEN  GOTO  L54 

5230  END  IF 
5240  Anhelo:NEXT  Helo 
5250  GOTO  Menu 

5260  L6: GOSUB  Map  'PRINT  CONCEPTUAL  MAP  OF  ROUTES 
5270  PRINT  "ENTER  DATA  FOR  THE  7  MAP  ROUTES:  ENTER  A  <0>  IF  THAT 
ROUTE  WON'T  BE  USED" 

5280  PRINT  "ENTER  THE  DATA  AS  FOLLOWS: " 

5290  PRINT  "ENTER  THE  DISTANCE  IN  STATUTE  MILES  FOR  EACH  ROUTE:” 
5300  FOR  1=1  TO  7 

5310  PRINT  TABXY(0,23) ; "FOR  ROUTE:  ";I;"  .ENTER  THE  "; Label s*( 
I) 

5320  INPUT  Route ( I ) 

5330  NEXT  I 

5340  L61 : FOR  1=1  TO  7 

5350  PRINT  "ROUTE  ";I;"  DISTANCE:  ";Route(I> 

5360  NEXT  I 

5370  INPUT  "ANY  CHANGES " , A* 

5380  IF  A*="Y"  THEN 

5390  L62: INPUT  "ENTER  < ROUTE , D I STANCE > :  0,0  TO  CEASE  CHANGE", II, I 
2 

5400  IF  11=0  THEN  GOTO  L61 
5410  Routed  1)=I2 
5420  GOTO  L62 

5430  END  IF 

5440  ! CONVERT  MILES  TO  NAUTICAL  MILES 

5450  FOR  1=1  TO  7 

5460  Route ( I ) “Route ( I ) /I . 1 

5470  NEXT  I 

5480  GOTO  Menu 
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Table  9-3.  Movement  code  (continued). 

5490  L7: PRINT  “ENTER  CARGO  DATA  AS  FOLLOWS: " 

5500  L71: INPUT  “ENTER  ELEMENT  «  OF  ITEM,  HOW  MANY  TO  MOVE:  ENTER 

0,0  TO  CEASE  DATA  INPUT", II, 12 

5510  IF  I 1-0  THEN  GOTO  L72 

5520  IF  Typecargo=l  THEN 

5530  ! FORCE  'A' 

5540  IF  11=1  OR  11=6  OR  11=8  OR  11=9  OR  11=9  OR  11=13  THEN 
5550  PRINT  “ITEM  “;I1;“  CANNOT  BE  MOVED  BY  HELICOPTER" 

5560  GOTO  L71 

5570  END  IF 

5580  ELSE 
5590  ! FORCE  ’B’ 

5600  IF  11=1  C«  11=2  OR  11=3  OR  11=10  OR  11=12  OR  11=13  THEN 
5610  PRINT  “ITEM  “jllj"  CANNOT  BE  MOVED  BY  HELICOPTER" 

5620  GOTO  L71 

5630  END  IF 

5640  END  IF 

5650  PRINT  12;"  OF  ITEM  ";I1;“  ARE  TO  BE  MOVED" 

5660  INPUT  "CORRECT", A* 

5670  IF  A*="N“  THEN  GOTO  L71 
5680  Cargodl,  1)=I2 

5690  IF  11=16  THEN  'SEPERATE  OUT  MIS 

SILES 

5700  Cargod,  l)=6tI2 

5710  PRINT  "MISSILES  FOR  ITEM  16  WILL  BE  STORED  IN  CARGO  ITEM 
1" 

5720  END  IF 
5730  GOTO  L71 

5740  L72: PRINT  "ELEMENT  NUMBER  OF  ITEMS  TO  MOVE" 

5750  FOR  1=1  TO  22 

5760  PRINT  TAB (4) j I;TAB<22> ; Cargo<I, 1) 

5770  NEXT  I 

5780  INPUT  “ANY  CHANGES?", A* 

5790  IF  A»="Y“  THEN  GOTO  L71 
5800  GOTO  Menu 

5810  L8:  ASSIGN  ©P  TO  " LOGDAT A :HP9 134, 701, O" ! RECORD  SELECTED  DATA 
FOR  RERUNS 

5820  OUTPUT  @P, l ; Startt i me, Temp, A1 ti tude, Chstat , Neopts <*> , SI ing ( 
* ) , Fuelusstat ( t) , Route ( t) , Cargo (t) , Cstartti me 


5830 

ASSIGN  ©P  TO  * 

5840 

PRINTER  IS  702 

5850 

PRINT  "  " 

5860 

PRINT  “  " 

5870 

IF  Typecargo=l 

THEN 

5880 

PRINT  "FORCE 

'A'  CARGO  TO 

MOVE: " 

5890 

ELSE 

5900 

PRINT  "FORCE 

'B ’  CARGO  TO 

MOVE: " 

5910 

END  IF 

5920 

PRINT  "SUMMARY 

OF  CARGO  TO  BE  MOVED:" 

5930 

PRINT  "  NOTES:  1-  ITEM 

1  IS  MISSILES 

FOR  ITEM 

16" 

5940 

PRINT  “ 

2-  ITEM 

22  IS  TROOPS 

INCLUDING 

WEAPON  C 

REWS" 

Table  9-3.  Movement  code  (continued). 


5950  PRINT  “  " 

5960  PRINT  "ITEM: TAB <20) ; TO  MOVE" ; TAB (35) ; "ITEM: "j TAB (55) ; " 

#  TO  MOVE- 

5970  FOR  1=1  TO  11 

5980  PRINT  I ; ;Firer4 (Typecargo, I ) ;TAB<20) ; Cargo (1,1); TAB (35 
)  ;  14-11;  -;Firer$(Typecargo,  1+11)  ;TAB<55) ;  Cargo  (1+11, 1) 

5990  NEXT  I 
6000  PRINT  M  “ 

6010  PRINT  "ROUTE" ; TAB < 13) ; -DISTANCE- 
6020  FOR  1=1  TO  7 

6030  PRINT  TAB (3) ; I ; TAB ( 13) ; I NT ( (Route ( I ) >1 . 1 ) *100. ) /lOO. ; TAB ( 
25) ; Label s*(I) 

6040  NEXT  I 
6050  PRINT  "  - 
6060  PRINT  "  " 

6070  PRINTER  IS  1 

6080  GOSUB  Cat set  !SET  ALTITUDE, TEMP  CATEGORIES  FOR  ARRAY  USE 
6090  ! 

6100  'DETERMINE  HOW  MUCH  FUEL  CAN  BE  CARRIED  ON  HELO'S 
6110  FOR  H=1  TO  2 

6120  IF  Ncopts  <H) =0  THEN  GOTO  Newhl 
6130  Fuel r  <H)  =.  5* (Max  f 1 oh (H, A1 teat , Teat ) ) 

6140  FOR  1=1  TO  Neopts(H) 

6150  Copter  (H,  1, 3) “Fuel r  (H) •HLowwt  (H) 

6160  NEXT  I 

6170  IF  Fuelusstat  <H) =1  THEN  !1  HOUR  FUEL 

6180  FOR  1=1  TO  Ncopts (H) 

6190  IF  Copter (H, 1,3) +2*Fuelr (H) <Copter (H, 1,3) +Fuel cap (H) 

THEN 

6200  Copter <H, I, 3) “Copter <H, 1,3) +2*Fuelr<H) 

6210  ELSE 

6220  Copter (H, 1,3) “Copter (H, 1,3) +Fuelcap (H) 

6230  END  IF 

6240  IF  Copter (H, I, 3) +2*Fuelr (H) >Copter (H, I , 3) ♦Fuel cap (H) 

THEN 

6250  Copter (H, 1,8) “Fuelcap (H) -Fuelr (H) 

6260  ELSE 

6270  Copter (H, 1,8) =2*Fuelr (H) 

6280  Fuel <H, 1) “Copter (H, I, S) 

6290  END  IF 

6300  NEXT  I 

6310  ELSE  ! FULL  FUEL 

6320  FOR  1=1  TO  Ncopts (H) 

6330  Copter  <H, 1,3) “Copter (H, 1 , 3)  +Fuelcap  <H) -Fuelr (H) 

6340  Copter (H, I, 8) “Fuel cap (H) -Fuelr  <H) 

6350  Fuel (H, 2) “Copter (H, 1,8) 

6360  NEXT  I 

6370  END  IF 

6380  Newhl : NEXT  H 

6390  GOSUB  Speedscren  !SET  SPEED  TO  FLY  AT 

6400  FOR  1=1  TO  2 

6410  IF  Wta(I) >Wtcap(I)  THEN  Wta < I > “Wtcap < I ) 
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Table  9-3.  Movement  code  (continued). 


6420  IF  Copter (I, 1,3) >Wta(I)  THEN 

6430  PRINT  "FUEL  LOAD  ON  " ; Hnanet ( I ) ; "TOO  HEAVY" 

6440  PRINT  "RERUN  WITH  NEW  ALT/TEMP/SPEED  OR  FUEL  USE" 

6450  STOP 

6460  END  IF 
6470  NEXT  I 

6460  SOSUB  Wtal lowed  'SET  HELO  WT  ELEMENT  IN  ARRAY,  AND  INITIA 

LIZE  OTHERS 

6490  'INITIALIZE  SCHEDULE  ARRAY 

6500  FOR  1-1  TO  100  'INITIALIZE  SCHEDULE  ARRAY  TO  O 

6510  Schedul e ( I , 1 ) -0 

6520  Schedul  e<  1, 2)  -O 

6530  Schedul  e ( 1 , 3)  *=0 

6540  NEXT  I 

6550  RETURN 

6560' ************************************************************ 
****** ***** 

6570  Dfuel check:  •  SAME  AS  X FUEL CHECK  EXCEPT  TIME  COMPUTED  AND 

PUT  IN  TEMPUS 

6580  '  AND  A  STATUS  VARIABLE  IS  SET  IF  ANY  HELO  HAS 

INSUFFICIENT 

6590  !  FUEL  TO  MAKE  THE  TRIP  INDICATED 

6600  Xstatus-1 

6610  Fuel  1-0 

6620  Fuel 2-0 

6630  Tempi (l)-O 

6640  Tempi (2) -O 

6650  FOR  1-1  TO  2 

6660  IF  Leg  <1)00  THEN  Tempi < I ) -Route (Leg ( I )) /FI ightsped (Helo) 
6670  NEXT  I 

6680  Oh 1-<F1 ightsped (Helo) -20) /20 

6690  IF  Leg<2)00  THEN  Fuel2-Templ  (2)  *Fuelarray  (Helo,  A1  teat, Teat 
,Ohl,Legwt  (2) ) 

6700  IF  Leg  <1)00  THEN  Fuel  1-Templ  (1)  *Fuel  array  (Helo,  Altcat, Teat 
, Oh 1 , Legwt ( 1 ) ) 

6710  Tempus— Tempi <l)-*-Templ (2) 

6720  Fuel need-Fuel 1 +Fuel 2 
6730  FOR  1-1  TO  Ncopts(Helo) 

6740  IF  Copter (Helo, I , 8) <Fuel need  THEN  Xstatus-0 
6750  NEXT  I 
6760  RETURN 

6770  ft********************************************************** 
********* 

6780  Findwt:  !  DETERMINE  THE  MAX  WEIGHT  OF  HELO’S  IN  THE  GROU 

P 

6790  Maxwt  (Helo)-O 

6800  FOR  1-1  TO  Ncopts(Helo) 

6810  IF  Maxwt (Helo) CCopter (Helo,  1, 10)  THEN  Maxwt (Helo) -Copter < 
Helo, I, 10) 

6820  NEXT  I 
6830  RETURN 

6840  !*********************************************************** 
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Table  9-3.  Movement  code  (continued). 


mmttt 

6850  Cataet:  !  SET  TEMP  AND  ALT  CATEGORIES  TO  USE  IN  ARRAYS 

6860  Te«puse=INT((Te«p+.5)/10)*10 

6870  IF  Teepuse>40  THEN  Tempuse=40 

6880  IF  Te«puse<-10  THEN  T empuse«- 1 0 

6890  Tcat=INT((Te*puse+20)/10) 

6900  Altcat=INT( (Altitude) /2000)+l 
6910  IF  AltcatCl  THEN  Altcat-1 
6920  IF  A1 teat >6  THEN  Altcat-6 
6930  RETURN 

6940  !  mmmmutmmmmmmmmmmmtmtm 

tmttmtm 

6950  Drop:  ! 

6960  Dr op count (Hel o) =Dr opcount (Helo)+l  1  COUNT  #  OF  SORT 

IES 

6970  ! SET  BEGINNING  TIME  OF  EVENT  TO  GREATER  OF  WHEN  FACILIT 

Y  LAST 

6980  ! FREED  OR  WHEN  HELOS  CAN  ARRIVE,  AND  ZERO  THE  EVENT  FRO 

M  THE  SCHEDULE 

6990  IF  Faciltiee(2XSchedule(Which,3)  THEN  Faciltime(2)=Schedul 
e<Which, 3) 

7000  Schedule (Which, 1)=0 
7010  Schedule(Which,2)=0 
7020  Schedule (Which ,3) =0 
7030  GOSUB  Wtal lowed 
7040  FOR  1=1  TO  Nc opts (Hel o) 

7050  Copter (Hel o, 1,7) =0 

7060  ! CARGO  SPACE  USED  RESET  TO  ZERO 

7070  NEXT  I 

7080  Faci 1 time (2) =Faci 1 time (2) +. 25  ! FLAT  15  MIN.  TO  UNLOAD  C 

ARGO 

7090  Fhelo(Helo)«Faciltime(2) 

7100  IF  Hel o=l  AND  Flaga=0  AND  Chstat=l  THEN  !CH47D  USED  AS 

NEEDED  AND 

7110  GOSUB  Chneed  !NOT  ALREADY  SE 

NT  HOME 

7120  IF  FI ag=0  THEN 
7130  Point=2 

7140  GOSUB  Coptdone  !  NOT  NEEDED,  SEND  HOME 

7150  Flaga=l 

7160  GOTO  Outit 

7170  END  IF 

7180  END  IF 

7190  Qui=0 

7200  FOR  1  =  1  TO  22 

7210  IF  Cargod,  1)=0  THEN  GOTO  Nex  i  !  SCREEN  OUT  BY  DON'T  NEE 
D  REASONS 

7220  IF  Cargo  <  1 , 2 )  <  >Hel  o  AND  Cargo  (I,  2)  03  THEN  GOTO  Nexi 
7230  IF  Cargod ,2)  =Helo  AND  SI  ing  (Helo)=0  AND  (Cargod, 5)  MOD 
10=1)  THEN  GOTO  Nexi 

7240  IF  Cargod  ,3)  >Copter  (Helo,  1,2)  THEN  GOTO  Nexi 
7250  IF  Car go (1,2) =3  THEN 
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Table  9-3.  Movement  code  (continued). 

7260  IF  Helo=l  AND  Sling(l)=0  AND  INT (Cargo ( I , 5> / 100) =1 1  THE 

N  GOTO  Nexi 

7270  IF  Helo=2  AND  Sling(2)=0  AND  (Cargo(I,5>  MOD  100)=21  TH 

EN  GOTO  Nexi 
7280  END  IF 

7290  Uui-1  ! GETS  HERE  IF  THIS  HELD  NEEDED  TO  CARRY  IT 

7300  Nexi: NEXT  I 

7310  IF  Qui=0  OR  Cargoflag=0  THEN  !NOT  NEEDED,  SEND  HOME 

7320  Poi nt=2 

7330  GOSUB  Coptdone 

7340  GOTO  Out it 

7350  END  IF 

7360  What-4  !SET  WHAT=4  FOR  UHAUL  TO  COMPUTE  TRIP  BACK  FR 

OM  DROP  ZONE 

7370  Fuelend (Helo) =Totf uelusd (Helo) 

7380  FOR  1=1  TO  Ncopts(Helo) 

7390  Dropfuel (Helo, I)=Copter (Helo, 1,8) 

7400  NEXT  I 
7410  GOSUB  Uhaul 
7420  Outit: RETURN 

7430  !  ummmtutuftmmmmmummtmutttmm 

ttttttttt 

7440  Loader:  ! 

7450  Check* 1 
7460  Check 1=0 

7470  'SET  TIME  FACILITY  CAN  BE  ENGAGED  TO  BE  MAX (TIME  FACILITY 
LAST  FREED, 

7480  ! TIME  HELO’S  ARRIVE),  THEN  ZERO  EVENT  FROM  SCHEDULE  ARRAY 
7490  IF  Faci  1  time  ( 1 )  <  Schedule  (Which,  3)  THEN  Faciltin»e(l)=Schedul 
e (Which, 3) 

7500  Schedule (Which, 1 )=0 

7510  Schedule(Miich,2)=0 

7520  Schedule(Which,3)=0 

7530  ! SCREEN  FOR  CH  NEED 

7540  !FLAGA=1  IF  CH’S  FINISHED  ALREADY 

7550  IF  Flaga=0  AND  Helo*l  AND  Chstat-l  THEN 

7560  GOSUB  Chneed 

7570  IF  Flag=0  THEN 

7580  Outit5:Point=l 

7590  GOSUB  Coptdone 

7600  IF  Helo* l  THEN  Flaga=l 

7610  GOTO  Quit 10 

7620  END  IF 

7630  END  IF 

7640  Check =0 

7650  FOR  1=1  TO  22  !SEE  IF  CARGO  LEFT 

TO  MOVE 

7660  IF  Cargod,  1)00  THEN  Check=Check+l 
7670  NEXT  I 

7680  IF  Check-O  THEN  GOTO  OutitS 
7690 

7700  IF  Cargo (22, 1)00  THEN 


!  LOAD  INFANTRY 


Table  9-3.  Movement  code  (continued). 

7710  Check 1=1 

7720  FOR  I«1  TO  Ncopts(Helo) 

7730  IF  He 1 o=l  THEN 

7740  Troops“33 

7750  IF  Troops >Cargo( 22, 1 )  THEN  Troops=Cargo (22, 1 ) 

7760  ELSE 

7770  Troops* 11 

7780  IF  Tr oops >Car go (22, 1 )  THEN  Troops=Cargo (22, 1 > 

7790  END  IF 

7800  IF  (Copter (Helo, I, 10)+Troops*250) >Wta (Helo)  THEN 

7810  Troops*INT( (Wt a (Helo) -Copter (Helo, 1,10)) /250) 

7820  END  IF 

7830  IF  (Troops<=0)  THEN 

7840  PRINT  "NO  WEIGHT  ALLOWANCE  FOR  TROOPS - STOPPING" 

7850  STOP 

7860  END  IF 

7870  Cargo (22, 1 ) “Cargo (22, 1 ) -Troops 

7880  Copter (Helo, I , lO) “Copter (Helo, I , 10) +Troops*250 

7890  IF  (Troops=33  AND  Helo=l)  OR  (Troops=l 1  AND  Helo=2>  THE 

N 

7900  Copter (Helo, I , 7) “Copter (Helo, 1,6) 

7910  ELSE 

7920  IF  He 1 0=1  THEN 

7930  Copter (Helo,  I, 7) “Copter (Helo, 1 , 6) -Troops* (366/33) 

7940  ELSE 

7950  Copter (Helo, I , 7) “Copter (Helo, I , 6) -Troops* (151/11) 

7960  END  IF 

7970  END  IF 

7980  PRINTER  IS  1 

7990  IF  Cargo (22, 1)<=0  THEN  GOTO  Loadsling 

8000  AnotherisNEXT  I 
8010  END  IF 

8020  ! LOAD  S 

LINGS 

8030  Loadsling:.1 

8040  FOR  Copt“l  TO  Ncopts(Helo) 

8050  FOR  0=1  TO  2 
8060  FOR  1=1  TO  21 

8070  IF  Cargod,  1)<=0  THEN  GOTO  Newi  1 

8080  IF  Cargo ( 1 , 2)< >Hel o  AND  Cargo (1,2)03  THEN  GOTO  Newi  1 

8090  IF  Q“1  THEN  ! SLING  ONLY  ITEMS 

ON  PASS  1 

8100  IF  Cargo (I, 2) =3  THEN 

8110  IF  INT  (Cargod, 5)  /10O)  MOD  1001  AND  Helo=l  THEN 

GOTO  Newi 1 

8120  IF  Cargod,  5)  MOD  1001  AND  Helo=2  THEN  GOTO  Newi 

1 

8130  ELSE 

8140  IF  Cargo  (1,5)  MOD  1001  THEN  GOTO  Newi  1 

8150  END  IF 

8160  END  IF 

8170  IF  Cargo (I, 2) “3  THEN  ! SCREEN  NON-SL INGABLES;  LOAD  I 
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Table  9-3.  Movement  code  (continued). 


NTERIOR  LAST 

8180  IF  < I NT (Cargo ( I , 5) /lOO)  MOD  10) =3  AND  Helo=l  THEN  G 

OTO  Newil 

8190  IF  (Cargo (I, 5)  MOD  10) =3  AND  Helo=2  THEN  GOTO  Newil 

8200  ELSE 

8210  IF  (Cargo (I, 5)  MOD  10>=3  THEN  GOTO  Newil 

8220  END  IF 

8230  Reload:  ! 

8240  IF  Copter (Helo, Copt, 10) +Cargo (1,3) >Wta (Helo)  THEN  GOT 

O  Newil 

8250  Copter  (Helo,  Copt,  10)  =  Cop  ter  (Helo,  Copt,  10)+Cargo  (1,3) 

8260  Cargod,  l)=Cargo(1, 1)-1 

8270  Check 1=1 

8280  IF  Cargo (1,1) <=0  THEN  GOTO  Newil 

8290  GOTO  Reload 

8300  Newil: NEXT  I 

8310  NEXT  Q 

8320  NEXT  Copt 

8330  ! LO 

AD  INTERIOR 

8340  Loadinside:  ! 

8350  FOR  Copt«=  1  TO  Ncopts(Helo) 

8360  IF  Copter (Helo, Copt, 7) >=Copter (Helo, Copt, 6)  THEN  GOTO  Get 
acoptr 

8370  FOR  Q=1  TO  2 
8380  FOR  1=1  TO  21 

8390  IF  Cargod,  1)<=0  THEN  GOTO  Nexil 

8400  IF  Car  go  (1 , 2 )  <  >Hel  o  AND  Cargod,  2)03  THEN  GOTO  Nexil 

8410  IF  Q=1  THEN  !  LOAD  INTERIOR  ONLY  ITEMS 

ON  PASS  1 

8420  IF  Cargo (1,2) =3  THEN 

8430  IF  INT (Cargo  (1,5)  /100)  MOD  1003  AND  Helo=l  THEN 

GOTO  Nexil 

8440  IF  Cargod, 5)  MOD  10<>3  AND  Helo=2  THEN  GOTO  Nexi 

1 

8450  ELSE 

8460  IF  Cargo (1,5)  MOD  1003  THEN  GOTO  Nexil 

8470  END  IF 

8480  END  IF 

8490  IF  Cargo (1,2) =3  THEN 

8500  IF  INT  (Cargod,  5) /lOO)  =11  AND  Helo=l  THEN  GOTO  Nexi 

1 

8510  IF  Cargo (1,5)  MOD  10=1  AND  Helo=2  THEN  GOTO  Nexil 

8520  ELSE 

8530  IF  Cargo (1,5)  MOD  10=1  THEN  GOTO  Nexil 

8540  END  IF 

8550  Morein:  !  IF  IT  GETS  HERE,  ITEM  CAN  GO  INSIDE 

8560  IF  Wta(HeloXCopter  (Helo, Copt,  10) +Cargo (1,3)  THEN  GOT 

O  Nexil 

8570  Sizex=Cargo(I,9) 

8580  IF  Copter (Helo, Copt, 6)<Copter (Helo, Copt, 7>+Sizex  THEN 

GOTO  Nex i 1 
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Table  9-3.  Movement  code  (continued). 


8590  Copter (Helo, Copt , 7) =Copter (Helo, Copt,  7) +Sizex 

8600  Copter (Helo, Copt, 10) =Copter (Hel  o,  Copt,  10) +Cargo (1,3) 

8610  Cargo (1,1) “Cargo ( I , 1 ) — 1 

8620  Check 1=1 

8630  IF  Cargod,  1)<=0  THEN  GOTO  Nex  i  1 

8640  GOTO  Morein 

8650  Nexi IsNEXT  I 

8660  NEXT  Q 

8670  Getacoptr:NEXT  Copt 

8680  IF  Check 1=0  THEN  !N0  CARGO  COULD  BE  LOADED  THIS  TIM 

E 

8690  Point=l 

8700  GOSUB  Coptdone 

8710  PRINTER  IS  1 
8720  PRINT  "  M 

8730  PRINT  "  " 

8740  PRINT  "NO  CARGO  COULD  BE  LOADED  ON:  " ; Hname* (Hel o) ; ”  THIS 
TIME  .  HELO  SENT  TO  DESTINATION. “ 

8750  PRINT  "  ” 

8760  PRINT  "  ■ 

8770  GOTO  QuitlO 

8780  END  IF 

8790  ! ALL  COPTERS  OF  TYPE  HELO  ARE  LOADED 

8800  T i meused= . 25 

8810  Faci  I  timed  )  =Faci 1 time( 1 )  +Timeused  !  ADD  IN  FLAT  15  MIN. 

TO  LOAD  CARGO 

8820  What =2  !SET  WHAT=2  FOR  UHAUL  TO  COMPUTE  TRIP  FROM  LOAD 

POINT 

8830  GOSUB  Uhaul 

8840  ! TRIP  COMPLETED,  READY  TO  GOTO  DROP:  SEE  WHAT  WAS  CARRIE 

D" 

8850  Cargo-flag=0 
8860  FOR  1=1  TO  22 
8870  IF  Cargo (I , 1 ) <  >0  THEN 
8880  Cargoflag=l 

8890!  PRINT  Cargod,  1);"  OF  ITEM  M;I;”  LEFT” 

8900  END  IF 

8910  NEXT  I 
8920  QuitlO: RETURN 

8930  ! ******************************************************** 

******** 

8940  Scheduler:  ! 

8950  Minx=l.E+6 

8960  What=0  ! INITIALLY,  NOTHING  TO  BE  DONE 

8970  Which=0 

8980  Hel o=0 

8990  FOR  1=1  TO  100 

9000  IF  Scheduled,  1)=0  THEN  GOTO  Loop  it 
9010  IF  Scheduled,  3) <Minx  THEN 

9020  Mi nx=Schedule ( 1,3) 

9030  What “Schedule (1,2)  !SET  WHAT  TO  NEXT  EVENT  TO  OCCUR 

<1  OR  3> 
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Movement  code  (continued). 


Table  9-3. 


9040  Which- I 

9050  END  IF 
9060  LoopitrNEXT  I 

9070  IF  What— O  THEN  ! NOTHING  LEFT  IN  SCHEDULE  ARRAY,  PRI 

NT  SUMMARY 

9080  GGSUB  Summary 

9090  END  IF 

9100  When— Minx 

9110  Helo— Schedule (Which,  1 ) 

9120  RETURN 

9130  !  mmtmtmmmmtmmtimmimmmtmttmtu 
$*tmm 

9140  Refuel s ! 

9150  Lowf  —500000 

9160  FOR  1-1  TO  Ncopts (Helo) 

9170  IF  Copter (Helo, 1,8) <Lowf  THEN  Lowf -Copter (Helo, 1,8) ! FIND 
GREATEST 

9171  ! FUEL 
NEEDED 

9180  NEXT  I 

9190  Fuelin-Fuel (Helo, Fuelusstat (Helo) >-Lowf 
9200  Timef-Fuel in/ (37*6*60)  ! REFUEL  TIME  IN  HOURS 

9210  X— X+Timef 
9220  FOR  1-1  TO  Ncopts (Helo) 

9230  Copter (Helo, 1,8) -Fuel (Helo, Fuelusstat (Helo) ) 

9240  Totf uelusd (Helo) -Tot fuel usd (Helo) +Fuel in 

9250  NEXT  I 

9260  Kal 1 i t— Kal 1 i t+1  ! COUNT  NUMBER  OF  TIMES  REFUEL  POINT  USED 

9270  RETURN 

9280  ! *********************************************************** 
***** 

9290  Uhaul : ! 

9300  X-0 

9310  IF  What— 2  THEN  ! WORKING  ON  TRIP  TO  DROP  ZONE 

9320  GOSUB  Findwt 

9330  IF  Helo— 2  THEN  !SET  MAXIMUM  WEIGHT  CLASS  OF  HELO 
9340  Legwt ( 1 ) — INT ( ( (Maxwt (Helo) -Lowwt (Helo) ) /2000)+l) 

9350  ELSE 

9360  Legwt  ( 1 )  —  INT ( ( (Maxwt  (Helo) -Lowwt  (Helo)  )  /4000)-*-l) 

9370  END  IF 

9380  IF  Legwt  (1X1  THEN 

9390  PRINT  "ERROR  IN  LEG  WT  IN  UHAUL  ROUTINE" 

9400  LOAD  "DIME:HP9134, 701,0" 

9410  END  IF 

9420  IF  Legwt  (1X1  THEN  Legwt  (1)-1 

9430  T1 eg 1 -Legwt (1)  ! STORE  LEG  1  WEIGHT 

9440  Legwt (2) =1  !LEG  WEIGHT  OF  SECOND  LEG— LOWWEST  CLASS 

9450  Leg ( 1 ) —3  ! AT  LOAD,  SEE  IF  CAN  GO  LEG3  LOADED  AND  L 

EG5  UNLOADED 

9460  Leg (2) -5 

9470  GOSUB  Xfuel check 

9480  Ti 1 1 1-Fuel need 
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Table  9-3.  Movement  code  (continued). 

9490  IF  Till 1< “Copter (Helo, 1,8)  THEN  !CAN  DROP  CARGO  AND  R 

EFUEL 

9500  Legwt ( 1 ) =T1 eg 1 

9510  GOTO  Trip 

9520  END  IF 

9530  Leg  ( 1 )  =4 

9540  Leg (2) — O 

9550  GOSUB  Xfuel check 

9560  Till 2— Fuel need 

9570  Leg  < 1 ) *5 

9580  Leg (2) “5 

9590  GOSUB  Xfuel check 

9600  Ti 1 13— Fuel need 

9610  Spokay— O 

9620  IF  Till 2< -Copter (Helo, 1,8)  AND  Ti 1 1 3<=Fuel (Helo, Fuelussta 

t (Helo) )  THEN 

9630  Leg ( 1 ) -4 

9640  Leg (2)— O 

9650  GOSUB  Dfuel check 

9660  F  Xstatus— O  THEN  LOAD  “DIME:  HP9134,  701 ,  O'* 

9670  X— Tempus 

9680  GOSUB  Refuel 

9690  Leg ( 1 ) -5 

9700  Leg (2) =0 

9710  GOSUB  Dfuel check 

9720  IF  Xstatus-0  THEN  LOAD  "DIME: HP9134, 701 , O" 

9730  Mi lesf lown (Helo) =Mi lesf lown (Helo) +Route (4) +Route (5) 

9740  GOTO  Checker 

9750  END  IF 

9760  PRINT  "OHBOY  SOMETH I NGWRONGHASGONE " 

9770  LOAD  "DIME: HP9134, 701 , O" 

9780  END  IF 

9790  IF  What— 4  THEN  ! WORKING  ON  TRIP  FROM  DROP  ZONE  TO  LOAD 

POINT 

9800  IF  Helo— 2  THEN 

9810  Legwt (1)-INT( ( (Wta (Helo) -Lowwt (Helo) ) /2000)+l) 

9820  ELSE 

9830  Legwt (1)-INT( ( (Wta (Hel o) -Lowwt (Hel o) ) /4000) +1 ) 

9840  END  IF 

9850  Legwt (2) -1 

9860  Leg ( 1 ) -4 

9870  Leg (2) -3 

9880  GOSUB  Xfuel check 

9890  IF  Fuelneed<-Copter (Helo, 1,8)  THEN 

9900  Legwt (1)-1 

9910  GOTO  Trip 

9920  END  IF 

9930  Leg ( 1 ) -O 

9940  Leg (2) -5 

9950  GOSUB  Xfuel check 

9960  Ti 1 1 1— Fuel need 

9970  Leg ( 1 ) -O 
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Table  9-3.  Movement  code  (continued). 


9980  Leg  (2)— 4 

9990  60SUB  Xfuel check 

10000  Til 12— Fuel need 

10010  Leg ( 1 ) -4 

10020  Leg(2)-0 

10030  GOSUB  Xfuel check 

10040  Till 3— Fuel need+T i 1 1 2 

10050  IF  TilllC-Copter (Helo, 1,8)  AND  Ti 1 13< -Fuel (Helo, Fuel ussta 

t (Hel o) >  THEN 

10060  Leg ( 1 ) — 0 

10070  Leg (2) -5 

10080  GOSUB  Dfuel check 

10090  X— Teepua 

10100  GOSUB  Refuel 

10110  Leg (2) -4 

10120  GOSUB  Dfuel check 

10130  Milesf lown (Helo) -Mi  leaf lown (Helo)+Route(4)+Route(5) 

10140  GOTO  Checker 

10150  END  IF 

10160  PRINT  "MYOHMY  YOUBLEW I TAGA IN" 

10170  LOAD  "DIME: HP9134, 701,0" 

10180  END  IF 
10190  Trip: ! 

10200  Leg  < 1 ) —3 
10210  Leg (2) — O 

10220  Mi lesf lown (Helo) -Mi leaf lown (Helo)  +Route (3) 

10230  GOSUB  Dfuel check 
10240  Checker : X— X+Teepus 
10250  FOR  1-1  TO  Ncopts(Helo) 

10260  Copter (Helo, I ,8)— Copter (Helo, I , 8) —Fuel need 

10270  NEXT  I 

10280  IF  What— 2  THEN  That-3  ! TRIP  TO  DROP  COMPUTED,  SCHEDULE 

CARGO  DROP 

10290  IF  What— 4  THEN  That-1  !TRIP  TO  LOAD  COMPUTED,  SCHEDULE 

LOADING 

10300  FOR  1-1  TO  lOO 
10310  IF  Scheduled,  l)-0  THEN 
10320  Scheduled,  1) -Helo 

10330  Schedule (1,2) -That 

10340  Scheduled, 3) -Faci  1 1 ime (What/2) -t-X  ! RECORD  EARLIEST  HELO 
’S  CAN  ARRIVE 

10341  !  AT  < WHAT— 2, L0AD>  < WHAT-4 , DROP >  FACILITY=TIME 
LEFT+TRIP  TIME 

10350  GOTO  Outitl 

10360  END  IF 
10370  NEXT  I 
10380  Outitl s RETURN 

10390! *************** 

ttmttm 

10400  Chneed: !  CHECK  ALL  REASONS  WHY  CH47D  MAY  STILL  BE  NEEDED 

10410  Flag-0 

10420  FOR  1-1  TO  22 
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Table  9-3.  Movement  code  (continued). 


10430  IF  Cargo ( 1 , 1 >  =0  THEN  GOTO  Ani  10 

10440  IF  Cargo (I, 2) -1  AND  Copter ( 1 , 1 , 2) >=Cargo ( I , 3)  THEN  Flag=l 
10450  IF  Copter (2, 1, 2) <Cargo (I , 3)  AND  Copter (1, 1,2) >=Cargo( I, 3> 
AND  NOT  (Sling (1)=0  AND  INT (Cargo ( 1 ,5) /100)  =1 1  >  THEN  Flag-1 
10460  IF  Sling  (2)  =0  AND  Sling  (1)00  AND  Cargo ( 1 , 5)  =1 121 .  AND  Co 
pter (1,1,2) >— Cargo (1,3)  THEN  Flag=l 
10470  IF  Cargo (I, 2) =3  THEN 

10480  IF  SI ing ( 1 ) =0  AND  INT (Cargo ( I , 5) /100) -1 1  THEN  GOTO  Anil 

O 

10490  IF  Sling  (2)  -O  AND  (Cargo(I,5)  MOD  100) -21  AND  Copter  (1, 

1,2) >=Cargo(I,3)  THEN  Flag=l 

10500  END  IF 

10510  Ani lO: NEXT  I 

10520  RETURN 

10530!  *********************************************************** 
************ 

10540  Wt all owed:!  SET  WT  ELEMENTS  OF  COPTER  ARRAY 
10550  FOR  Xhelo- 1  TO  2 

10560  FOR  1*1  TO  Ncopts (Xhelo)  !WTA-MAX  WT  OF  HELO  (1)  AND  (2) 
10570  IF  Ncopts (Xhelo) *0  THEN  GOTO  Getanewi 

10580  Copter (Xhelo, 1,4) =Wta( Xhelo)  !MAX  WT  ALLOWED  AT  THIS 

TEMP, ALT, SPD 

10590  Copter (Xhelo, I, 2) =Wta(Xhelo) -Copter (Xhelo, 1,3)  !MAX  CA 

RGO  WT  ALLOWED 

10600  Copter (Xhelo, I, 10) -Copter ( Xhelo, 1,3)  ! CURRENT  HELO  WT 

COUNTER 

10610  Getanewi: NEXT  I 
10620  NEXT  Xhelo 
10630  RETURN 

10640! *********************************************************** 
********** 

10650  Summary: ! 

10660  INPUT  "SCREEN  (S)  OR  PRINTER  (P)  SUMMARY? ", C* 

10670  PRINT  "PRINTING  SUMMARY" 

10680  IF  C*=“P"  THEN  PRINTER  IS  702 
10690  Timedone— Faci 1 time (3) 

10700  IF  Timedone<Faci ltime(4)  THEN  Timedone— Faci ltime(4> 

10710  FOR  1-1  TO  B 
10720  PRINT  "  " 

10730  NEXT  I 

10740  Daystaken— INT(Timedone/24) 

10750  Clockdone— (Timedone+Startti me)  MOD  24 
10760  Clockhr=INT (Clockdone) 

10770  IF  ClockhrCIO  THEN 
*  10780  Clockhr*-"0"&VAL*(Clockhr> 

10790  ELSE 

10800  Clockhr*=VAL*(Clockhr) 

10810  END  IF 

10820  Clockmin-INT(DROUND< (Clockdone  MOD  1)*60,2>) 

10830  PRINT  “START  TIME  WAS:  "jCstarttime 
10840  IF  Chstat-1  THEN 

10850  PRINT  "CH47D  USED  ONLY  AS  NEEDED" 
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Table  9-3.  Movement  code  (continued). 


10860  ELSE 

10870  PRINT  "CH47D  USED  FULLY" 

10880  END  IF 

10890  PRINT  "TIME  REQUIRED  (IN  HOURS)  UNTIL  ALL  CARGO  HAS  BEEN  DE 
LIVER ED:  "; 

10900  PRINT  I NT (Faci  It  i  me  (2) *100) /100 
10910  PRINT  "  “ 

10920  PRINT  "LAST  COPTER  AT  DESTINATION  AT  ";Clockhr«; 

10930  IF  ClockminCIO  THEN 
10940  PRINT  “0"8tVAL*  (Cl ockmi n ) 

10950  ELSE 

10960  PRINT  VALS (Clockmin) 

10970  END  IF 
10980  PRINT  "  " 

10990  PRINT  "  " 

HOOO  PRINT  TAB (20) ;  Hnainet  ( 1 ) ;  TAB  (30) ;  Hnamei  (2) 

11010  PRINT  "  " 

11020  PRINT  "#  OF  HELOS  USED" ; TAB (20) ; Ncopts ( 1 ) ; TAB (30) ; Ncopts (2) 
11030  PRINT  "NUMBER  OF  SORTIES" j TAB (20) ; Dropcount ( 1 ); TAB (30) ; Drop 
count (2) 

11040  PRINT  "SPEED  FLOWN" ; TAB (20) 5 FI ightsped ( 1 ) ; TAB (30) ; FI ightspe 
d  (2) 

11050  PRINT  "MILES  FLOWN" ;  TAB  (20)  ;  1 .  1  tMi  1  es-f  1  own  ( 1 )  ;  TAB  (30)  ; 1 . 1*M 
i lesf lown (2) 

11060  PRINT  "FUEL  DISPENSED" ; TAB (20) ; INT (Tot fuel usd ( 1 ) *100/6) /IOO 

; TAB (30) ; INT(Tot*uelusd (2) *100/6) /IOO 

11070  FOR  1=3  TO  4 

11080  Xqr=Faciltime(I)*10. 

11090  IF  Xqr  MOD  1>=.5  THEN  Xqr=Xqr+l. 
lllOO  Faci I  time (I) =Xqr/10. 

UllO  NEXT  I 

11120  PRINT  "HOURS  TILL  DONE" ; TAB (20) ; INT (Faci 1 time (3) * 10) / 10; TAB 
(30) ; INT (Faci 1 time (4) *10)/ 10 
11130  PRINT  "  " 

11140  PRINT  TAB( 15) j "TOTAL  SORTIES  FLOWN:  " ; Dropcount ( 1 ) +Dropcoun 
t  (2) 

11150  PRINT  TAB ( 15) ; "TOTAL  FUEL  DISPENSED:  " ; INT ( (Totf uelusd ( 1 ) +T 
ot fuel usd (2) ) *100/6) /IOO; "  GALLONS" 

11160  PRINT  TAB ( 15) ; "TOTAL  MILES  FLOWN:  "  ;  1 .  1  *  (Mi  1  esf  1  own  <  1  > +Mi  1  e 
sf 1  own (2) ) 

11170  PRINT  TAB ( 15) ; "REFUELING  POINT  USED  ";Kallit;"  TIMES" 

11180  PRINT  "  " 

11190  PRINT  "  ” 

11200  PRINT  "  " 

11210  PRINT  "  " 

11220  Check late«0 
11230  FOR  1=1  TO  22 

11240  IF  Cargo(I,l)<>0  THEN  Checklate=l 
11250  NEXT  I 

11260  IF  Check late=l  THEN 

11270  PRINT  "CARGO  ITEMS  LEFT  BEHIND:  TOO  HEAVY  FOR  CONDITIONS 
OR  CANNOT  BE  SLUNG  ON  APPROPRIATE  HELOCOPTER" 
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11280  PRINT  “  " 

11290  FOR  1-1  TO  22 

t  11300  IF  Cargo(1, 1)00  THEN  PRINT  Cargo(I,  1) ;  “  OF  THE  "jFirer 

* (Typecargo,  I ) 

11310  NEXT  I 
11320  END  IF 
11330  PRINT  -  M 
11340  PRINT  "  " 

11350  PRINTER  IS  1 

11360  PRINT  "IF  THESE  RESULTS  ARE  UNSATISFACTORY,  YOU  MAY  MAKE  CH 
ANGES  TO" 

11370  PRINT  "YOUR  INITIAL  SET-UP" 

11380  INPUT  "RERUN  WITH  NEW  SET-UP?", A* 

11390  IF  A*-"N"  THEN  GOTO  Whoopee 

11400  PRINT  "ENTER  <RUN  RERUNIT>  AND  FOLLOW  DIRECTIONS" 

11410  Whoopee: PRINT  "PROGRAM  DONE" 

11420  STOP 

11430  LOAD  "DIME: HP9134, 701,0" 

11440  RETURN 

11450! *tt*tt**t****ttt*tttt*tt*****t**«tt**t**t****t*******ttt*tt 

mmttmm 

11460  Ini tl :  ! 

11470  IF  Ncop  t  s  <  1  >  «=0  AND  Ncopts (2) -O  THEN 

11480  PRINT  "YOU  DIDN’T  GIVE  ME  ANY  HELICOPTERS— STOPPING ! " 
11490  LOAD  "DIME: HP9134, 701,0" 

11500  END  IF 
11510  FOR  Helo-1  TO  2 
11520  Mi lesf loMn (Helo) =0 

11530  IF  Ncopts  (Helo)  <  >0  THEN  Mi 1 esf 1 own (Helo) —Mi lesf lown (Helo) 
■♦-Route  (Helo) 

11540  NEXT  Helo 
11550  Helo*=2 

11560  Legwt ( 1 )— 1  !SET  INITIAL  TRIP  LEGS  TO  BE  AT  MINIMUM  WEIGH 
T 

11570  Legwt (2) -1 

11580  Leg ( 1 ) *2  !UH  TRIP  ON  LEG  2 

11590  Leg (2) -O 

11600  IF  Ncopts (2) *0  THEN  GOTO  Alephl 

11610  GOSUB  Dfuel check  !COMPUTE  TRIP  TIME,  FUEL  USED  TO  LOA 

D  POINT 

11620  IF  Xstatus-O  THEN  GOTO  Oops 

11630  Uh t i me— T empus  ! TIME  TO  GET  TO  LOAD  POINT 

11640  Uhf uel -Fuel need 
11650  FOR  1-1  TO  Ncopts (2) 

11660  Copter (2, I, 8) -Copter (2, 1,8) -Uhf uel  ! DECR I MENT  FUEL  ON  HA 
ND  BY  TRIP  USE 
11670  NEXT  I 

11680  Schedule (2, 1) -2  ! SCHEDULE  THE  UH 

11690  Schedule (2, 2) -1  ! TO  LOAD  CARGO 

11700  Schedule(2, 3) -Uhtime  'NO  EARLIER  THAN  IT’S  ARRIVAL  AT  LOAD 
POINT 

11710  Alephl: IF  Ncopts(l)=0  THEN  GOTO  Outer 
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11720  Helo=l 

11730  Legd)=l  !CH  TRIP  LEG  1  TQ  LOAD  POINT 

11740  GOSUB  Dfuel check 

11750  IF  Xstatus=0  THEN  60T0  Oops 

11760  Chtime«Te<npus  ! TIME  FOR  UH  TO  GET  TO  LOAD  POINT 

11770  Ch-fuel=Fuelneed 

1 1780  Schedul e  U ,  1 >  =1  ! SCHEDULE  THE  CH 

11790  Schedul e(l, 2) *1  !T0  LOAD  CARGO 

11800  Scheduled,  3)  =Chti  me  !NO  EARLIER  THAN  IT'S  ARRIVAL  AT  LOAD 
POINT 

11810  FOR  1=1  TO  Ncopts(l) 

11820  Copter  <  1 , 1, 8) “Copter  <1,1 ,  8)  — Ch-f  uel  !  DECRIMENT  FUEL  BY  TRIP 
USE 

11830  NEXT  I 
11840  GOTO  Outer 

11850  Oops: PRINT  "BOMBED  OFF  AT  START;  CAN'T  GET  TO  LOAD  POINT." 
11860  LOAD  "DIME: HP9134, 701 , 0“ 

11870  Outer: RETURN 
11880! 

ttttttttt 

11890  From-file:  !  RE-ENTER  DATA  FROM  LOGFILE  FOR  RERUN 
11900  PRINT  "ENTERING  DATA  FROM  DISC" 

11910  ASSIGN  @P  TO  ,,L0GDATA:HP9134,701,0" 

11920  ENTER  @P, 1 ; Startti me, Temp, A1 ti tude, Chstat , Ncopts (*) , SI i ng (* 
)  , Fuel uss tat  <*) , Routed)  , Cargo <*>  ,Cstarttime 
11930  ASSIGN  @P  TO  * 

11940  RETURN 

11950! ***tttttt***tt»t«*y*t***t*ts*t***tt*t**t*******t***t*t****t 
ttttttttttttt 

11960  ! RERUN  PROGRAM  WITH  SOME  CHANGES 
11970  Rerunit: ! 

11980  Repcount=l  !SET  FLAG  INDICATING  IT'S  A  RERUN 

11990  GOTO  Dimit  ! REDIMENSION  ARRAYS  AND  REINITIALIZE  WHERE  AP 

T 

12000  Datget: GOSUB  Fromfile  ! RELOAD  DATA  FROM  LAST  RUN 

12010  GOTO  Progtop  !RUN  PROGRAM 

12020! *t*X**t*ttt***t**t**tt**t*tt ****** t**tS****t*»*tt*f**t*t**t 


12030 

Map:  ! 

CONCEPTUAL 

MAP  OF  ROUTES 

TO  FLY 

12040 

PRINT 

USING 

12050 

PRINT 

M 

CH47D 

REFUEL 

CH47D" 

12060 

PRINT 

H 

ORIGIN 

POINT 

DESTINATION" 

12070 

PRINT 

•• 

X 

X 

X" 

12080 

PRINT 

■■ 

- 

-  - 

_  II 

12090 

PRINT 

•• 

- 

-  - 

_ II 

12100 

PRINT 

M 

1 

4  5 

6" 

12110 

PRINT 

M 

- 

-  - 

_ II 

12120 

PRINT 

N 

-  - 

_ M 

12130 

PRINT 

"LOAD 

POINT 

X - 3 - X 

DROP  ZONE 

12140 

PRINT 

•f 

- 

_ II 

12150 

PRINT 

n 

- 

_  *• 

12160 

PRINT 

it 

2 

7" 
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Table  9-3.  Movement  code  (continued). 


12170  PRINT  " 

12180  PRINT  H 

12190  PRINT  "  X  X'1 

12200  PRINT  "  UB60  UH60" 

12210  PRINT  “  ORIGIN  DESTINATION" 

12220  RETURN 
12230  END 

12240  immmmmmmmmmmmmtmmimtmtm 
ummmmmmmmmt 

12250  SUB  P9 

12260  REM  "P9"  IS  THE  MOVEMENT  CALCULATOR  PROGRAM  FOR  DIME.  CO 
DED  BY 

12270  !  MAJ  T.  REISCHL,  OAB,  CAORA,  A/V  552-4613/5122.  THIS  PRO 
GRAM 

12280  !  LAST  CHANGED  ON  12  JUNE  1983.  HELO  PORTION  CODED  BY 
12290  !  TERRY  D.  BR ASHLEY  <SAME  ADDRESS >,  LAST  CHANGED  ON  30DEC 
83. 

12300  OPTION  BASE  1 

12310  DIM  Move_rate(8, 5) , Leg (lO) , P14C4D , P24C63, Describe* C 40] 
12320  INTEGER  I,J,K 
12330  ! 

12340  f  PRINT  OPTION  PAGE 
12350  Headers  PRINT  USING 
12360  PRINTER  IS  702 
12370  PRINT  USING  "e,#" 

12380  PRINTER  IS  1 

12390  PRINT  TABXY (1, 7) , TAB <25) , "GROUND  MOVEMENT  CALCULATOR" 
12400  PRINT  "  " 

12410  PRINT  "THIS  PROGRAM  CALCULATES  MOVEMENT  TIME  FOR  UNITS  US 
ING  VARIOUS" 

12420  PRINT  "  MODES  OF  TRANSPORT.  THESE  ARE:" 

12430  PRINT 

12440  PRINT  "  1.  DISMOUNTED" 

12450  PRINT  "  2.  GROUND  (WHEEL/TRACK  VEHICLE) “ 

12460  PRINT  "  3.  RETURN  TO  MOVEMENT  MENU" 

12470  INPUT  "ENTER  DESIRED  OPTION: ",  Choi ce 

12480  IF  ChoiceOl  AND  Choice<>2  AND  Choice<>3  THEN  Header 
12490  IF  Choice™ 3  THEN 
12500  GOTO  Backuptop 

12510  END  IF 

12520  ON  Choice  GO SUB  Di amount, Ground 
12530  GOTO  Header 
12540  ! 

12550  •  tmmmmtttm  end  of  main  program  **t*t*«**»**tt*** 
mmmmm 

12560  ! 

12570  Dismount:  !SBR  DISMOUNT  CALCULATES  DISMOUNTED  MOVEMENT  TIME 
S 

12580  ! 

12590  RESTORE  12610 

12600  READ  Move_rate(t) 


Table  9-3.  Movement  code  (continued). 


12610  DATA  !  THE  FOLLOWING  IS  THE  DISMOUNTED  MOVEMENT  RATE 

VELOCITIES 

12620  DATA  !  (Km/Hr)  IN  NONCOMBAT  CONDITIONS  FOR  1  BLUE  AND 

1  RED  FORCE. 

12630  DATA  !  Move_rate  ( I ,  «J )  CONTAINS: 

12640  DATA  !  IDEOGRAPHIC  AREA  J “TRAVEL  CONDI 

TIONS 

12650  DATA  !  (l)open  road/trail  (l)blue  norma 

1  day 

12660  DATA  !  <2>hilly  road/trail  (2>blue  force 

d  day 

12670  DATA  !  (3) open  cross— country  (3) blue  norma 

1  night 

12680  DATA  !  (4)hilly  cross— country  <4)blue  force 

d  night 

12690  DATA  !  (5) mountainous  x— country  (5-8) same  as 

above  for  red 
12700  ! 

12710  ! 

12720  Start_dis_mov: PRINT  USING  "@" 

12730  PRINT  TABXY (26, 17) , "DISMOUNTED  MOVEMENT  MODULE" 

12740  Move_type“l 

12750  GOSUB  Start_up 

12760  GOTO  Walk_start 

12770  Start_up: GOSUB  Zero  gnd  data 

12780  INPUT  "ENTER  DESCRIPTION:  ".Describe* 

12790  PRINT  “MARCH  FACTORS  ARE: " 

12800  PRINT  "FORCE  (1,2),  MARCH  PACE(1,2>,  MARCH  TIME,  REST  TIM 
E, START  TIME" 

12810  PRINT  "NUMBER  OF  PERSONS,  NUMBER  OF  TANKERS" 

12820  INPUT  "ENTER  MARCH  FACTORS:  ",  Force, Mar_pace, Mar_ti me, Res 
t_time, St_ti me, Persons, Tkrs 

12830  INPUT  "ENTER  TERRAIN  PROFILE  FOR  5  LEGS:  DIST(km)  AND  LE 
G  TYPE  " , Leg ( • ) 

12840  Type_bound*5 

12850  IF  Choice“2  THEN  Type_bound“4 

12860  FOR  Ck_l oop=l  TO  9  STEP  2 

12870  CALL  Ck_var ( "TERRAIN  PROFILE  DIST (km) ", "THRU", Leg (Ck_lo 

op) , O, 40) 

12880  NEXT  Ck_loop 

12890  FOR  Ck_l oop=2  TO  10  STEP  2 

12900  CALL  Ck_var ("TERRAIN  PROFILE  LEG  TYPE" , "TO" , Leg (Ck_l oop 

) , 1 , T ype_bound ) 

12910  NEXT  Ck  loop 

12920  • 

12930  GOSUB  Err_check_l 

12940  IF  Err=l  THEN  12820 

12950  !  SET  LIGHT  CONDITIONS 

12960  IF  St_time>=6  AND  St_time<“18  THEN 

12970  Day_nite*0  !D 

AY=0 

12980  Vis  left“18-St  time 
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Table  9-3.  Movement,  code  (continued). 


12990 

ELSE 

13000 

Day_nite=l 

IGHT-1 

13010 

IF  St  time>18  THEN 

13020 

Vis  lef t=St  time-12 

13030 

ELSE 

13040 

Vis  left=St  time+6 

13050 

END  IF 

13060 

END  IF 

13070 

Pace=Mar_pace 

13080 

Si de=4* (Force-1 ) 

13090 

March=Mar  time 

13100 

RETURN 

13110  ! 

•N 


13120  <  mmtmmmmmmmmmmmitmmmmm 
tmmmmtt 

13130  ! 

13140  Wal k_start : FOR  1=1  TO  9  STEP  2  !  BEGIN  MOVEME 

NT  CALCULATION 

13150  IF  Leg ( I ) =0  OR  Leg(I+l>=0  THEN  Walk_over 

13160  .'  DETERMINE  MOVEMENT  TIME 
13170  Leg_no»«=Leg  ( I ) 

13180  LOOP 

13190  Rate=Side+Pace+Day_ni te*2 

13200  Leg_frac=Leg_now 

13210  Leg_now=Leg_now-Move_rate  (Rate,  Leg  (1+1) ) 

13220  IF  Leg_now<0  THEN  Time=Time+Leg_f rac/Move_rate (Rate, L 

eg <1  +  1 ) ) 

13230  EXIT  IF  Leg_now<=0 

13240  Time=Ti«e+l 

13250  Vis_left=Vis_left-l 

13260  March=March-l 

13270  IF  March-O  THEN 

13280  Time=Time+Rest_time 

13290  March=Mar  time 

13300  END  IF 

13310  IF  Vi s_lef t<=0  THEN 

13320  Vis_left»12 

13330  IF  Day_nite=0  THEN 

13340  Day_nite=l 

13350  ELSE 

13360  Day_nite=0 

13370  END  IF 

13380  END  IF 

13390  END  LOOP 

13400  NEXT  I 


13410  Walk  over: 


ADD  IN  COLUMN  CLOSURE  TIME 


13420  Time=Time+(Persons/360> 

13430  ! PRINT  RESULTS  OF  MOVEMENT 

13440  Prt=l 

13450  GOSUB  Prt_dis_out 

13460  INPUT  "DO  YOU  WANT  HARD  COPY  OUTPUT? 


< Y  OR  N)",Q* 
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Movement  code  (continued). 


Table  9-3. 

13470  IF  Q*<>"Y“  AND  Q«<>“NM  THEN  13460 

13480  IF  Q*-"Y”  THEN 

13490  Prt-702 

13500  GOSUB  Prt_dis_out 

13510  END  IF 

13520  PRINTER  IS  1 

13530  INPUT  “MORE  DISMOUNTED  MOVEMENT  TO  CALCULATE?  <Y  OR  N>", 
Q* 

13540  IF  Q*<>"Y"  AND  Q*<>MN"  THEN  13530 
13550  IF  Q*~"Y"  THEN  Start_di s_mov 
13560  RETURN 
13570  ! 

13580  ! 

tmmmttm 

13590  ! 

13600  Zero_gnd_data:  •  THIS  SBR  ZEROES  VARIABLES  FOR  THE  6ND/DSM 
TD  MODULES 

13610  FOR  1*1  TO  10 
13620  Leg ( I ) *0 

13630  NEXT  I 
13640  Pace=l 
13650  Force*l 
13660  Mar_pace=0 
13670  Mar_tiii»e*8 
13680  Rest_ti«e«0 
13690  St_ti«e-0 
13700  Per aans^O 

13710  Ti«e=0 
13720  Tkrs*l 
1 3730  Day _n i t e=0 

13740  C 1 ose_t i me=0 

13750  Describe**" 

13760  Re-Fuel  _di  st*200 

13770  RETURN 
13780  ! 

13790  !  ********************************************************* 
*************** 

13800  ! 

13810  Err_check_l: !  THIS  SBR  CHECKS  FOR  ERRORS  IN  DISMOUNTED/GR 
OUND  INF»UT 
13820  Err«0 

13830  IF  ForceOl  AND  Force<>2  THEN 
13840  PRINT  "FORCE  INPUT  ERROR" 

13850  Err=l 

13860  END  IF 

13870  IF  Mar_pace<>l  AND  Mar_pace< >2  THEN 
13880  Err = 1 

13890  PRINT  "MARCH  CYCLE  INPUT  ERROR" 

13900  END  IF 

13910  IF  St_ti«e>24  OR  St  timeCO  THEN 
13920  Err»l 

13930  PRINT  "START  TIME  INPUT  ERROR" 
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Table  9-3 

.  Movement  code 

(conti nued) . 

13940 

END  IF 

13950 

FOR  1*2  TO  10 

STEP  2 

13960 

IF  Leg ( I ) < 0 

OR  Leg ( I ) >5  THEN 

13970 

Err=l 

13980 

PRINT  "TERRAIN  PROFILE  INPUT  ERROR" 

13990 

END  IF 

14000 

NEXT  I 

14010 

RETURN 

14020  ! 

14030  !  ********************************************************* 
*************** 

14040  ! 

14050  Prt_dis_out: !  THIS  SBR  PRINTS  OUT  DISMOUNTED  MOVEMENT  RE 

SULTS 

14060  ! 

14070  PRINTER  IS  Prt 

14080  IF  Prt=»l  THEN  PRINT  USING  “8" 

14090  PRINT  "  " 

14100  PRINT  "  ■ 

14110  PRINT  "  “ 

14120  IF  Move_type=l  THEN 

14130  PRINT  TAB ( lO) , "DISMOUNTED  MOVEMENT  RESULTS" 

14140  ELSE 

14150  PRINT  TAB ( 10) f "GROUND  MOVEMENT  RESULTS" 

14160  END  IF 
14170  PRINT  "  ” 

14180  PRINT  USING  "40A” ; Describe* 

14190  PRINT  "  M 

14200  IF  Force* 1  THEN 
14210  P1**"BLUE" 

14220  ELSE 

14230  P1*="RED  " 

14240  END  IF 

14250  IF  Mar_pace=l  THEN 

14260  P2*~“ NORMAL" 

1 4270  ELSE 

1 4280  P2** " FORCED " 

14290  END  IF 

14300  PRINT  USING  "7A.4A, 13X,6A,6A"; "FORCE:  ", PI*, "PACEs  " , P2* 
14310  Up_time*St_time*100 

14320  PRINT  USING  " 13A, 2D, 3A, 2D, 4X , 12A, 4Z , 4A" ; "MARCH  CYCLE:  ",M 
ar_time, “  -  • .Rest _ti me, "START  TIME:  ”,Up_time,"  HRS” 

14330  PRINT  USING  " 15A, 4D, 5X, 13A, 3D" ; "COLUMN  LENGTH:  ”, Persons, 
"NO.  TANKERS:  ",Tkrs 

14340  PRINT  USING  "9A,  5 <3D,  IX,  ID, 3X) ” ; "PROFILE:  ”,Leg<*> 

14350  PRINT  "  " 

14360  PRINT  ”  " 

14370  PRINT  USING  "ISA, 3D. 2D, IX, 3A" ; "TOTAL  MARCH  TIME:  ".Time," 
HRS" 

14380  !  CALCULATE  CLOSURE  TIME 
14390  I_time=St_time+INT (Time) 

14400  Min  t i me* (Time-INT (Ti me) ) *60 
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Table  9-3.  Movement  code  (continued). 


14410  Min_time=INT(Min_time) 

>  14420  IF  I_ti«e>23  THEN 

14430  I_time=I_ti«e  MOD  24 

14440  Close_time=  (I_time*10O)  +Min_time 

14450  ELSE 

l  14460  Close_time= ( I_time*100) +Min_time 

14470  END  IF 
'  14480  PRINT  "  " 

!  14490  PRINT  USING  "14A,4Z, IX, 3A"; "CLOSURE  TIME:  ",  Close. time, "H 

RS" 

14500  RETURN 
14510  ! 

14520  • 

*************** 

14530  f 

14540  Grounds !  SBR  GROUND  CALCULATES  GROUND  MOVEMENT  TIMES 
14550  ! 

14560  RESTORE  14580 

14570  READ  Move_rate(*> 

14580  DATA  !  CONTAINS  SAME  DATA  FORMAT  FOR  THESE  MOUNTED  MO 

VEMENT  RATES 

14590  DATA  !  AS  THE  DISMOUNTED  MOVEMENT  RATES  PREVIOUSLY  DE 

SCRIBED. 

14600  Start_gnd_mov: PRINT  USING  "8" 

14610  PRINT  TABXY (26, 17) , "GROUND  MOVEMENT  MODULE" 

14620  Move_type=2 
14630  GOSUB  Start_up 
14640  ! 

14650  !  BEGIN  MOVEMENT  TIME  CALCULATION 

14660  FOR  1=1  TO  9  STEP  2 

14670  IF  Leg ( I ) =0  OR  Leg(I+l)=0  THEN  Gnd_mov_over 

14680  ! 

14690  !  DETERMINE  MOVEMENT  TIME 

1 4700  Leg_noM=Leg ( I ) 

14710  LOOP 

14720  Rate»Side+Pace+Day_ni te*2 

14730  Leg_f rac*Leg_now 

14740  Leg_now=Leg_now— Move  rate (Rate, Leg ( 1+1 ) ) 

14750  IF  Leg_now<0  THEN 

14760  Time=Time+Leg_frac/Move_rate  (Rate, Leg  ( 1  +  1 ) ) 

14770  Refuel _dist=Refuel  dist-Move  rate  (Rate,  Leg  ( 1  +  1 ) ) 

14780  END  IF 

14790  EXIT  IF  Leg_no*K=0 

14800  Refuel _di st=Ref uel _dist-Move_rate (Rate, Leg ( I+l ) > 

14810  Time=Time-«-l 

14820  Vi s_l ef t=Vis_lef t-1 

14830  March=March— 1 

14840  IF  March=0  THEN 

14850  March=Mar_time 

14860  Ref uel_time=0 

14870  IF  Refuel _dist<=30  THEN 

14880  Refuel  dist=200 


Table  9-3.  Movement  code  (continued). 


14890 

14900 

14910 

14920 

14930 

14940 

14950 

14960 

14970 

14980 

14990 

15000 

15010 

15020 

15030 

15040 

15050 

15060 

15070 

15080 

15090 

15100 

15110 

15120 

15130 

15140 

15150 

15160 

15170 

15180 

15190 

15200 

15210 

15220 

15230 

15240 

15250 

15260 

15270 

15280 

15290 

15300 

15310 

15320 

15330 

15340 

15350 

15360 

15370 

15380 

15390 

15400 


Refuel _t i me=Persons/Tkrs/4*8 
END  IF 

IF  Refuel _ti me >Rest_ti me  THEN 
T i me=T i me+Ref  uel _t i me 
ELSE 

T i me«T i me+Rest  _ti me 
END  IF 
END  IF 

IF  Refuel _di st <>=0  AND  March >0  THEN 
Refuel _dist*200 
Ref  uel_time**Persons/Tkrs/4*8 
Ti  me*»Ti  me+Ref  uel  _time 

IF  Refuel _t i me>“Rest_ti me  THEN  March=Mar_time 
END  IF 

IF  Vis_left<«0  THEN 
VisJTeft-12 
IF  Day_nite«0  THEN 
Day_r>i  te*l 
ELSE 

Day  nite^O 
END  IF 
END  IF 
END  LOOP 

NEXT  I  !  GOTO  NEXT  LEG 

Gnd_movover : !  ADD  IN  CLOSURE  TIME 
T i me=T i me+Per sons/ 1 80 

I 

!  PRINT  RESULTS  OF  MOVEMENT 
Prt~l 

GOSUB  Prt_dis_out 

INPUT  "DO  YOU  WANT  HARDCOPY  OUTPUT?  <Y  OR  N) ",QS 
IF  Q*<>"Y"  AND  Q*<>"N"  THEN  15190 
IF  Q*«"Y"  THEN 
Prt»702 

GOSUB  Prt  dis  out 
END  IF 
PRINTER  IS  1 

INPUT  "MORE  GROUND  MOVEMENT  TO  CALCULATE?  (Y  OR  N)*\Q* 
IF  Q*<>"Y"  AND  Q*<>"N"  THEN  15260 
IF  Q*-"Y"  THEN  Start_gnd_mov 
Backup top: PRINT  USING 
SUBEND 

SUB  Ck_var (Var  name*,T*, Variable, Min_value,Max_value> 
SELECT  T* 

CASE  "THRU" 

WHILE  Vari abl e< Mi n_ value  OR  Var iable>Max_value 
GOSUB  Print_error 
END  WHILE 
CASE  "OR" 

GOTO  Case_to 
CASE  "TO" 

Case_to:FOR  M=Min  value  TO  Max  value 
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Table 

15410 

15420 

15430 

15440 

15450 

15460 

15470 

15480 

15490 

15500 

15510 

15520 

15530 

15540 

15550 


9-3.  Movement  code  (concluded). 

IF  Var i ab 1 e=M  THEN  GOTO  End_select 
NEXT  M 

GOSUB  Print_error 
GOTO  Case_to 
End_select: ! 

END  SELECT 
GOTO  Rtrn 
Print  error:  ! 

PRINT 

PRINT  “*»  ERROR:  Variable; "  IS  INVALID  FOR  " 

PRINT  “INPUT:  ";Min_value; "  ,,;T*;“  “;Max_value 
INPUT  Variable 
RETURN 
Rtrn:  ! 

SUBEND 


Var_name1i 
■  ONLY" 
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Table  9-3a .  ADEA  movement  code. 


'  PROGRAM  MOVEPLAN  —  a  unit  movement  plsnnino  aid 
Prtr=702  '  F'rtr  is  the  printer 
PRINTER  IS  1 
OPTION  RASE  1 

DIM  Spd (22) . L] m (22) , Dut (21 . 100) , Dun (21 . 100) . Lc ( lOO) .Hit (21 ) 

DIM  Back (100)  1  used  in  control  move 

DIM  Bran ( 10) . Vehs_i n_mu ( 1 00) . Mus_i n_ser i al ( 10) . Avg_spd (20. lOO) 
INTEGER  P+,  Id, A, An, I, J 
!  title  routine 
Home  !  clear  the  screen 

PRINT  TABXY (26,6) ; "UNIT  PLANNING  AID  FOR  MOVEMENT” 

PRINT  TAB < 24 ); "COMMAND  CONTROL  ANALYSIS  DIVISION" 

PRINT  TAB (37) ; "CAORA" 

PRINT  T AB ( 27 )  ;  "FT  LEAVENWORTH,  KANSAS  66027" 

PRINT  TAB (33) ; "AUTOVON  552-3595" 

WAIT  3 


PRINT 
PRINT 

PRINT  "THIS 
PRINT  "MOVE!- 
PRINT 

PRINT  "THIS 
PRINT  "STORA 
PRINT  "A  FOF 
PRINT 

PRINT  "PRESS 
INPUT  A4 
Menu: Home 

Flag=0  '  + 
Flag  1=0  1  f 

Flag2=0  '  + 
PRINT 

PRINT  TAR ( 1 ) 
PRINT 

PRINT  TAB  < 1 ) 
PRINT  TAR ( 1 ) 
PRINT  TAB  v 1 ) 
PRINT  TAR ( 1 ) 
PRINT  TAR ( 1 ) 
PRINT  TAB ( 1 ) 
PRINT  TAB(l) 
PRINT  TAB ( 1 ) 
PRINT 
DISP  "<  ENTER 
ENTER  2; A 
I F  A<  1  OR  A  a 


"THIS  PROGRAM  HAS  BEEN  SUBSTITUED  FOR  THE  ORIGINAL  F'9" 
"MOVEMENT  CALCULATOR  BY  ROB  BELFLOWER.  RDM" 

"THIS  PROGRAM  REQUIRES  A  DATA  FILE  ON  THE  DEFAULT  MASS" 
"STORAGE  DEVICE.  IF  THAT  IS  NOT  YOUR  HARD  DISK,  INSERT' 
"A  FORMATTED  MICROFLOPPY  DISK  INTO  YOUR  DEFAULT  DRIVE" 

"PRESS  ENTER  TO  CONTINUE" 


•flag  for  creating  tiles 
flag  for  changing  file  names 
flag  for  changing  files 

) : "THE  FOLLOWING  CHOICES  CAN  BE  MADE  FROM  THE  MAIN  MENU: 


RUN  PROBLEM  " 
GENERAL  PROGRAM  INF 
QUIT" 

CREATE  A  DATA  FILE" 
CHANGE  A  DATA  FILE” 
GET  INPUT  SHEET" 
DELETE  A  DATA  FILE" 
LISTING  OF  FILES" 

»3, 4,5.6. 7, OR  Q)" 


INFORMATION" 


IF  A<  1  OR  A  8  THEN  GOTO  330 

ON  A  GOTO  Run  pr  oh  1  em  .  He  1  p  ,  F  i  n  i  sh  ,  Run_pr.jt>  1  em ,  Change_f  l  1  e.  Sheet .  De  1  et  p 

l  1  e_l i st 

Hel p : CALL  Information 
GOTO  Menu 

Sheet: CALL  Input  sheet 
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Table  9-3a 


ADEA  movement  code  (continued). 


400  GOTO  Menu 
410  Finish: Home 

420  PRINT  T ARX V  < 1 ,  15): "THE  END" 

421  LOAD  "DIME:  HF'91 3X  .  701 " 

430  STOP 

440  Run_problem:  !  get  inputs  and  calculate  results 

450  Home 

460  IF  A=1  THEN  !  i-f  menu  choice  is  #1 

470  DISP  "IS  DATA  ON  A  DISK(l)  OR  IS  DATA  KEYBOARD  INPUT (2)  (ENTER  1  OP  2) 

480  ENTER  2; An 

490  IF  An< 1  OR  An >2  THEN  GOTO  470 

500  IF  An= 1  THEN 

510  GOSUB  Read_-file  !  read  data  -from  dish 

520  GOTO  790 

530  END  IF 

540  Home 

550  END  IF 

560  DISP  "NEED  A  DATA  INPUT  SHEET  ?  ENTER  Y  TO  GET  INPUT  SHEET  OTHERWISE  PRE 
ENTER" 

570  GOSUB  Answer 

580  IF  Yes  THEN  CALL  Input_sheet 
590  Home 

600  GOSUB  Data_ input 

610  IF  A=4  THEN  1  i -f  creating  a  data  tile 

620  GOTO  Create_-file 

630  ASSIGN  (BPath  TO  File* 

640  OUTPUT  ii-Path.  1  ;Spd  <*)  ,  HI  t  (  *>  ,  Brant*)  .  Vehs_in_mu  (  *  )  ,  Lc  <  *  )  .  Pace.  V 

_int,Veh_length, Uni nt , Nuni t.Slint, Nseg .Lenng.Colng. Nser 1 . Mus_i n  serial (♦) .Vehs 
650  ASSIGN  i«Path  TO  * 

660  GOTO  Menu 

670  END  IF 

680  IF  An=2  THEN  1  i-f  keyboard  input 

690  DISP  "WANT  TO  SAVE  INPUT  DATA  TO  A  FILE  ENTER  Y  TO  SAVE  OTHERWISE  PR 

S  ENTER" 

700  GOSUB  Answer 

710  IF  Yes  THEN 

720  FI ag=l 

730  GOTO  Create_fi  le 

740  ASSIGN  9Path  TO  File* 

750  OUTPUT  SPath, 1 ;Spd (*) , K1 m ( * > , HI t ( * ) , Br an  < * ) , Vehs_i n_mu ( * ) .Let*). Pace 

eh_i nt , Veh_l ength , Uni nt , Nuni t , SI i nt . Nseg .Lenng.Colng. Nser l,Mus_in_serial  <  *  > , Ve 
760  ASSIGN  i?Path  TO  * 

770  END  IF 

780  END  IF 

790  Home 

800  PRINT  "RESULTS  FROM  WHICH  MARCH  DI SC IPL I NE'," 

810  PRINT  "1.  HASTY  WITH  SPEED  CHANGES" 

820  PRINT  "2.  HASTY  WITH  ROLLBACK" 

830  PRINT  "3.  CONTROLLED  MOVE" 

840  PRINT 

850  DISP  "  ENTER  1  OR  2  OR  3  OR  4 (TO  RETURN  TO  MAIN  MENU)" 

860  ENTER  2: Pf 
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Table  9-3a.  ADEA  movement  code  (continued) 


870  IF  P-f*.  1  Oft  F'-f  >4  THEN  GOTO  850 
880  SELECT  Pf 

890  CASE  <=2  ‘  i  -f  choice  l  s  1  or  2 

900  CALL  Hast  v ( Dun ( * )  , Dut  <  *  > .  Lc ( * ) .Kim (*)  , Nseg , Spd ( * ) , Pace . Un i n t . SI  int.Br; 

*)  ,Nunit,P-f  > 

910  CASE  =3  ‘  l -f  choice  is  3 

920  CALL  Control  move (Uni nt , SI i nt . Spd ( * ) ,  K1  m ( * ) „ Col ng , Dun ( * ) . Dut ( * ) . Pace . 1 

g , Nser 1 , Bran ( * ) , Lc ( *  )  , Back ( *> , Nuni t ) 

930  CASE  =4  !  it  choice  is  4 

940  GOTO  Menu 

950  END  SELECT 

960  GOSUB  Choose_time 

970  GOSUB  Output 

980  Home 

990  GOTO  Menu 

1 000  *****************************  SUBROUT  I NES  ******************************** 

1010 ! 

1020!*****  this  routine  prints  the  results  ***** 

1030  Output: ! 

1040  PRINTER  IS  Prtr 

1050  IF  P-f  =  l  THEN  PRINT  "HASTYMOVE  " 

1060  IF  p-f  =  2  THEN  PRINT  "HASTVMOVE  WITH  TIMES  ROLLBACKED" 

1070  IF  P-f  =3  THEN  PRINT  "CONTROL  MOVE" 

1080  PRINT 
1 090  PR  I NT 

1100  FOR  1  =  1  TO  Nun  it 

1110  FOR  J=1  TO  Nseg 

1120  Ti m=Dun ( J+l , I ) -Dun ( J , I ) 

1130  Avg_spd ( J . I ) = ( 60* kl m(J) ) /Tim  1  calculate  avg  speed 

1140  NEXT  J 

1150  NEXT  I 

1160  Tti me=Dut (Nseg+1 . 1 ) -Dun ( 1 . 1 > 

1170  GOSUB  Resting 

1180  PRINT  TAB< 10) ; "ROAD  MOVEMENT  TABLE" 

1190  PRINT 

1200  PRINT  " PACE ( KMPH) ="; FNRound < Pac e> : TAB (39) : "VEHICLE  INTERVAL (METERS) =": Ve 
i  nt 

1210  PRINT  "AVG  SPEED  FOR  1ST  UNI T ( KMPH) ="; FNRound ( (Lenng*60) /Tt i me) : TAB ( 39 > : 
ARCH  UNIT  INTERVAL (KILOMETERS)  =  ";  Uni  nt 

1220  Imgl:  IMAGE  "LENGTH  OF  COLUMN(KM>=  ".DDDD.DD,#  '  print  -format 
1230  PRINT  USING  ImgljColnq 

1240  PRINT  TAB ( 39 ); "SERIAL  INTERVAL (K I LOMETERS) ="; SI i nt 
1250  PRINT  "AVG  VEHICLE  LENGTH ( METERS) ="; FNRound <Veh_l ength ) 

1260  Img2:  IMAGE  "VEHICLE  DENSITY  (VF'KM)  =",DDDD.D.#  1  print  -format 

1270  PRINT  USING  Img2; VehsXCol ng 
1280  FRINT 
1 290  PR  I NT 

1300  PRINT  TAB (8) ; "MARCH"; TAB ( 14)  :  "NUMBER" 

1310  PRINT  TAB ( 1 ) ; "SERIAL": TAB (8) : "UNIT" : TAB (14);"  OF" ; TAB (23) ; "CHECK" ; TAB 
) : "DUE  IN"; TAB (38) ; "RELEASE" 

1320  PRINT  TAB  < 1 ) ; "  NO" ; TAB ( 8 ) ; "  NO" : TAB <1 4 > : " VEHICLES" ; TAB < 231 : "PO I  NT" : TAP 
) ; "TIME"; TAB (37) ; “  TIME  REMARKS" : TAB ( 71 ); "CAST" 
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1330  PRINT  TAB (20) ; " (HHMM  DD> “ ; TAB (37 ) : " (HHMM  DD> " ; TAB (67) ; " (KMPH)  (MPH)" 

1340  PRINT 
1350  Id= 1 

1360  FOR  1=1  TO  Nun it 
1370  IF  I=Bran (Id)  THEN 

1380  PRINT  TAB(l);"  “ ;Id;  1  print  serial  number 

1390  IF  Id<Nserl  THEN  Id=Id+l 

1400  END  IF 

1410  PRINT  TAB (8) s I; TAB ( 14) ; Vehs_in_mu ( I ) :  !  print  march  unit  #  and  number 

1420  1  of  vehicles  in  that  unit 

1430  FOR  0=1  TO  Nseg+1 

1440  PRINT  TAB (23); 

1450  IF  0=1  THEN 

1460  AS="SP" 

1470  ELSE 

1480  IF  J=Nseg+l  THEN 

1490  A*="RP" 

1500  ELSE 

1510  A*=VALS  < J-l ) 

1520  END  IF 

1530  END  IF 

1540  Hr smi ndays < Dun < J . I ) , Hour s_ i n . Mi  ns _ i n . Davs_ i n )  !  convert  to  military 

l  me 

1 550  Hr  smi  ndays  (Dut  ( J ,  I )  ,  Hour  s_  out .  Mi  ns_out ,  Days_oi.it  > 

1560  PRINT  USING  Img3; A* , Hour s_i n . Mi ns_i n , Days  i n , Hour s_out , Mi ns_out , Days 

ut  !  print  CP, due  in  and  due  out  time 

1570  Img3: IMAGE  AA, 4X , ZZ , ZZ , " +  " , Z 7 , 2X , Z Z , ZZ . "  +  " , Z 7 . X , 4  •  print  Format 

1580  IF  HI  t ( J  ) >0  THEN 

1590  PRINT  Hit (J) : "-MINUTE  REST" ; TAB (68) : 

1 600  ELSE 

1610  PRINT  TAB (68) ; 

1620  END  IF 

1630  IF  J< Nseg+1  THEN 

1640  PRINT  USING  Img4; Avgspd ( J , I ) , Avq_spd ( J . I > * . 62  '  print  speed  in  ); 

h  and  mph 

1650  Img4s  IMAGE  DD.D.2X.DD.D  1  print  Format 

1 660  ELSE 

1670  PRINT 

1680  END  IF 

1690  NEXT  J 

1700  PRINT 

1710  NEXT  I 

1720  FF 

1730  PRINT  TAB (7); "TIME  ANALYSIS — FULL  COLUMN" 

1740  PRINT 
1750  PRINT 

1760  PRINT  "START  TIME  =  "? 

1770  Hr smi ndays (Dun ( 1 , 1 ) , Hrs, Mi  ns, Days ) 

1780  PRINT  USING  Img5: Hr s , Mi  ns , Days 
1790  PRINT  "COMPLETION  TIME  =  "; 

1800  Hr smi ndays (Dut (Nseg  +  1 , Nuni t ) . Hr s. Mi  ns, Days) 

1810  PRINT  USING  Img5; Hr s , Mi  ns . Days 
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182"  Imq5: IMAGE  Z7.ZZ.  ZZ  1  print  -format 
1030  Imgft:  IMAGE  DDDD,":”,ZZ  1  print  format 

1840  PRINT  “MARCH  TIME  (INCLUDING  HALTS)  =  " ; 

1  850  Hrsmi  ndays  ( Dut  (Nseg+1 ,  Nun i  t. )  -Dun  (1,  1)  .  Hrs,  Mins,  Days) 

1860  PRINT  USING  Img6 ; Hr s+Dayst 24 , Mi  ns 
1870  PRINT 
1880  FRINT 

1890  PRINT  TAB (8) : "TIME” ; TAB ( 16) : ”  T I  ME" ; TAB <24 ) ; "  TIME" : TAB (32) : “  T I  ME" : TAB 
>;"  PASSTIME" 

1900  PRINT  TAB< 1 ) : "SERIAL" ; TAB (8) : “LEFT" ; TAB < 16) ; "CLEARED" : TAB (24)  :  "ARRIVED" 
B (32) ; "CLEARED"; TAB (39) ; "  AT" 

1910  PRINT  TAB ( 1 ) : "  N0":TAB(8);”  SP“ ; TAB ( 16) ; "  SP" : TAB (24 ) ; "  RP“:TAB<32>: 

RP" ; TAB (39) ; "  Rp" 

1920  PRINT 

1930  PRINT 

1940  FOR  J=1  TO  Nserl 

1950  PRINT  TAB ( 1 > ; "  " : J ; 

1960  Id=Bran ( J ) 

1970  IF  JCNserl  THEN 

1980  Mark=Bran ( J+l ) -1 

1 990  ELSE 

2000  Mark=Nunit 

2010  END  IF 

2020  Hrsmi  ndays (Dun ( 1 ,  Id >, Hours_in , Mi ns_in, Days_i n >  !  time  arrive  SP 

2030  Hrsmi  ndays  (Dut  (  1 ,  Mar  If. ),  Hour  s_out  ,  Mi  ns_out ,  Daysout )  1  time  cleared  SP 

2040  Hrsmi ndays (Dun (Nsea+1 , Id) , Hrs_i nrp, Mi ns_inrp . Days_i nrp )  1  arrive  RP 

2050  Hrsmi  ndays  (Dut  (Nseg+ 1 ,  Mark. )  ,  Hr s_outrp ,  Mi  ns_outr  p .  Day s_  outrp )  1  clear 

2060  Hrsmi  ndays  (Dut  (Nseg+l ,  Mark  )  -Dun  (Nseg+1 ,  Id)  .Hrs, Mins,  Days)  'passtime  at 

2070  PRINT  USING  I mg7 ; Hour s_i n , Mi ns_i n . Days_i n , Hour s_out , Mi ns_out . Days_out 
s_inrp,Mins  inrp.Days  inrp.Hrs  outrp, Mins  outrp , Days_outrp , Hr s+-Days*24,  Mi  ns 
2080  I  mg 7:  IMAGE  Z  Z ,  Z  z7  "  +  " ,  Z  Z  ,  2X  ,  7  Z ,  ZZ .  "  +  "  ,  ZZ ,  2X .  Z  Z ,  Z  7  ,  "  +  "  .  Z  Z  .  2X .  ZZ  .  Z  Z ,  "  +  "  .  7.  Z  . 
D,";",ZZ  !  print  format 

2090  NEXT  J 
2100  F-f 

2110  PRINT  TAB ( 17) ; "ROUTE" 

2120  PRINT  TAB < 14) ; "DESCRIPTION" 

2130  PRINT 
2140  PRINT 

2150  PRINT  "ROAD": TAB (20) ; "MAX  RATE" 

2160  PRINT  "SEGMENT";  TAB (9); "DISTANCE"; TAB (20); "OF  TRAVEL." 

2170  PRINT  TAB (9) ; " (KM) ": TAB ( 14) : " (MI ) "; TAB (21 > ; " (KMPH) " 

2180  PRINT 

2190  FOR  1=1  TO  Nseg 

2200  PRINT  TAB (4) ; I ; TAB (9) ; 

2210  IF  K 1 m ( I ) < 1  THEN  PRINT  USING  ImgB: K1 m < I ) , K1 m ( I ) * . 62 

2220  IF  K 1 m ( I >  > 1  THEN  PRINT  FNRound (Klm(I) ): TAB (14); FNRound (K1  m ( I ) *  .  62)  ; 

2230  PRINT  TAB (22) ; FNRound (Spd < I > ) 

2240  NEXT  I 

2250  Img8:IMA6E  .  DD.2X..DD,#  !  print  -format 

2260  F  f 
2270  Ff 

2280  PRINTER  IS  1 
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2290  RETURN 

2300  !#****  this  routine  adds  on  halt  ti«w  ***** 

2310  Resting: 1 
2320  FOR  1=1  TO  Nseg-M 
2330  IF  HI t  < I ) >0  THEN 

2340  FOR  J  =  I  TO  Nseg+1 

2350  FOR  K= 1  TO  Nun it 

2360  IF  JOI  THEN  Dun  ( J  ,  K>  =Dun  <  J  ,  K)  +H1 1  (  I ) 

2370  Dut (J.K) =Dut ( J,K)+H1 t  ( I  > 

2380  NEXT  K 

2390  NEXT  J 

2400  END  IF 

2410  NEXT  I 
2420  RETURN 

2430  (»****  this  routine  allows  user  to  de-fine  start  or  arrival  time  ***** 

2440  Choose_t i me: ! 

2450  MAT  Dun=  (60) *D un  !  change  -from  hours  to  minutes 
2460  MAT  Dut=  (60) *Dut 
2470  Hal t_total *0 
2480  FOR  1  =  1  TO  Nseg-t-1 

2490  Hal t_total =Hal t_total +H1 t ( I )  1  total  time  of  all  halts 

2500  NEXT  I 

2510  Total t i me=Dut  <Nseg+ 1 . Nuni t ) +Hal t _ total 
2520  Hour s= I NT (Total  time/ 60) 

2530  Mi ns=FNRound (Total time  MOD  60) 

2540  Home 

2550  PRINT  TABXY(1, 12) ; "THE  MOVE  TAKES"; 

2560  PRINT  "  "jHours?"  " ; "HOURS  AND  ":Mins;"  MINUTES" 

2570  PRINT 
2580  Id =99 

2590  PRINT  TABXY (1,19); "Cl  3 DO  YOU  WANT  TO  COMPUTE  A  START  TIME  BASED  ON  AN  APf 
VAL  DEFINED  BY  YOU  ?" 

2600  PRINT  TAB ( 1 ) ; " C 2 IDO  YOU  WANT  TO  COMPUTE  AN  ARRIVAL  TIME  BASED  ON  A  START 
I ME  DEFINED  BY  YOU  ?" 

2610  INPUT  "ENTER  1  OR  2  OR  0(T0  RETURN  TO  MAIN  MENU) ".Id 

2620  IF  ld<0  OR  Id >2  THEN  GOTO  2610 

2630  SELECT  Id 

2640  CASE  =0 

2650  GOTO  Menu 

2660  CASE  = 1 

2670  Time_ input (“DUE  TIME", "TO  THE  DUE  DATE ".Alfa) 

2680  Home 

2690  PRINT  TABXY (1 .23) : "ENTER  THE  CURRENT  TIME  IN  MILITARY  CLOCK" 

2700  DISP  "HOUR ( S )  (0-24)  :  " 

2710  ENTER  2; A 

2720  IF  A<0  OR  A >24  THEN  GOTO  2700 

2730  DISP  "MINUTE (S>  (0-59)  :  " 

2740  ENTER  2;B 

2750  IF  B< 0  OR  B  59  THEN  GOTO  2730 

2760  IF  A=0  AND  B=0  THEN  GOTO  2700 

2770  IF  A=24  AND  BOO  THEN  GOTO  2700 

2780  Now=6+ ( 60* A ) 
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2790  IF  A1  fa>=Total  time+Now  THEN 
2000  A1 f a=Al f a-Total  ti  me 

2010  MAT  Dun=  Dun-t-(Alfa) 

2820  MAT  Dut  =  Dut-MAlfa) 

2830  ELSE 

2840  Home 

2850  PRINT  TABXY< 1.12); "THERE  IS  NOT  ENOUGH  TIME  TO  EXECUTE  THE  MOVE" 

2860  PRINT 

2870  PRINT 

2880  PRINT  "ENTER  C  TO  CHANGE  EITHER  THE  DUE  TIME  0F:  THE  CURRENT  TIME  OR' 

2890  PRINT  "ENTER  R  TO  RETURN  TO  MAIN  MENU  ” 

2900  ENTER  2: An* 

2910  IF  An*="R"  THEN  GOTO  Menu 

2920  IF  An*="C"  THEN  GOTD  2670 

2930  Home 

2940  GOTO  2880 

2950  END  IF 

2960  ld=0 

2970  CASE  =2 

2980  Time_ input ("STARTING  TIME" , "FROM  TODAY 

TO  THE  DEPARTURE  DATE", Alt  a) 

2990  MAT  Dun=  Dun+(Alfa> 

3000  MAT  Dut=  Dut-MAlfa) 

3010  END  SELECT 
3020  RETURN 

3030  '***************************  -file  routines  *****************************> 

3040  ! 

3050  ;***##  this  routine  prints  a  listing  of  -files  ***** 

3060  File  list: Home 
3070  ON  ERROR  GOTO  Err3 
3080  CAT 

3090  DISP  "PRESS  ENTER  TO  RETURN  TO  MENU" 

3100  ENTER  2;C* 

3110  OFF  ERROR 
3120  GOTO  Menu 

3130  !***»*  this  routine  deletes  -files  ***** 

3140  Del ete_f i 1 e: Home 

3150  DISP  "ENTER  FILE  NAME  TO  BE  DELETED" 

3160  ENTER  2; File* 

3170  IF  F i 1 e*C 1 , 81<  VMOVEPLAN"  THEN  '  don’t  delete  main  program  file 
3180  ON  ERROR  GOTO  Err 3 
3190  PURGE  File* 

3200  ELSE 
3210  Home 

3220  PRINT  TABXY < 1 ,  15) : "ERROR — YOU  TRIED  TO  DELETE  MAIN  PROGRAM" 

3230  WAIT  3 

3240  DISP  "ENTER  Y  TO  TRY  AGAIN  OTHERWISE  PRESS  RETURN" 

3250  GOSUP  Answer 

3260  IF  Yes  THEN  GOTO  Delete_file 

3270  GOTO  Menu 

3280  END  IF 
3290  OFF  ERROR 
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3300  GOTO  Menu 

3310  ******  this  routine  allows  changes  to  made  to  data  tiles  **»*» 

3320  Change_t i 1 e: Home 

3330  Flag2=l 

3340  GOSUB  Open_tile 

3350  ENTER  BPath,  1  :  Spd  <  *  >  .KTm<*>  .Hit  <*>  .Brand)  ,  Vehs_i  n._mu  (  *  )  ,Lc(*>  .Pace, Veh_ 
t , Veh_l ength, Uni  nt , Nuni  t . SI l nt , Nseg , Lenng, Col ng , Nser 1 .lius  in  ser i al  <  *  >  , Vehs 
3360  ASSIGN  6-Path  TO  * 

3370  GOSUB  Data_input 
3380  Home 
3390  WAIT  2 

3400  DISP  "TO  SAVE  THIS  DATA  ON  A  DIFFERENT  FILE  THAN  ’ " ; Fi let; " '  ENTER  V  OTH 
WISE  PRESS  ENTER" 

3410  GOSUB  Answer 

3420  IF  Ves  THEN 

3430  Flag  1  =  1 

3440  GOSUB  Open  tile 

3450  ON  ERROR  GOTO  Err 2 

3460  CREATE  BDAT  Fi 1 e* , 1 . 4500 

3470  END  IF 

3480  ASSIGN  6>Path  TO  File* 

3490  OUTPUT  (BPath ,  1 ;  Spd  <*)  .  K1  m  <  *  )  .Hit  (JO  .  Br  an  (  Jt )  ,  Vehs_i  n_mu  d)  ,Lc  d)  .Pace.  Veh 
nt , Veh_l ength, Un  i  nt , Nuni t , SI i nt , Nseg , Lenng , Col ng , Nser 1 , Mus_i n_ser lal  d) , Vehs 
3500  ASSIGN  ij-Path  TO  * 

3510  OFF  ERROR 
3520  GOTO  Menu 

3530  !  ttttt  this  routine  opens  tiles  JUi**ji 
3540  Open_t i 1 e: ON  ERROR  GOTO  Errl 
3550  Home 

3560  DISP  "ENTER  FILE  NAME  <10  ALPHANUMERIC  CHARACTERS  IS  MAX)" 

3570  ENTER  2; File* 

3580  IF  LEN (File*) >10  THEN  GOTO  3560 
3590  ASSIGN  *Pat.h  TO  File* 

3600  OFF  ERROR 
3610  RETURN 

3620  '* ****  this  routine  creates  data  tiles  *  *  *  *  * 

3630  Create_f i 1 e: Home 

3640  GOSUB  Open_tile 

3650  ON  ERROR  GOTO  Err2 

3660  CREATE  BDAT  File*. 1,4500 

3670  OFF  ERROR 

3680  IF  A=4  THEN 

3690  GOTO  630 

3700  ELSE 

3710  GOTO  740 

3720  END  IF 

3730  !*$***  this  routine  reads  data  trom  t i 1 es  *  *  *  *  * 

3740  Read_tile:! 

3750  GOSUB  Open  tile 
3760  OFF  ERROR 

3770  ENTER  PPath , 1 ; Spd ( * ) . t ]m<*>  .Hit  d) .Bran  d) . Vehs_i n_mu  <  * ) . Lc  <  * )  . Pace . Veh _ 
t , Veh  l ength , Uni nt , Nuni t , SI i nt . Nseg . Lenng , Col ng . Nser 1 , Mus_i n_ser  i  al  <  *  > , Vehs 
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3780  ASSIGN  APath  TO  * 

3790  RETURN 

3800  1 **************************  error  routines  ************************ * **** * 
3810  Err  1: OFF  ERROR 
3820  IF  ERRN=80  THEN 
3830  Home 

3840  PRINT  TABXY < 1 , 15) ; "ERROR — DISK  IS  NOT  IN  CORRFCT  DRIVE" 

3850  WAIT  3 
3860  GOTO  3540 
3870  END  IF 
3880  IF  ERRN=53  THEN 
3890  Home 

3900  PRINT  TABXY <1,15): "ERROR— INVALID  FILE  NAME" 

3910  WAIT  3 
3920  GOTO  3540 
3930  END  IF 
3940  IF  ERRN=56  THEN 

3950  IF  NOT  Flag  AND  A< >4  AND  NOT  Flagl  THEN 
3960  Home 

3970  PRINT  TABXY < 1 , 15) ; "ERROR — FILE  DOESN'T  EXIST" 

3980  WAIT  3 

3990  DISP  "ENTER  Y  TO  TRY  AGAIN  OTHERWISE  PRESS  ENTER" 

4000  GOSUB  Answer 

4010  IF  Yes  THEN 

4020  GOTO  3540 

4030  ELSE 

4040  GOTO  Menu 

4050  END  IF 

4060  END  IF 

4070  END  IF 
4080  GOTO  3610 
4090  Err 2: OFF  ERROR 
4 1 00  Home 

4110  PRINT  TABXY <1. 15) ; "ERROR — FILE  ALREADY  EXISTS" 

4120  WAIT  3 

4130  IF  Flagl  THEN 

4140  GOTO  3440 

4 1 50  ELSE 

4160  GOTO  3630 

4170  END  IF 

4180  Err 3: OFF  ERROR 

4 1 90  Home 

4200  IF  ERRN=80  THEN 

4210  PRINT  TABXY < 1 , 15) ; "ERROR — DISK  IS  NOT  IN  DRIVE" 

4220  WAIT  2 

4230  IF  A=7  THEN  GOTO  Delete_file 

4240  GOTO  Menu 

4250  END  IF 

4260  PRINT  TABXY < 1 . 15) ; "ERROR — FILE  DOESN'T  EXIST" 

4270  WAIT  3 

4280  DISP  "ENTER  Y  TO  TRY  AGAIN  OTHERWISE  PRESS  RETURN” 

4290  GOSUB  Answer 
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4300  IF  Yes  THEN  GOTO  Del  ete_T  1  le 
4310  GOTO  Menu 

4320  ********** ******************  MORE  SUBROUT I NES  **************************** 

4330  ! 

4340  !****»  this  routine  inputs  and  changes  data  ***** 

4350  Data_input:  ! 

4360  IF  Flag2  THEN 

4370  DISP  "PACE  =";Pace;"  ENTER  Y  TO  CHANGE  OTHERWISE  PRESS  ENTER" 

43B0  GOSUB  Answer 
4390  END  IF 

4400  IF  Yes  OR  NOT  Flag2  THEN 

4410  DISP  "ENTER  THE  PACE  (THE  MAX  SPEED  OF  THE  SLOWEST  VEHICLE)" 

4420  ENTER  2; Pace 

4430  IF  Pace<=0  OR  Pace >76  THEN  GOTO  4410 

4440  END  IF 

4450  IF  Flag2  THEN 

4460  DISP  "VEHICLE  INTERVAL  =";Veh_int;"  ENTER  Y  TO  CHANGE  OTHERWISE  PRESS 
NTER" 

4470  GOSUB  Answer 

4480  END  IF 

4490  IF  Yes  OR  NOT  Flag2  THEN 

4500  DISP  "ENTER  VEHICLE  INTERVAL  IN  METERS" 

4510  ENTER  2;Veh_int 

4520  IF  Veh_int<=0  OR  Veh_int>999  THEN  GOTO  4500 

4530  END  IF 

4540  IF  Flag2  THEN 

4550  DISP  "AVG  VEHICLE  LENGTH  =";Veh  lenoth;"  ENTER  Y  TO  CHANGE  OTHERWISE  F 
ESS  ENTER" 

4560  GOSUB  Answer 

4570  END  IF 

4580  IF  Yes  OR  NOT  Flag2  THEN 

4590  DISP  "ENTER  THE  AVG  VEHICLE  LENGTH  IN  METERS" 

4600  ENTER  2;Veh_length 

4610  IF  Veh  length< =0  OR  Veh_l ength >99  THEN  GOTO  4590 

4620  END  IF 

4630  IF  Flag2  THEN 

4640  DISP  "MARCH  UNIT  INTERVAL®" : Unint : "  ENTER  Y  TO  CHANGE  OTHERWISE  PRESS 
NTER" 

4650  GOSUB  Answer 

4660  END  IF 

4670  IF  Yes  OR  NOT  Flag 2  THEN 

4680  DISP  "ENTER  MARCH  UNIT  INTERVAL  IN  KM" 

4690  ENTER  2;Umnt 

4700  IF  Un i nt<  =0  OR  Unint>9  THEN  GOTO  4680 

4710  END  IF 

4720  IF  FIag2  THEN 

4730  DISP  "SERIAL  INTERVAL  IN  KM  =”;Slint;"  ENTER  Y  TO  CHANGE  OTHERWISE  PRE 
S  ENTER" 

4740  GOSUB  Answer 

4750  END  IF 

4760  IF  Yes  OR  NOT  FI ag2  THEN 

4770  DISP  "ENTER  SERIAL  INTERVAL  IN  KILOMETERS" 
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4700  ENTER  2:Slint 

4790  IF  Slint<=0  OR  Slint>25  THEN  GOTO  4770 

4000  END  IF 

4810  IF  Flag2  THEN 

4820  DISP  "NUMBER  OF  ROAD  SEGMENTS  =";Nseg;"  ENTER  V  TO  CHANGE  OTHERWISE  F 
SS  ENTER" 

4830  GOSUB  Answer 

4840  END  IF 

4850  IF  Yes  OR  NOT  FI  ag2  THEN 

4860  DISP  "A  MAX  OF  20  ROAD  SEGMENTS  CAN  BE  USED 

4870  DISP  “FOR  A  GIVEN  ROUTE.  ENTER  #  OF  SEGMENTS" 

4880  ENTER  2; Nseg 

4890  Nseg* I NT (Nseg) 

4900  IF  Nseg<  =0  OR  Nseg>20  THEN  GOTO  820 

4910  Home 

4920  END  IF 

4930  FOR  1=1  TO  Nseg 

4940  IF  Flag2  THEN 

4950  IF  Spd ( I ) =0  THEN  GOTO  5000 

4960  DISP  "FOR  SEGMENT": I;"  SPEED  =";Spd(I>:"  ENTER  Y  TO  CHANGE  OTHERWIE 

PRESS  ENTER" 

4970  GOSUB  Answer 

4980  END  IF 

4990  IF  Yes  OR  NOT  Flag2  THEN 

5000  DISP  “ENTER  MAX  SPEED  IN  KMPH  FOR  ROAD  SEGMENT": I 

5010  ENTER  2;Spd<I> 

5020  IF  Spd  < I ) <=0  OR  Spd (I) >100  THEN  GOTO  5000 

5030  END  IF 

5040  IF  Flag 2  THEN 

5050  IF  K1 m ( I ) =0  THEN  GOTO  5100 

5060  DISP  "FOR  SEGMENT"; I;"  DISTANCE*" ; Kim ( I ) : "  ENTER  Y  TO  CHANGE  OTHERS 

E  PRESS  ENTER" 

5070  GOSUB  Answer 

5080  END  IF 

5090  IF  Yes  OR  NOT  Flag 2  THEN 

5100  DISP  "ENTER  DISTANCE  IN  KM  FOR  ROAD  SEGMENT"; I 

5110  ENTER  2; K1 m  < I ) 

5120  IF  KI m  < I ) <=Q  THEN  GOTO  5100 

5130  END  IF 

5140  NEXT  I 

5150  Lenng=0 

5160  FOR  1=1  TO  Nseg 

5170  Lenng=Lenng+Kl  m  (  I )  !  total  length  o-f  route 

5180  NEXT  I 

5190  IF  Flag2  THEN 

5200  DISP  "NUMBER  OF  SERIALS  =";Nserl:"  ENTER  Y  TO  CHANGE  OTHERWISE  PRESS 
TER" 

5210  GOSUB  Answer 

5220  END  IF 

5230  IF  Yes  OR  NOT  Flag2  THEN 

5240  DISP  "ENTER  THE  NUMBER  OF  SERIALS  ": 

5250  DISP  "(MAX  IS  10)" 
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5260  ENTER  2; Nser 1 

5270  Nser 1=INT (Nser J ) 

5280  IF  Nser!  *:  =0  OR  Nser  1 .10  THEN  GOTO  5240 

5290  END  IF 

5300  Vehs=0 

5310  Nunit=0 

5320  FOR  1=1  TO  Nserl 

5330  Home 

5340  IF  Flag2  THEN 

5350  IF  Mus_in_ser i al ( I ) =0  THEN  GOTO  5400 

5360  DISP  *'#  OF  MARCH  UNITS  IN  SERIAL" ;  I  ;  ,,  =  " ;  Mus  in_ser i a) ( I > : "  ENTER  V  T 

CHANGE  OTHERWISE  PRESS  ENTER" 

5370  GOSUB  Answer 

53S0  END  IF 

5390  IF  Yes  OR  NOT  Flag2  THEN 

5400  DISP  "ENTER  THE  #  OF  MARCH  UNITS  IN  SERIAL" si; 

5410  DISP  "  (MAX  IS  10)" 

5420  ENTER  2; Mus_i n.ser i al < I ) 

5430  Mus_i n_ser i al ( I >  =  INT (Mus_in_seri al  ( I ) ) 

5440  IF  Mus_i n_ser i al ( I ) <=0  OR  Mus_i n_seri al ( I ) >10  THEN  GOTO  5400 

5450  END  IF 

5460  Muni t=Mus_i n_ser i al  (  I  > 

5470  Nuni t=Nuni t+Muni t  !  total  number  of  march  units 

5480  Bran ( I ) =Nunit-Muni t+1  •  marks  head  of  a  serial 

5490  FOR  J=Bran ( I )  TO  Bran ( I ) +Munit— 1 
5500  Count=J-Bran < I ) +1 

5510  IF  Flag2  THEN 

5520  IF  Vehs_in_mu(J)=0  THEN  GOTO  5570 

5530  DISP  "#  OF  VEHICLES  IN  MU" ; Count ;"  =  "; Vehs_i  n  mu(J>;”  ENTER  V  TO  CH 

GE  OTHERWISE  PRESS  ENTER" 

5540  GOSUB  Answer 

5550  END  IF 

5560  IF  Yes  OR  NOT  FI ag2  THEN 

5570  DISP  "ENTER  THE  #  OF  VEHICLES  IN  MU": Count 

5580  ENTER  2; Vehs_i n_mu (0 ) 

5590  Vehs_i n_mu (J ) = INT (Vehs_i n_mu ( J >  > 

5600  IF  Vehs_i n_mu < J ) <=0  OR  Vehs_i n_mu ( J) >999  THEN  GOTO  5570 

5610  END  IF 

5620  Mveh=Vehs_i n_mu ( J > 

5630  Lc  < J )  =  <Veh_l engthtMveh ) / 1000 

5640  Lc < J ) =Lc ( J ) + ( ( Veh_i nt * (Mveh— 1 ) ) / lOOO)  1  length  of  march  unit 

5650  Vehs=Vehs+Mveh  1  total  number  of  vehicles 

5660  NEXT  J 

5670  NEXT  I 

5680  Kim (Nseg+1 > =2999 

5690  Spd (Nseg+1 ) =Spd (Nseg ) 

5700  FOR  1=1  TO  Nseg+1 
5710  Home 

5720  IF  1=1  THEN  IS="SP" 

5730  IF  I=Nseg+l  THEN  I*="RP" 

5740  IF  IONseg+1  AND  I<>1  THEN  I*=VAL*(I-1) 

5750  IF  Flag2  THEN 
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5760  DISP  "HALT  AT  CP-";I*:M  =";H)t(l):"  ENTER  Y  TO  CHANGE  OTHERWISE  PI 

ENTER" 

5770  GOSUB  Answer 

5780  END  IF 

5790  IF  Yes  OR  NOT  Flag2  THEN 

5800  DISP  "ENTER  HALT  TIME  (IN  MINUTES)  FOR  CP-" ; I* 

5810  ENTER  2;HIt<I) 

5820  IF  HI t ( I ) <0  OR  Hit (I) >1440  THEN  GOTO  5800 

5830  END  IF 

5840  NEXT  I 

5850  Home 

5860  Colng=0 

5870  FOR  1=1  TO  Nunit 

5B80  Col ng=Col ng+Lc ( I > 

5890  NEXT  I 

5900  Colng=Col ng+ ( (Nser l-l)*Slint) 

5910  Col ng=Col ng+ ( (Nuni t —Nser 1 ) *Uni nt )  !  total  column  length 

5920  RETURN 

5930  !**«**  this  routine  prompts  -for  yes/no  anwser  ***** 

5940  Answer:! 

5950  ENTER  2;B* 

5960  IF  B*="Y"  THEN 

5970  Yes=l 

5980  ELSE 

5990  Yes=0 

6000  END  IF 

6010  RETURN 

6020  END 

6030  ! *****************************  SUB  PROGRAMS  *************************** 

6040  ! 

6050  !  *****  this  routine  clears  the  screen  ***** 

6060  SUB  Home 
6070  DISP  “ 

6080  PRINT  CHR*(12> 

6090  SUBEND 

6100  !****«  this  routine  sets  up  the  nodes  -for  calculations  ***** 

61 10  SUB  Cal cul ate_nodes (Node ( *  > , Length_seqment ( *  > , Key_node ( * ) , Length_ser i al 
eg) 

6120  INTEGER  I 

6130  Node (0) =0 

6140  FOR  1=0  TO  Nseg 

6150  Node  ( 1  +  1 )  “Node  ( I )  •*-Lengt.h_segment  ( I ) 

6160  Node  (Nseg  +  I  +  1 )  “Node  (I)-'-Length_serial 

6170  NEXT  I 

6180  MAT  SORT  Node  TO  Key_node 

6190  MAT  SORT  Node 

6200  SUBEND 

6210  '*»***  this  routine  calulates  speeds  over  road  segments  ***** 

6220  SUB  Control _speeds (Speed  <  *  > , Max node. Segment  _speed ( * ) , Length_ser i al  . Pace 
y  .node ( * ) , Nseg ) 

6230  INTEGER  I 

6240  DIM  Speed 1 i st (40) 
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6250  MAT  Speedl ist=  <1000.1) 

6260  Segment_speed (Nseg ) “Segment  speed < Nseg- 1 > 

6270  Speed  1  i  st  (0)  =Pac.e 

6280  Speed_del = 1 

6280  Speed_add=l 

6300  FOR  1=0  TO  Ma>:node 

6310  IF  K'ey_node  <  I )  TNseg  THEN 

6320  Speedl i st <Speed_del ) = lOOO. 1  1  node  is  artificial 

6330  Speed_del  =Speed_del  +1. 

6340  ELSE  )  node  is  chad-  point 

6350  Speedl  i st  <Speed_add ) =Segment_ speed (Spee  j_add- 1 ) 

6360  Speed_add=Speed_add+l 

6370  END  IF 

6380  Speed  < I ) =M I N  <  Speed list  <•) ) 

6390  NEXT  I 

6400  SUBEND 

6410  !****»  this  rcjtine  calculates  distance  between  nodes  ***** 

6420  SUB  Lai cul ate_l engt (Length <*), Node <*), Maxnode) 

6430  INTEGER  I 

6^40  FOR  1=1  TO  Maxnode 

6  450  Length ( 1-1 ) =Node  < I ) -Node  < I -1 ) 

6460  NEXT  I 

6470  SUBEND 

6480  '***»*  this  routine  calculates  time  to  travel  to  node  ***** 

6490  SUB  Cal cul ate_t 1 mes (Maxnode, Speed  < * ) , Length ( * ) . Ti me ( * > ) 

6500  INTEGER  I 
6510  Time(0)=0 

6520  FOR  1=1  TO  Maxnode 

6530  Ti  me ( I >  =Ti  me ( I -1 ) ^Length  < 1-1 ) /Speed ( I -1 ) 

6540  NEXT  I 

6550  SUBEND 

6560  '*****  this  function  returns  the  time  that  the  head  of  the  ser-  ***** 

6570  '»****  ial  crosses  the  point  a  distance  x  f ram  the  start  point  ***** 

6580  DEF  FNCr oss (X.Ti  me (*)  .Nodes (*> .Speed (*) > 

6590  N 1 = 1 

6600  LOOP 

6610  EXIT  IF  X< Nodes  <N1 ) 

6620  N1=N1+1 

6630  END  LOOP 

6640  N1=N1 — 1 

6650  T=Ti me (N1 >  +  ( X— Nodes  < N1 ) ) /Speed ( N1 > 

6660  RETURN  T 

6670  FNEND 

6680  '***»*  this  routine  calculates  a  controlled  move  ***** 

6690  SUB  Control _move (Mu_i nt,Ser_int, Speeds ( *  > , Lengt h_seg ( *  > , Length_ser i al . D 
* ) , Dut ( * ) , Pace, Nseg, Nser , Bran (* ) , Lc ( *  > , Back  <* ) , Nuni t > 

6700  DIM  Nodes (41),  Key_nodes (41), Speed (21 ) , Length _ segment (21 >, Length (41 ),T 
(41 > ,Speed_art (41) 

6710  REDIM  Nodes ( 2*Nseg+ 1 ). Key_nodes ( 2*Nseg+ 1 ) 

6720  INTEGER  1,0 

6730  MAT  Speed=  Speeds 

6740  MAT  Length_ segment=  Length_seg 


9-88 
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6750  Maxnode=2*Nseg+ 1 

6760  CALL  Calculate_nodes<  Nodes  <  *  >  .  Lenqth_seqment  (  *  )  ,  P  ev  nodes  <  *  '  .  1  eng  1. h  __  =  <- 
al , Nseg ) 

6770  CALL  Contr  ol  _  speeds  ( Speed  _  art  (  *  )  .  May.  node.  Speed  ( *  > . Lengt  hser  l  al  .  Pace  .  \ 
_nodes  <  * )  , Nseq ) 

6780  CALL  Cal  cul  ate_l  enqt  (Length  (*),  Nodes  (*),  Max  node  > 

6790  CALL  Calcul  at e_  1 1  mes ( Max  node, Speed _ ar  t (  *  )  , Length (  *  )  ,  Ti me ( * )  > 

6800  FOR  1=2  TO  Nun  it 

6810  Back ( I > =Back <  1-1  ) +Mu_ i nt+Lc ( 1-1 > 

6820  NEXT  I 

6830  FOR  1=2  TO  Nser 

6840  FOR  L=Bran ( I >  TO  Nunit 

6850  Back (L  > =Bac  V  ( L ) -Mu_i nt+Ser _ i nt 

6860  NEXT  L 

6870  NEXT  I 

6880  MAT  SORT  key_nodes  TO  Key_nodes 

6890  FOR  1=1  TO  Nunit 

6900  FOR  J=1  TO  Nseg-M 

69 10  XI  =Nodes  ( Key_nodes  (0  - 1 )  )  -t-Back  ( I ) 

6920  X2=Xl+Lc(I) 

6930  Dun  <  J ,  I ) =FNCr oss (  X  1  ,  Ti me ( * ) , Nodes ( * )  . Speed _art ( *  )  ) 

6940  Dut ( J ,  I ) =FNCr oss <  X2, Ti me ( #  >  .Nodes!*)  , Speed _ art  ( * )  ) 

6950  NEXT  J 

6960  NEXT  I 

6970  SUBEND 

6980  '**»**  this  -function  rounds  to  nearest  integer 

6990  DEF  FNRound ( X  > 

7000  RETURN  INT<X+.5> 

7010  FNEND 

7020  '**»**  this  routine  tab  feeds  the  page  in  the  printer  ***** 

7030  SUB  Ff 

7040  PRINT  CHRS<12) 

7050  SUBEND 

7060  '***»*  this  routine  prints  a  data  input  sheet  ***** 

7070  SUB  Input_sheet 
7080  INTEGER  C.D 

7090  PRINTER  IS  702 

7100  PRINT  TAB (32) ; "DATA  INPUT  SHEE , 

7110  PRINT 

7120  PRINT  "PACE  SPEED  _  V MPH 

7130  PRINT  "VEHICLE  INTERVAL  _  _  METERS  AVG  VEHICLE  LENGTH  _  _  MET 

S" 

7140  PRINT  "MARCH  UNIT  INTERVAL  _  KM  SERIAL  INTERVAL  _  * M" 

7150  PRINT 

7160  PRINT  "**  OF  ROAD  SEGMENTS  IN  ROUTE  _ " 

7170  PRINT 

7180  PRINT  "SEGMENT**  MAX  RATE  <  k  MPH )  D I  STANCE  (KM)  SEGMENT**  MAX  RATE  O  MPH 
DISTANCE (H  M)  ” 

7  190  FOR  D=  1  TO  1<T 

7200  PRINT  TAB  (3)  ;  D:  T  AB  !  1  TO  :  " _  _  "  ;  TAR  <  43  >  :  D+ 1  0  :  T  AB  <  5".  •  : 

7210  NEXT  D~  ~ 
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7220  PRINT 

7230  PRINT  "#  OF  SERIALS  _ " 

7240  PRINT 

7250  FOR  D= 1  TO  5 

7260  PRINT  "SERIAL  NUMBER"  :  D;  TAB  <40>  ;  "SERI  Al.  NUMBER "  ;  D+5 

7270  PRINT  "#  OF  MARCH  UNITS  IN  SER I  At.  "  ;  D;  "  "  ;  TAB  (40)  :  "  #  OF  MARCH  UNIT 

IN  SERIAL" ; D+5; " _ " 

7280  PRINT  "MU#  #  OF  VEHICLES"  :  TAR  <  4  0 :  " MU#  #  OF  VEHICLES" 

7290  FOR  C=I  TO  10 

7300  PRINT  TAB< 1 > ;C; TAB < 1 1 ) :  " _  " : TAB < 40; : C; TAB (50> ; " 

7310  NEXT  C 

7320  PRINT 

7330  NEXT  D 

7340  PRINT 

7350  PRINT  "  CP  HALT  TIME (MINS)  CP  HALT  TIME (MINS)  CP  HALT  T 

E (MINS) " 

7360  FOR  D=1  TO  7 

7370  IF  D=1  THEN 

7380  PRINT  TAB ( 2) : " SP" ; 

7390  ELSE 

7400  PRINT  TAB <  1 )  ; D-l ; 

7410  END  IF 

7420  PRINT  TAB (10) ; ” _ " ; TAB (26) ; D+6: TAB (35) ; " _ " ; 

7430  IF  D=7  THEN 

7440  PRINT  TAB (52) ; "RP" ; TAB ( 60) ; " _ " 

7450  ELSE 

7460  PRINT  TAB (51) ; D+ 13; TAB (60) ; " _ " 

7470  END  IF 

7480  NEXT  D 

7490  PRINT 

7500  PRINT  "RESULTS  FROM  WHICH  MARCH  DISCIPLINE  (CIRCLE  ONE)" 

7510  PRINT 

7520  PRINT  "1.  HASTY  WITH  SPEED  CHANGES" 

7530  PRINT  "2.  HASTY  WITH  ROLLBACK" 

7540  PRINT  "3.  CONTROLLED  MOVE" 

7550  PRINT 

7560  PRINT 

7570  PRINT  "DESIRED  START  TIME  _  OR  DESIRED  ARRIVAL  TIME  _ " 

7580  PRINT  "NUMBER  OF  DAYS  TO  DEPARTURE  _ " 

7590  PRINT  CHR* ( 12) 

7600  PRINT  CHR* (12)  I 

7610  PRINTER  IS  1 

7620  SUBEND 

7630  '*#***  this  routine  converts  time  to  military  cloc):  ***** 

7640  SUB  Hr smi ndays (Mi  nut es . Hr s. Mi  ns . Da vs ) 

7650  M=FNRound (Minutes) 

7660  Days=M  DIV  1440 

7670  Hr s= (M  MOD  1440)  DIV  60 

7680  Mi ns=FNRound < <M  MOD  1440)  MOD  60) 

7690  IF  <Hrs=0  AND  Mins=0  AND  M-  >0)  THEN 

7700  Hrs=24 

7710  Days=Days-l 
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7720 
7730 
7740 
7750 
7760 
7770 
7780 
TIME 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
8030 
0040 
8050 
8060 
8070 
8080 
8090 
8 1 00 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8 1 90 
8200 
8210 
8220 


Table  9-3a.  ADEA  movement  code  (continued). 

END  IF 
SUBEND 

'***♦*  this  routine  prompts  tor  a  start  time  or  due  time  ***** 

SUB  Time  i  npi.it  (Alt.  A2»,  A1  Fa) 

INTEGER  A.B 
Home 

PRINT  TABXY < 1 ,23) ; "ENTER  THE  ":A1S:"  IN  MILITARY  CLOCK"  !  Al*  IS  ST  ART  I  N( 
OR  DUE  TIME 

DISP  "HOUR (S)  (0-24)  :  " 

ENTER  2; A 

IF  A<0  OR  A >24  THEN  GOTO  7790 
DISP  "MINUTE <S)  <0-59)  :  " 

ENTER  2;B 

IF  B< 0  OR  B>59  THEN  GOTO  7820 
IF  A=0  AND  B=0  THEN  GOTO  7790 
IF  A=24  AND  BOO  THEN  GOTO  7790 
Zorro=B+  <60*A) 

Home 

PRINT  TABXY< 1.23); "ENTER  THE  NUMBER  OF  DAYS  " : A2* 

PRINT  "<e.g.  ENTER  2  FOR  THE  DAY  AFTER  TOMMOROW) " 

ENTER  2; Mark 

IF  Mark<0  OR  Mark>365  THEN  GOTO  7890 
A1 ta=Zorro+ (Mark* 1440) 

SUBEND 

•*«***  this  routine  provides  general  information  to  the  user  ***** 

SUB  Information 
Home 

PRINT  TABXY < 1 . 6) ; “STEP  ONE-ORGANIZE  ROUTE  INFORMATION" 

PRINT 

PRINT  TAB  (4) "LIST  ON  THE  INPUT  SHEET.  BY  ROAD" 

PRINT  TAB (4) ; "SEGMENT,  THE  LENGTH  AND  MAXIMUM" 

PRINT  TAB (4) ; "TRAVEL  RATE  FOR  EACH  SEGMENT." 

PRINT  TAB (4); "LIST  ON  THE  INPUT  SHEET.  ANY" 

PRINT  TAB ( 4 )  ; "HALT  TIMES  FOR  ANY  CHECK  POINT." 

PRINT 

PRINT 

INPUT  "PRESS  ENTER  TO  CONTINUE" , An* 

Home 

PRINT  TABXY < 1 . 6) ; "STEP  TWO-ORGANIZE  SERIAL  INFORMATION" 

PRINT 

PRINT 

PRINT  TAB ( 1 ) ; "LI ST  ON  THE  INPUT  SHEET,  BY  SERIAL.  THE" 

PRINT  TAB ( 1 ); "NUMBER  OF  MARCH  UNITS  IN  EACH  SERIAL  AND" 

PRINT  TAB<1)  .-"THEN  NUMBER  OF  VEHICLES  IN  EACH  MARCH" 

PRINT  TAB < 1 ); "UNIT.  ENTER  IN  SERIAL  ORDER" 

PRINT  T AB  < 1 ) ; " IE.  (SER I AL 1 . MU 1 > ,  (SERI AL1 , MU2) , . . . " 

PRINT  TAB ( 1 ) ; " ( SER I ALN , MU 1 ) , . . .  (SERI ALN, MUQ)  .  " 

PRINT 

PRINT 

INPUT  "PRESS  ENTER  TO  CONT INUE" . An* 

Home 

PRINT  TABXY ( 1 . 6) ; "STEP  THREE -DETERMINE  SERIAL  CONSTRAINTS" 
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8230  PRINT 

8740  PRINT 

823,0  PRINT  TAB  (  1  )  :  "THE  FOLLOWING  CONSTANTS  ARP  RFOIJTRED:  " 

0260  PRINT  TAB< 1 ); "MAXIMUM  SPEED  FOR  LEAD  VEHICLE  (PACE)" 

8270  PRINT  TAB ( 1) ; "VEHICLE  INTERVAL" 

0200  PRINT  TAB < 1 ); "AVERAGE  VEHICLE  LENGTH" 

8200  PRINT  TAR< 1 ); "MARCH  UNIT  INTERVAL" 

8300  PRINT  TAB< 1) ; "SERIAL  INTERVAL" 

8310  PRINT  TAB(1 ); "MARCH  DISCIPLINE" 

8320  PRINT  TAB! 1 ): "START  TIME  OR  ARRIVAL  TIME" 

8330  PRINT  TAB ( 1 ): "NUMBER  OF  DAYS  TO  DEPARTURE" 

8340  PRINT 

8350  PRINT 

8360  INPUT  "PRESS  ENTER  TO  CONT I NUE " . An* 

837o  PRINT 

8380  PRINT 

8390  PRINT  TAB (25) : "MOVEMENT  RATE  GUI DE ( UNOPPOSED > " 

8400  PR I NT  TAB ( 37 ) ; " ( KMPH ) " 

8410  PRINT 

8420  PRINT  TAB (44) ; "WEATHER  CONDITIONS" 

8430  PRINT  TAB ( 40 )  :  " ( DAY /N-L I GHTS/N-BLACP  OUT ) ” 


8440 

/  HVY  " 

PRINT 

TAB (8) ; " 

LIGHT 

F( 

8450 

I  TAT  ION" 

PRINT 

TAB (8) ; "TERRAIN 

UNIT  TYPE 

GOOD 

PRECIPITATION 

PF;EC 

8460 

.9/1.9" 

PRINT 

TAB (8) ; "ROAD 

FOOT  TRPS 

4/3. 2/3. 2 

3. 2/2. 5/2. 5 

2.  4 

8470 

24/9.6" 

PRINT 

TAB  <8 ' : " 

TRt  .  GENRL. 

40/40/16 

32/32/12.8 

- 

8480 

12/8" 

PRINT 

TAB (8) ; " 

TRCKD  VEH 

24/24/ 16 

16.8/16.8/11.2 

1 

8490 

24/9.6" 

PRINT 

TAB (8) : " 

ARTY. TRCt 

40/40/ 16 

32/32/16 

~ 

8500 

16/8" 

8510 

PRINT 

PRINT 

TAB (8) ; " 

ARTY ,  TRCTF' 

32/32/ 16 

22.4/22. 4/11.2 

8520 

.9/0.9" 

PR  I  NT 

TAB (8) ; "X-COUNTRY 

FOOT  TRPS 

2. 4/ 1 . 6/ 1 . 6 

1 . 9/ 1 . 2/ ) . 2 

1 . 4 

8530 

.8/4.8" 

PRINT 

TAB (8) ; " 

TF:L  .  GENRL 

12/12/8 

9. 6/6. 4/6. 4 

7. 7 

8540 
/  8  /  4  " 

PRINT 

TAB (8) : " 

TRCKD  VEH 

14/8/8 

11.2/5.6/5.6 

8550 

.8/4.8" 

PRINT 

TAB (8) : " 

ARTY. TRCK 

12/8/8 

9.6/6. 4/6. 4 

7.  : 

8560  PRINT 

8/4" 

8570  DISF 

8580  ENTER 

8590  SUBEND 

TAB  (8)  ;  "  ARTY .  TRCTF: 

"PRESS  ENTER  TO  CONTINUE" 

2:  An* 

16/8/8 

1  1.2/5. 5/5. 6 

8600  '*****  this  routine  calculates,  a  hastv  move  with  speed  ***** 

8610  '****»  changes  or  a  hasty  move  with  times  rollbarted  ***** 

8670  SUB  Hasty (Dun <*), Dut  (*), Lc  (»).  t  1  in  (*>. Nsea, Spd <*>. Pace. Mu  l  nt. ,  Ser  i  nt  .  IV  • 
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Table  9-3a.  ADEA  movement  code  (concluded). 


*  >  ,  Hi  in  1 1  .  INTEGER  P-f  ) 

8630  DIM  Nodes < 4 1 >, Key  nodes ( 4 1 ). Speed ( 2 1 >. Length  segment  ( 2 1 ) . L emit .h < 4 1 ) . Ti 
( 4 1 > , Speed _ar t  ( 4  I > , Duedi f  f ( 30) 

8640  REDIM  Nodes ( 2#Nseg+ 1 ), Key  nodes ( 2*Nseq+ 1 ) 

8650  INTEGER  I ,  J 

fl6»0  MAT  Speed=  Spd 

8670  MAT  Length_seqment=  Kim 

8680  Maxnode=2*Nseg+ 1 

8690  FOR  1=1  TO  Nun it 

8700  CALL  Cal  cul  at e_  nodes  INodes ( *  > . Length  segment (*> .  ,  ey  nodes  <  *  > .Lc (I)  ,N 

g ' 

87 1  0  Control  _speeds  <Speed_art  (  * )  ,  Ma>:node,  Speed  (  *  )  .  Lc  <  I  )  .  Pace,  Key  nodes  (  *  ) 

seq ) 

8720  Cal  cli  1  at  e_ 1  eng t  (Length  ( * )  ,  Nodes  <#)  .Mannorie) 

8730  Cal  cul  ate_t  i  mes  (Ma:<node ,  Speed  _art  (*>  ,  Length  (  i  )  ,  Ti  me  (  *  )  ) 

8740  MAT  SORT  Key_nodes  TO  Key_nodes 

8750  FOR  J=1  TO  Nseg+1 

8760  X l=Nodes (Key.  nodes ( J-l ) ) 

8770  X2=X 1 +Lc ( I ) 

8780  Dun ( J , I ) =FNCross ( X 1 , Ti me ( * ) . Nodes ( *  > , Speed_art ( *  >  > 

8790  Dut  ( J  ,  I )  =FNCr  ass  (  X2,  Ti  me  (  * )  ,  Nodes  (  *  )  ,  Speed  ar  t  <  *  )  ) 

8800  NEXT  J 

0810  NEXT  I 

8820  FOR  1=2  TO  Nun  it 

8830  FOR  J=1  TO  Nseg+1 

8840  Gap=Mu_int 

8850  FOR  K=2  TO  SlZE(Bran,l> 

8860  IF  I=Bran(K)  THEN  Gap=Ser  int 

8870  NEXT  K 

8880  Gap=Gap/Pace 

8890  IF  P-f  =  l  THEN  1  it  hasty  with  4peed  chariaes 

8900  IF  J<Nseg  +  l  THEN  Due_di  -f -f  ( J  )  =Dun  ( J  +  l  .  I  )  -Dun  ( J  .  I ) 

8910  Di  -f  -f  =Dut  ( J  ,  I  )  -Dun  ( J  ,  I  ) 

8920  IF  J >1  THEN 

8930  Dun ( J , I ) =Dun ( J— 1 , I ) +Due_d l f -f (J-l > 

8940  I F  Dun ( J ,  I ) <  Dut  ( J ,  I  —  1 ) +Gap  THEN  Dun ( J .  I ) =Dut ( J ,  I - 1 ) +Gap 

8950  ELSE 

(3960  Dun  ( J  ,  I  >  =Dut  ( J  ,  I  - 1  >  +Gap 

8970  END  IF 

8900  Dut ( J , I ) =Dun ( J . I > +Di f f 

8990  END  IF 

9000  IF  F'+=2  THEN  !  i -f  hasty  with  rollback 

9010  IF  Dun ( J , I ) < Dut ( J , I - 1 ) +Gap  THEN 

9020  Del ay=Dut ( J , I - 1 ) +Gap-Dun ( J .  I  ) 

9o30  FOR  K=1  TO  Nseg+1 

9040  Dun (K, I ) =Dun (K, I ) +Del ay 

905('i  Dut  (K.  I  )  =Dut  (K.  I  )  +Del  ay 

9060  NEXT  ( 

9070  END  IF 

9000  END  I F 

9.  .90  NEXT  J 

9p">  NEXT  I 
9  1  1  ■  >  F:  UPEND 
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CHAPTER  10 


UNIT  STATUS  REPORT 


1.  PURPOSE. 

The  purpose  of  the  DIME  unit  status  report  (P8)  is  to  generate  reports 
summarizing  divisional  activities  for  a  six-hour  period. 

2.  GENERAL. 

A.  Unit  history.  The  unit  history  is  a  cumulative  display  of  ammunition 
levels  remaining  after  the  six-hour  critical  incident  (Cl).  These  values, 
along  with  current  mission,  combat  effectiveness,  and  ammunition/fuel 
(AMMO/POL)  logistics  data,  are  given  for  each  active  unit  in  the  "UNITFILE." 
(See  Figure  10-1.) 

B.  Killer /victim  summary.  The  killer/victim  (K/V)  segment  of  the  DIME 
unit  status  report  (P8)  generates  two  reports:  a  killer /victim  scoreboard 
and  attack  helicopter  results.  The  K/V  scoreboard  shows  both  Blue  vs.  Red 
and  Red  vs.  Blue.  (See  Figure  10-2.) 

C.  Gamer/staff  worksheets.  Gamer/staff  worksheets  are  printed  for  each 
active  unit  in  the  Cl.  Information  from  the  unit  history  is  used  tc 
calculate  resupply  values  which  are  input  from  the  worksheets  in  the  game 
initialization  program  (PI).  (See  Figure  10-3.) 


3.  DATA  FLOW. 

Data  used  in  P8  consist  of  interactive  question/answer  information  and 
external  data  files. 

A.  Operator  input. 

(1)  It  is  possible  to  enter  P8  anytime  during  a  game  turn  in  order  to 
obtain  a  current  K/V  scoreboard.  By  answering  "Y"  to  the  question 
"Killer/victim  table  listing  only?",  calculations  or  updates  are  made  to  the 
"UNITFILE."  The  questions  concerning  attrition  and  game  turn  identification 
which  follow  must  then  be  answered.  The  K/V  summary  is  the  only  portion 
printed  before  control  returns  to  the  DIME  menu. 


UNIT  HI STORY  FOR  GAME  1  TURN  2 


RED  UNITS: 


UNIT:  66  tllTHTB  TYPE:  2.0  ACTIVE  C3T-EFF:  .30  MISSION:  2.0 

SYSTEMS  REMAINING: 

1:  17.4  2:  11.3  3:  .3  4:  0.0  3:  4.0  6:  0.0  7:  9.1 

3:  .6  9:  3.3  10:  100.9  II:  0.0  12:  .4  13:  0.0  14:  3.3 

IS:  0.0  16:  0.0  17:  1.9  13:  .1  19:  3.0  20:  43.0  21:  9.0 

DETECT  I  ON:  NOT  DET  SENS  STATUS  (Z/G):  4.4  FRA  CVG:  .50  KM  MOVED:  O 

AIR  DEFENSE:  SUPPRESSION:  0.00  CORPS  SUPPORT  ADA:  71 


LOGISTICS: 


TYPE 

STATUS 

PROFILE  CONSUMED 

RESUPPLY 

CN-TRK 

ON-GNO  D I Sr NO 

CN-vEH 

cl-rrnt 

US  D/DT 

OF 

1 .  oo 

2  9 

O 

131 

749  0 

32 

101 1 

9 

IF 

1.00 

2  10 

0 

16 

67  0 

3 

36 

11 

AO 

1  .oo 

2  I 

0 

13 

76  0 

1 

93 

2 

FU 

.26 

2  0826 

0 

0 

0  0 

3193 

0193 

12641 

EQUIVALENT  EMPTY  AnnQ  TRUCKS  0 


UNIT:  67  1  12THT3  TYPE:  2.0  ACTIVE  C8T-EFF:  .30  MISSION:  2.0 

SYSTEMS  REMAINING: 

1:  23.7  2:  11.3  3:  .8  4-  o.O  3:  4.0  6:  0.0  7:  9.1 

8:  .6  9:  0.0  10:  100.9  11:  0.0  12:  .4  13:  0.0  14;  3.8 

13:  0.0  16:  0.0  17:  1.9  18:  .1  19:  3.0  20:  43.0  21:  9.0 

DETECTION:  NOT  DET  SENS  STATUS  (Z/G):  3.4  FRA  CVG:  .50  KM  MOVED:  O 

AIR  DEFENSE:  SUPPRESSION:  0.00  CORPS  SUPPORT  ADA:  71 


LOGISTICS: 


TVP€ 

STATUS 

PROFILE 

CONSUMED 

RESUPPLY 

on-trk 

ON-GND  DISPND 

ON-VGH 

CURRNT 

USD/DT 

OF 

1.00 

2 

9 

O 

182 

800  O 

80 

1063 

10 

IF 

1.00 

2 

io 

0 

13 

68  0 

3 

86 

1 1 

AD 

1.00 

2 

1 

0 

18 

77  0 

1 

93 

2 

FU 

.24 

2 

4866 

0 

0 

O  0 

2885 

2883 

14721 

EQUIVALENT  EMPTY  AMMO  TRUCKS  O 


UNIT:  68  113THT3  TYPE:  2.0  ACTIVE  C3T-EFF:  .80  MISSION:  2.0 


SYSTEMS  REMAINING: 


1  : 

25.7 

2: 

11.3 

3: 

.3 

4: 

0.0 

3: 

4.0 

6: 

0.0 

7z 

9.  1 

8: 

.  6 

9: 

0.0 

10: 

lOO.  9 

1  1: 

0.0 

12: 

.  4 

13.* 

0.  0 

14; 

3.  8 

13: 

0.0 

16: 

0.0 

17: 

1.9 

18: 

- 1 

19: 

5.0 

20: 

43.  0 

21 : 

9.0 

Figure  10-1.  Unit  history  output. 
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RED  KILLER  BLUE  VICTIM  FILE  FOR  GAME  1  TURN  2 


VICTIM 

< - 

- - . - 

D/F 

I/F 

LAV23 

7.  3 

3.  1 

fav-t 

10.  6 

2.  1 

hmm-t 

4.2 

.  9 

FAV40 

2.3 

1.0 

HMH40 

19.  3 

4.4 

PGATM 

0.0 

0.0 

DRAGN 

39.  7 

32.3 

0.0 

0.0 

0.0 

0.0 

INFTY 

O.  0 

294.  4 

arty 

0.0 

3.  4 

VULCN 

0.0 

i .  i 

nCRS 

0.0 

.7 

rtORTR 

0.0 

10.9 

I  CHAP 

0.0 

.  5 

I  HAWK 

0.0 

0.0 

STING 

2.0 

7.0 

CMD-V 

14.5 

3. a 

e-trk 

0.0 

.  1 

a-trk 

0.0 

.6 

SP-VE 

12.3 

.2 

BLUE  KILLER — RED 

victim 

victim 

< _ 

D/F 

I/F 

T30 

13.3 

3.6 

Br.p 

7.3 

11.4 

bupsi 

I  .  3 

.5 

8TR 

7.  1 

3.6 

PRDM2 

1  -  9 

2.  4 

SPAT 

.  4 

.2 

AT— 4 

1.2 

3.0 

ASUS3 

0.0 

0.0 

BMD 

0.0 

0.0 

INFTY 

104.  3 

1  19.  4 

ARTY 

0.0 

3.  4 

ZSU-X 

.  4 

1.0 

WL 

0.  0 

2.  7 

MORTR 

2.2 

26.3 

SA-13 

0.0 

1.7 

SA-8 

0.0 

0.0 

SA-14 

2.3 

13.  4 

CMO-V 

3.7 

7.3 

P-TRK 

0.  0 

0.0 

A-  TRK 

0.  0 

0.0 

SP-VE 

13.6 

0.  0 

GAME  1  turn  2 


KILLER 


A/H 

4.7 
2.9 

.3 

13.2 

2.7 
■  S 

0.  O 
0.0 
0.0 
1  18.8 
9.3 
.  4 
4.  8 
O.  0 
.2 
0.0 
0.0 
13.  6 
.  1 
.2 
.3 


AIR 

12.3 

2.3 
2.7 

17.3 

2.7 
.3 

1.3 

0.0 

9.3 
233.8 

60.8 

1.8 

19.7 

6.4 

2.3 

.2 

8.3 
32.3 

3.3 
40.  1 
32.3 


T/KILL 

21.4 

18.4 

9.3 

7.3 

37.6 
1.7 

78.3 
0.0 
0.0 

377.3 
29.  7 

2.3 
.  7 

12.  1 

1 . 4 
0.0 
9.3 

36.3 
1.7 

13.6 

22.0 


T/KILL 
34.  7 

24.7 

3.2 

44.3 
9.9 
2.0 
3.7 
0.0 

9.3 
665-  4 

73.7 
3.6 

27.2 

33.4 
4.2 

.2 

26.4 
60.  6 

3.  4 

40.3 
32.  4 


ATTACK  HELICOPTER  RESULTS 


SKILLED 

1.9 
0.0 
1 . 2 


4SCRTIES 
32.  4 
0.0 
4.  3 


Figure  10-2.  Killer/victim  scoreboard. 
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GAMER  STAFF  WORK  SHEET  FOR  TURN  3 


l 


► 


t 


£ 


BLUE  UNITS: 


UNIT 

1 

LIDTEST 

TYPE:  1.6 

LINE 

Is 

ACTIVITY:  1 

NCPP  LEVEL:  1 

MISSION:  8.0 

KM  nOVED:  0 

LINE 

2* 

SENSOR  GP:  4 

ZONE:  4 

PCT  COVERED: 

50 

LINE 

T  . 

PCT  ADA  SUF PRESS 

ION:  VEH:  0 

HAND:  0 

CORPS  ADA:  6 

LINE 

4: 

RESUPPLY:  7.DF: 

X  IF: XAD: 

_  AMMO (tons) 

: _ FUEL  (gall  ; 

LINE 

5: 

DISfENSED:  v.DF: 

7.1  F: _  7.AD: 

_  AMMO (tons) 

: _ FUEL:  fqal  ) _ 

UN  1  T 

2 

LIDl-CRD 

TYPE:  1.6 

LINE 

1 : 

ACTIVITY: 

1 

NCPP  LEVEL: 

1 

MISSION:  e.o 

KM  r-.OvED:  0 

L  I NE 

SENSCR  GF : 

4 

ZONE:  4 

PCT  COVERED: 

50 

L  I  NE 

3: 

PCT  ADA  SUPPRESS 

ICN:  VEH: 

0 

HAND:  0 

CORPS  ADA: 

6 

LINE 

4: 

RESUPPLY: 

TDF: 

7.  IF: 

•/.AO: 

_  Ar.r.C  (tons) 

: 

FUEL (gal 1 : 

— 

LINE 

5: 

DISPENSED: 

V.DF: 

‘/.IF: 

7.AD: 

_  AMMO (tons) 

= 

_ _  FUEL:  tgal ) 

— 

UNIT 

3 

sbdehqtr 

TYPE:  1 . 6 

LINE 

1 : 

ACTIVITY: 

2 

NO PP  LEVEL: 

1 

MISSION:  9.0 

KM  rCVED:  0 

LINE 

2- 

SEMSOR  GP: 

4 

ZONE:  4 

PCT  COVERED: 

30 

LINE 

3: 

PCT  ADA  SUPPRESSION:  VEH: 

0 

HAND:  0 

CORPS  ADA: 

6 

LINE 

4: 

RESUPPLY: 

/.DP : 

7.IF:  _ 

‘.'.AD: 

_  AMnO(tons) 

: 

FUEL (gal ) : 

_ 

LINE 

3: 

DISPENSED: 

y.DFs 

_  7.IF:  _ 

7.AD: 

_  AMMO (tons) 

: 

FUEL: fgal ) 

— 

UNIT 

4 

CBAAHQTR 

TYPE:  1.6 

LINE 

1  : 

ACTIVITY: 

1 

rOPP  LEVEL: 

I 

MISSION:  8.0 

y.n  HOVED:  0 

LINE 

2: 

SENSOR  GP: 

4 

ZONE:  4 

PCT  COVERED: 

50 

LINE 

3: 

PCT  ADA  SUPPRESS 

ION:  VEH: 

0 

HAND:  0 

CORPS  ADA: 

5 

LINE 

4: 

RESUPPLY: 

7.DF: 

7.  IF: 

7.  AD: 

_  AMMO (tons) 

FUEl-Cg-al): 

— 

LINE 

5: 

DISPENSED: 

V.DF: 

•'.IF: 

/AD: 

;  AMMO (tons) 

• 

FUE\.:(g*l> 

Figure  10-3.  Gamer/staf  f  worksheet. 
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(2)  If  game  turn  updates  are  wanted  (answer  the  first  question  with 
"N"),  more  information  is  needed  before  the  process  may  continue.  It  is 
important  to  know  what  attrition  programs  (P3,  P4,  P5  or  P6)  have  been  run 

1  during  the  Cl. 

(3)  After  answering  correctly  about  the  attrition  programs,  enter 
characters  to  identify  the  game  and  the  turn  (Cl).  A  final  abort  of  P8  is 

l  then  offered  before  irreversible  changes  are  made  during  the  running  of  this 

program. 

I 

B.  Outputs  consist  of  the  unit  history,  K/V  summary,  and  gamer/staff 
worksheets  discussed  in  paragraph  2.  For  necessary  file  outputs  of  P8, 
refer  to  paragraph  6  of  this  chapter. 

C.  A  data  flow  chart  is  shown  in  Figure  10-4. 

D.  Information  about  the  external  data  files  may  be  found  in  the 
following  paragraph. 


4.  FILE  STRUCTURE. 

A.  "UNITFILE" .  The  unit  status  file  is  a  400-record  file  which  holds  150 
elements  of  information  for  each  of  the  400  units.  A  complete  description 
may  be  found  in  Chapter  1,  Table  1-1. 

B.  "TOEFILE" .  The  "TOEFILE"  holds  the  beginning  70  weapon  systems  from 
the  "UNITFILE",  an  effectiveness  number,  side,  and  mission  data. 

C.  "NAMEFILE".  The  "NAMEFILE"  holds  the  name  of  each  of  the  400  units  in 
the  "UNITFILE". 

D.  "KVFILE".  Holds  killer /victim  data  for  Blue  and  Red. 

E.  "HELOFILE" .  Holds  attack  helicopter  data. 

F.  "BL/RDCHMVCTM" .  Holds  Blue  and  Red  chemical  victim  data. 

G.  "B/RAIR  IN".  Holds  Red  and  Blue  air  losses.  The  :,BAIR_IN"  file  holds 
the  number  of  kills  by  the  Blue  aircraft  (number  of  Red  system  losses)  and 
the  "RAIR_IN"  files  contains  the  number  of  kills  by  ,Red  aircraft  (Blue 
system  losses). 

H.  All  PI  Files.  See  Chapter  2  for  greater  detail. 
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Input: 


Calculations: 


Output: 


Figure  10-4.  Unit  status  report  data  flow. 


5.  ALGORITHMS. 

The  logic  flow  of  the  unit  status  report  is  shown  in  Figure  10-5.  Most  of 
the  calculations  in  P8  are  done  through  loss  assessment  files  that  have  been 
accumulated  over  the  preceding  six-hour  game  turn.  The  main  algorithms  are 
as  follows: 

A.  Current  ammunition  on  cargo  vehicles. 

New_N123  =  N123  *  N58  /  N84  (Eq.  10-1) 

where: 

New_N123  =  current  ammunition  on  cargo  vehicles  in  short  tons. 

N123  =  preceding  ammunition  on  cargo  vehicles  in  short  tons. 

N58  *  current  number  of  ammo  trucks. 

N84  =  cargo  trucks  alive  at  start  of  preceding  game  turn. 

B.  Current  fuel  on  fuel  vehicles.  • 


New_N103  =  N103  *  N55  /  N85  (Eq.  10-2) 


where : 


New_N103  =  current  fuel  on  fuel  vehicles  in  gallons. 

N103  ■  preceding  fuel  on  fuel  trucks  in  gallons. 

N55  =  current  number  of  fuel  trucks. 

N85  =*  fuel  trucks  alive  at  start  of  preceding  game  turn. 
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C.  Calculation  of  the  total  amount  of  ammunition  on  vehicles  for  each  of 
the  three  weapon  types  (DF,  IF,  AD)  is  done  as  follows: 


H  ^  <Nij 


*  Ac-i-i) 


(Eq.  10-3) 


where : 


Tra^  =  total  amount  of  ammunition  on  vehicles  of  type  i  (DF,  IF, 
AD)  in  short  tons. 

N-jj  «  number  of  "UNITFILE"  system  elements  (j)  which  are  of  type 
i. 

Acij  =  ammunition  capacity  for  system  element  (j)  which  is  of  type 
i  in  short  tons. 


D.  The  total  amount  of  ammunition  per  weapon  type  (DF,  IF,  AD)  is: 


•  v 

Ta-ji  =  '  (^cij  *  Njj  *  As^) 


(Eq.  10-4) 


where : 

v 

Ta^  =  total  amount  of  ammunition  per  weapon  type  i  (DF,  IF,  AD) 
(short  tons). 

Asi  =  ammunition  status  for  weapon  type  i;  the  percentage  of 
total  ammunition  capacity  the  vehicles  are  actually 
holding. 

E.  Total  fuel  for  all  system  elements  is  calculated  as  follows: 


(Nj  *  Fcj  *  N101) 


(Eq.  10-5) 


where : 


total  fuel  (gallons)  for  all  system  elements, 
number  of  "UNITFILE"  system  elements  (j). 
fuel  capacity  (gallons)  for  system  element  j. 
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N101  =  fuel  status  of  unit  vehicles;  the  percentage  of  total  fuel 
capacity  the  vehicles  are  actually  holding. 

6.  FILE  EFFECTS. 

P8  affects  various  files  used  in  DIME,  some  in  such  a  way  that  the  only  way 
they  can  be  recovered  is  by  rerunning  a  Cl. 

A.  "UNITFILE"  impact.  Updates  the  fuel  status,  ammunition  status,  and 
combat  effectiveness  of  each  unit. 

B.  "KVFILE".  Zeros  out  all  entries  in  the  K/V  file  after  it  has  printed 
the  worksheets. 

C.  "HELOFILE” .  Zeroes  the  helicopter  file  at  the  end  of  processing. 

D.  Chem  files.  Zeroes  chemical  files  at  the  end  of  processing. 

E.  Air  files.  Zeroes  air  loss  files  at  the  end  of  processing. 


7.  CODE. 


A.  This  section  contains  information  on  the  unit  status  report  program 
code.  For  a  generalized  flow  of  this  program,  refer  to  Figure  10-5. 

B.  The  program  begins  by  entering  data  necessary  to  open  the  appropriate 
files.  Once  the  files  have  been  accessed,  the  following  areas  are  done  for 
each  of  the  400  units: 

(1)  The  appropriate  data  is  read  for  each  unit. 

(2)  If  the  unit  is  active,  the  current  fuel  and  ammunition  on  the 
cargo  vehicles  is  calculated.  The  number  of  ammunition  and  fuel  trucks  that 
will  begin  in  the  following  critical  incident  (Cl)  are  saved  within  the 
"UNITFILE".  Finally,  for  each  active  unit,  the  combat  effectiveness  is 
recalculated. 

(3)  All  units,  active  or  inactive,  go  through  the  following  process: 

(a)  The  total  amount  of  ammunition  on  vehicles  for  each  of  the 
three  weapon  types  (DF,  IF,  AD)  is  calculated. 

(b)  Ammunition  status  for  each  weapon  type  (DF,  IF,  AD)  is 
recalculated.  Ammunition  available  to  be  consumed  is  set  to  zero  and  the 
ammunition  which  remained  after  the  Cl  is  placed  in  entirety  on  the  ground. 

(c)  The  new  distribution  of  ammunition  on  the  ground  for  DF,  IF, 
and  AD  is  figured. 
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(d)  Calculations  for  the  total  fuel  over  all  systems  and  the  total 
ammunition  for  each  weapon  type  (DF,  IF,  AD)  then  occur. 

(e)  Resupply  and  dispensation  information  is  zeroed  out  to  prepare 
for  new  resupply  information  to  be  entered  in  Pi  (game  initialization). 

(f)  The  status  report  for  each  unit  is  printed  and  information  is 
updated  to  the  "UNITFILE” . 

(4)  The  killer /victim  scoreboard  and  helicopter  information  are 
printed.  Following  these  are  the  gamer /staff  worksheets. 

(5)  All  cumulative  kill  files  are  zeroed  to  prepare  for  the  following 

Cl. 

C.  A  subroutine  and  variable  listing  is  shown  in  Table  10-1.  A  code 
listing  appears  in  Table  10-2. 
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(able  Hl-I.  Unit  status  report  subroutine  table. 


(able  10-1.  Unit  status  report  subroutine  table  (continued). 
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New  fuel  Current  fuel  truck  loads  In 

gallons 


(dble  10-1.  unit  status  report  subroutine  table  (continued). 


1 
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Unit  status  report  subroutine  table  (continued). 


trucks  In  tons 


[able  10-1.  Unit  status  report  subroutine  table  (concluded). 


Table  10-2.  Unit  status  report  code 


10  REN  "P8"  DOES  THE  END  OF  GAMER  TURN  UPDATES.  PRINTS  GAME  RECORDS 

20  1  AND  THE  GAMER  COMBAT  SUPPORT  INPUT  SHEET. 

30  1  DATA  CHANGED  FEBRUARY  3,  1986,  ROB  BELFLOWER,  BDM 

40  !**************************#***************************************» 

50  !  EXPANDED  VERSION  —  JUNE  9,  1986  —  BY  OAO  CORP. 

51  !  DECLASSIFIED  —  AUG  7,  1986  —  BY  OAO  CORP.  **  DC  ** 

60  OPTION  BASE  1 

70  DIM  N  ( 1 50)  ,  S  ( 70)  ,  U  ( 72 )  , A (2 , 70)  , F(2,70>  ,W(2,70)  ,  Sys_e-fT  (2,70)  ,Helo<3.6> 

80  DIM  Ci_kv_b (8,70), Ci_kv_r  <8, 70)  , Fi  i l*t 101 , FI  1 2*C 103 , Fi  1  3*C  1  0 1 .  F]  ] 44 r 1 0  I 
90  DIM  Turn* C3I , Game*C23 , Msus*C 133 ,  Id*C43,M*C163,Ml*r93,TS[7] 

100  DIM  B_veh* C 3503 , R_veh*  C 350 3 , Veh*C3503 

110  DIM  R_air_loss<72), B_ai r_l oss (72)  , R_chem_l oss ( 70) , B_chem_l  oss  < 70) 

120  DIM  D-f_stat  (4)  ,  If_stat  (4)  ,  Ad_stat  (4)  ,  Kv  (8,  70)  ,  Kv_tot  (70) 

130  DIM  Ci_helo_b(3,6),Ci_helo_r<3,6), Tot_ammo (3) , Fuel  _cap (70) 

140  DIM  Ammo_cap (70) , Wpn_type (70) , Tat_veh_ammo (3) , Ammo_l  e-f  t (3) 

150  DIM  T1 (28) , Tk_ammo (3) , Tk_perc (3) , Truck_cap (7) 

151  DIM  Dummy rec (70)  !  **  DC  ** 

160  INTEGER  I,J,K.T 

1 70  ! 

180  !  READ  REQUIRED  DATA  ARRAYS 

190  Di s) *=" : 9134, 704, 0” 

191  Dcdi sk*=" : 9 1 34, 704,0"  !  **  DC  ** 

200  GOSUB  Read_data 

210! 

220  !  PRINT  HEADERS 

230  PRINTER  IS  1 

240  PRINT  USING  "S',#" 

250  PRINT  TABXY  <28 ,8) , " 0 1 ME  GAME  TURN  PROCESSOR" 

260  PRINT  USING  "///" 

270  PRINT  “  BE  SURE  THAT  ALL  PROCESSING  PROGRAMS  HAVE  BEEN  COMPLETED 

280  PRINT  “  BEFORE  RUNNING  THIS  PROGRAM" 

290  PRINT  USING  "////" 

300  PRINT  "PLEASE  ANSWER  THE  FOLLOWING:" 

310  REPEAT 

320  INPUT  "KILLER  VICTIM  TABLE  LISTING  ONLY">  ( Y/N)  "  ,  K'-,ns* 

330  UNTIL  Kvans*="Y"  OR  Kvans*="N" 

340  GOTO  Open 

350  REPEAT 

360  INPUT  "HAVE  YOU  RUN  P3  AIRSTRIKE  (Y/N)",P3* 

370  UNTIL  P3*="Y"  OR  P3*="N" 

380  REPEAT 

390  INPUT  "HAVE  YOU  RUN  P4  COMBAT  (Y/N)",P4* 

400  UNTIL  P4*="Y"  OR  P4*="N" 

410  REPEAT 

420  INPUT  "HAVE  YOU  RUN  P5  CHEMICAL  (Y/N)".P5* 

430  UNTIL  P5*=" Y"  OR  P5*="N" 

440  REPEAT 

450  INPUT  "HAVE  YOU  RUN  P6  LOSS  ASSESSMENT  (^/N)".P6* 

460  UNTIL  P6*="Y"  OR  P6*="N" 

470  INPUT  "ENTER  GAME  NUMBER: "  ,  Game*. "ENTER  TURN  NUMBER: ". Turn* 

480  T=VAL (Turn*) 

490  1  OPEN  REQUIRED  FILES 
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Table  10-2.  Unit  status  report  code  (continued) 


500  ASSIGN  G'Punit  TO  "  UN  I  TF  I  LE"?<Di  sk* 

510  ASSIGN  C’Ptoe  TO  "TOEFILE"S<Di  sl:i 
520  ASSIGN  ti'Pname  T(J  "NAMEF  I LE  "?<Di  skt 
530  IF  P4*="Y“  OR  P6*="Y"  THEN 
540  ASSIGN  PPkv  TO  "KVF ILE"?<Di  sk* 

550  ASSIGN  PPhelo  TO  "HELOFILE"?<Di  sk* 

560  END  IF 

570  IF  P5*="Y"  OR  P6*="Y“  THEN 

580  ASSIGN  (i'Pbchem  TO  "BLCHMVCTM"J<Di  sk* 

590  ASSIGN  C-Prchem  TO  "RDCHMVCTM“!<Di  sk* 

600  END  IF 

610  IF  P3*="Y"  OR  P6*="Y"  THEN 

620  ASSIGN  PBair  TO  "&L_AIR_INF"S<Di  sk* 

630  ASSIGN  PRair  TO  "RD_AIR_INF"S<Di  sk* 

640  END  IF 

650  Open:  !  ASSIGNS  ANSWERS  TO  EXTRANEOUS  QUESTIONS  ABOVE. 

660  P3*-"Y" 

670  P4*<=“  Y" 

680  P5**=“N" 

690  P6*=" Y" 

700  INPUT  "ENTER  GAME  NUMBER: ",  Game* , "ENTER  TURN  NUMBER: ". Turn* 

710  INPUT  "ENTER  THE  GAME  T I ME “  ,  T* 

720  T=VAL (Turn*) 

730  !  OPEN  REQUIRED  FILES 

740  ASSIGN  PPuni  t  TO  "UNITFILE"S<Di  sk* 

750  ASSIGN  PPtoe  TO  "  TOEF I LE“8<Di  sk* 

760  ASSIGN  C-Pname  TO  "NAMEFILE"S<Di  sk* 

770  ASSIGN  PPk  v  TO  "KVF ILE  "JtDi  sk* 

780  ASSIGN  PPhel  o  TO  "HELOF  ILE"!<Di  sk* 

790  ASSIGN  PBai  r  TO  "BL_AIR_INF”S.Di  sk* 

800  ASSIGN  PRai  r  TO  "RD_AIR_INF"S<Di  sk* 

810  ASSIGN  CPbchem  TO  "BLCHMVCTM"S<Di  sk* 

820  ASSIGN  PPrchem  TO  "RDCHMVCTM" &Di  sk* 

830  IF  Kvans*="Y"  THEN  K.v_only 
840  ! 

850  REPEAT 

860  INPUT  "DO  YOU  WISH  TO  RUN  P8?  (Y/N)",Y_n_* 

870  UNTIL  Y_n_*=" Y"  OR  Y_n_*="N" 

880  IF  Y_n_*="N"  THEN  GOTO  Halt 
890  I 
900  ! 

910  !  PRINT  HEADERS  FOR  UNIT  HISTORY  FILE 

920  PRINT  USING  "P.#" 

930  PRINTER  IS  702 

940  PRINT  USING  "P.  # , 10X.22A.2A.7A. 3A. 2X.4A, 1X.7A, //"; "UN I T  HISTORY  FOR  GAME 
.Game*,"  TURN  " , Turn* , " T IME " , T* 

950  PRINT  USING  " 1 1 A. / " : "BLUE  UNITS:" 

960  PRINTER  IS  1 
970 

980  '  BEGIN  INDIVIDUAL  UNIT  PROCESSING 

990  1 

lOOO  Tdf  _used=0 


10-17 


Table  10-2.  Unit  status  report  code  (continued) 


1010  TiR_used=0 
1020  Tad_used=0 
1030  Totald-f=0 
1040  Total if=0 
1050  Total ad=0 
1060  '  Total  -fuel  =0 
1070  Current f uel =0 
1080  GOSUB  Blue_data 
1090  ! 

1100  FOR  1=1  TO  400 
1110  IF  1=192  THEN 

1120  PRINTER  IS  702 

1130  PRINT  USING  "l?.#,  1  OX ,  22  A,  1 A, 7A,  3  A  , 2X , 4A,  IX. 7A,  /  /";  "  UNIT  HISTORY 

ME  ",  Game*,"  TURN  ",  Turns, " TIME" , TS 

1140  PRINT  USING  "lift,/"; "RED  UNITS:" 

1150  PRINTER  IS  1 

1  160  Td-f_used=0 

1170  Tif_used=0 

1180  Tad_used=0 

1190  T otal  d-f  =0 

1200  Total  i-f=0 

1210  Total ad=0 

1220  Total -fuel  =0 

1230  Current-f  uel  =0 

1240  GOSUB  Red_data 

1250  END  IF 

1 260  ENTER  t?Pun  i  t ,  I  ;  N  ( * ) 

1270  ENTER  li'Ptoe,  I;U(*) 

1280  ENTER  G'Pname ,  I ;  MS 

1290  PRINTER  IS  1 

1300  IF  MS=" UNUSED  "  THEN  GOTO  Print_out 

1310  PRINT  USING  "/, 1 6A, 3D ./"; "PROCESSING  UNIT  ":I 

1320  IF  I <192  THEN 

1330  Si de= 1 

1340  ELSE 

1350  Si de=2 

1360  END  IF 

1 370  ! 

1380  !  DO  UNIT  UPDATES 

1390  GOSUB  Update_f uel 

1400  GOSUB  Update_cbt_ef  f 

1410  ! 

1 420  > 

1430  Print_out:GQSUB  Pr l nt _un i t _st at 
1440  GOSUB  Print_work_sht 

1450  OUTPUT  CPunit. I;N(*> 

1460  IF  1=191  OR  1=400  THEN 
1470  PRINT 

1480  PRINT 

1490  PRINT  !  ROB 

1500  PRINT  USING  "40A. 2X . 8D. 1 X , 4A" : "TOTAL  DF  USED  DURING  THE  LAST  SI 

: " ; Tdf  _used ; " TONS" 


FOR  G> 


X  HOUR' 
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Table  10-2 


Unit  status  report  code  (continued) 


1510  PRINT  USING  "40A.  2X . 8D, 1 X . 4A" ; "TOTAL  IF  USED  DURING  THE  LAST  SIX  HOUR 

:  "  ;  T i  -f  _used ;  “TONS" 

1520  PRINT  USING  “ 40 A, 2X.8D, IX, 4A"; "TOTAL  AD  USED  DURING  THE  LAST  SIX  HOUR 

: " ; Tad_used; "TONS" 

1530  PRINT  USING  "46A. 2X . 1 4D , 1 X . 7A“ ; "TOTAL  FUEL  CONSUMED  DURING  THE  LAST  S 

X  HOURS: " ; Total  Fuel ;  "GALLONS" 

1540  PRINT 

1550  PRINT  USING  " ISA, 8D, 1 X , 4A" TOTAL  DF  REMAINING"  :  Total  d-f  ;  "TONS" 

1560  PRINT  USING  "  1 8A,  SD.  1  X ,  4A"  ;" TOTAL  IF  REMAINING"  ;  Total  i -f ;  "TONS" 

1570  PRINT  USING  " ISA, SD, 1 X , 4A" ;" TOTAL  AD  REMAINI NG“ ; Total  ad ; "TONS" 

1580  PRINT  USING  "2GA, 10D, 1 X. 7A" ; "TOTAL  FUEL  REMAINING" ; Current f uel ; "GALLO! 

S" 

1590  END  IF 
1600  NEXT  I 
1610  ! 

1620  Kv_only«  ! 

1630  PRINTER  IS  1 
1640  PRINT  USING  "<?,  #" 

1650  PRINT  TABXY <26. 12) , "PRINTING  KILLER-VICTIM  TABLE" 

1660  PRINTER  IS  702 
1670  'PRINT  USING  "6',#" 

1680  GOSUB  Zero 

1 690  ! 

1700  IF  P4V="Y"  OR  P6«="Y"  THEN 
1710  ENTER  @Pkv,  l;Ci_kv_.b  (*) 

1720  ENTER  <?Pkv,  2;  Ci  ~kv_r  <  *  > 

1730  END  IF 
1740  ' 

1750  !  READ  IN  AND  ENTER  IN  CHEMICAL/CLOSE  AIR  KILLS 

1760  IF  P5*="Y"  OR  P6*="Y"  THEN 

1770  ENTER  SPbchem, 1 ; B_chem_l oss  <  * ) 

1780  ENTER  fprchem, l;R_chem_loss<*) 

1790  END  IF 

1800  IF  P3*=“Y"  OR  P6*="Y"  THEN 

1810  ENTER  C-Bair  ,  1 ;  T1  <*)  ,  R_air_loss  (  *) 

1820  ENTER  <?Rai  r,l:Tl(*),B  air_loss<*> 

1830  END  IF 

1840  FOR  1=1  TO  70 

1850  IF  P3*="Y"  OR  P6*="Y"  THEN 

1 860  Ci _kv_r  <8, I ) “R_air _1 oss  < I ) +Ci _kv_r <8. I > 

1870  Ci  _kv_b  (8,1)  =B_ai  r_Ioss<I)-*-Ci  _k  v_b  (8.1) 

1880  END  IF 

1890  IF  P5*="Y"  OR  P6*="Y"  THEN 

1900  Ci_kv_b(7, I) =B_chem_l oss ( I >  +Ci _kv_b (7, I ) 

1910  Ci_kv_r<7,I) =R_chem_l  oss<I)+Ci_kv_r (7.  I) 

1920  END  IF 

1930  NEXT  I 
1940  ! 

1950  !  PRINT  OUT  KILLER-VICTIM  SUMMARY  FILE 

1960  GOSUB  Pr i nt _k vf  i  1 e 
1970  ' 

1980  '  PRINT  OUT  HELICOPTER  FILE 
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Table  10-2 


Unit  status  report  code  (continued). 


1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2000 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2 1 70 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2200 
2290 
2300 
23 1 0 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 


IF  P4*="Y"  THEN  GOSUB  Pr i n t _hel o_f i 1 e 
IF  Kvanst=" Y "  THEN  Halt 
IF  Kvans*="N"  THEN  Zera_f i 1 es 

I 

!  PRINT  OUT  GAMER  INPUT  WORKSHEET  HEADER 
T 1  =T+1 

PRINTER  IS  1 
PRINT  USING  "li',#" 

PRINT  TABXY <24. 12) , "PRINTING  GAMER  STAFF  WORK  SHEETS" 

PRINTER  IS  702 

PRINT  USING  "<?,  #.  32A,  2D" ;  “GAMER  STAFF  WORK  SHEET  FOR  TURN  ",T1 
PRINT  USING  "//, 13A"; "BLUE  UNITS:" 

I 

!  PRINT  INDIVIDUAL  UNITS 
FOR  1=1  TO  400 

ENTER  il'Puni  t ,  I :  N  <  *  ) 

ENTER  li'Pname,  I :  M5> 

GOSUB  Pr i nt_wor k_sht 
NEXT  I 


Zer o_F i 1 es :  ISTAFF  WORK  SHEETS  ARE  PRINTED  WITH  UNIT  STATUS 

!  ZERO  GAME  TURN  FILES  FOR  USE  IN  NEXT  GAME  TURN 
IF  R4*="Y"  OR  P6*="Y"  THEN 
FOR  1=1  TO  8 
FOR  J  =  1  TO  70 
Ci _k v_b ( 1 , J  >  =0 
NEXT  J 
NEXT  I 

FOR  1=1  TO  2 

OUTPUT  (?Pkv,  I  :Ci_kv_b  <*> 

NEXT  I 

'ZERO  HELICOPTER  FILES 
FOR  1=1  TO  3 
FOR  J=1  TO  6 
Hel o ( I , J ) =0 
NEXT  J 
NEXT  I 

OUTPUT  t?Phel  o,  1 ;  Hel  o  (  *  > 

OUTPUT  UPhel  o,2;  Hel  o  (  *  ) 

END  IF 

I 

IF  P5*="Y"  OR  P6*="Y"  THEN 
'.ZERO  CHEMICAL  FILE 
FOR  1=1  TO  70 

R_chem_l oss ( I >  =0 
NEXT  I 

OUTPUT  E'Pbchem.  1 ;  R_chem_l  oss  <  *  ) 

OUTPUT  (5‘Prchem,  1 :  R_ chem_  1  oss  <  *  > 

END  IF 

I 

IF  P3*="Y"  OR  P6*="Y"  THEN 
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Tabke  10-2 


Unit  status  report  code  (continued). 


2510  '  IERO  AIR  LOSS  FILES 

2520  FOR  1=1  TO  72 

21530  B_air  loss(I)=0 

2540  NEXT  I 

2550  FOR  1=1  TO  28 

2560  T1 < I ) =0 

2570  NEXT  I 

2580  OUTPUT  (PRai  r ,  1 ;  T1  <  *  >  ,  B_ai  r  _1  oss  <  * ) 

2590  OUTPUT  IPBai  r ,  1 :  T1  (  * . )  .  B_ai  r_l  oss  <  * ) 

2600  END  IF 
2610 

2620  1  CLOSE  ALL  FILES  AND  RETURN  TO  MENU  PROGRAM 

2630  ASSIGN  G'Punit  TO  * 

2640  ASSIGN  G'Ptoe  TO  * 

2650  ASSIGN  S'Pname  TO  * 


2660 

IF 

P4S= " Y " 

OR 

P6*= 

Y  " 

THEN 

ASSIGN 

ippf-v  TO  * 

2670 

IF 

P4*=“ Y" 

OR 

P6*  = 

Y  " 

THEN 

ASSIGN 

QPhelo  TO  * 

2680 

IF 

P3*="Y" 

OR 

P6*= 

Y  " 

THEN 

ASSIGN 

GBair  TO  * 

26,~  0 

IF 

P3*= " Y " 

OR 

P6*= 

•Y" 

THEN 

ASSIGN 

&Rair  TO  * 

2700 

IF 

P5*="Y" 

OR 

P6*= 

•Y" 

THEN 

ASSIGN 

GPbchem  TO  * 

2710 

IF 

P5*="Y" 

OR 

P6*= 

•Y" 

THEN 

ASSIGN 

8Prchem  TO  * 

2720  GOTO  Halt 
2730  ' 

2740 

2750  1  *********  END  OF  MAIN  PROGRAM  ********* 

2760  1 

2770  1 

2780  Read_data:  '  THIS  SBR  READS  REQUIRED  DATA 
2790 

2800  1  **  DC  ** 

28 1 0  ! 

2820  ASSIGN  i?Psyset  -f  TO  "SYS_EFF"S<Dcdi  sk* 

2830  ENTER  PPsyse-f  i  ,  1  ;  Sys_et  ?  (  *  ) 

2840  ASSIGN  li'Psyse-ff  TO  * 

2850  !  **  END  DC  ** 

2960  B^vehSCl, 1251=" DF  FAV— TM55 1  FAV40HMV-GDF  DRAGNLAW  DF  CMD-VDF  DF 

DF  DF  DF  HMV40DF-ICDF-ICDF-ICDF-ICARTY  ARTY  ARTY  ARTY  ARTY  " 

970  B_veh*C 126, 250]=" ARTY  ARTY  MORTRMORTRMORTRMORTRMLRSTMLRSTMLRSTMLRST I NF  It 
INF  INF  INF  SARMSSARMSSARMSSARMSSARMSSARMSSARMSVULCNAVNGR I  HAWK " 

980  B_veh*C251 , 3503  =  "ADA  ADA  ST INGADAHHF-TRKJ4TRK WATERCGO-TNATRf  EWTRKEWTRKEf 
GR  OBSCEAVLB  PONBRENGEOENGEQMATHEMATHEAATHE " 

2990  R_veh*  C 1 ,  1 25 1  =  " T55  DF  BMP73DF  BRDM3BRDM5AT-75AGS 1 7T 12  CMD-VDF  DF 

DF  DF  DF  BMPATBTR  DF— I CDF- I CDF- I CART Y  ARTY  ARTY  ARTV  ARTY  " 

3000  R_veh*C 126. 250]=" ARTY  ARTY  MORTRMORTRMORTRMORTRMRL  MRL  MRL  MRL  INF  If 
F  INF  INF  INF  SARMSSARMSSARMSSARMSSARMSSARMSSARMS7SU-XSA- 1 3SA-6  " 

3010  R_veh* [ 25 1 , 350]  =  " ADA  ADA  SA- 1 4ADAHHF-TRK J 4TRH:  WATERCGO-TNATRKEWTRK EWTRK Er 
GR  OBSCEAVLB  PONBRENGEOENGEQMATHEMATHEAATHE" 

3020  RETURN 

3030  Pri nt_sys_aut :  '  THIS  SBR  PRINTS  OUT  THE  REQUIRED  SYSTEMS  LISTS 

3040  FOR  X=7  TO  70  STEP  7 

3050  PRINT  USING  Fmtl; X— 6, " ,N(X— 6) , X— 5, , N ( X  — 5 >  . X  — 4 . " . N ( X  — 4 )  . X  — 3.  " :  " .N ■ 
X-3)  .  X-2. "s ",  N<X-2>  .  X-l . " : ", N (X-l ) , X, " : ",N(X> 
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Table  10-2.  Unit  status  report  code  (continued) 


3060 
3070 
3080 
3090 
3 1 00 
3 1 J  0 
3120 
3 1  30 
3140 
3 1 50 
3 1 60 
3170 
3 1 00 
3 1 90 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
328'.) 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
35 1 0 
3520 
3530 
3540 
3550 
3560 
3570 


NEXT  X 

Fmtl: IMAGE  7 ( 2D. 1 A, 4D .  1 D, 2X ) 
RETURN 


Zero:  \ 

FOR  1=1  TO  8 
FOR  J  =  1  TO  70 
Ci_kv_b (I, J)*0 
Ci _kv_r ( I , J ) =0 
NEXT  J 
NEXT  I 

FOR  1=1  TO  70 

B_chem_l  oss  ( I  >  =0 
R_chem_l oss ( I ) =0 
B_ai r_l oss ( I ) =0 
R_ai r_l  oss  ( I )  =0 
NEXT  I 

B_ai r _1 oss ( 7 1 )  =0 
B_ai r_l oss (72) =0 
R_ai r_l oss ( 7 1 >  =0 
R_ai r _1 oss ( 72) =0 
RETURN 


Update_4uel : *  THIS  SBR  RECONCILES  TRUCK  LOSSES  WITH  CARGE  LOADS 

Ammo=N ( 123) 

Ammog=N ( 1 25  > 

IF  N(84K=0  THEN 
N (123) =0 
N ( 125) =0 
GOTO  3480 
END  IF 

New_ammo=Ammo*N  (58)  /N(84) 

N ( 123) =New_ammo 

New _ammog=Ammog*N  < 58 ) /N ( 84 ) 

N ( 125) =New_ammog 

i 

Fuel =N ( 103) 

Fuel g=N ( 105 ) 

IF  N (85) <=0  THEN 
N ( 1 03) =0 
' N ( 1 05) =0 
GOTO  3590 
END  IF 

New__fuel  -Fuel  *N (55)  /N  (85) 

N ( 1 03 ) =New_  f  ue  1 
N ( 1 05) -Fuel g*N (  55 ) / N ( 85 ) 
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3580  ' 

3590  N (85) =N (55) 

3600  N (84) =N (58) 

3610  ' 

3620  RETURN 
3630  ' 

3640  !  *********************************************************************** 

3650  ! 

3660  Update_cbt_ef f :  !  THIS  SBR  UPDATES  UNIT  COMBAT  EFFECTIVENESS 

3670  1 

3680  E-f -f=0 

3690  FOR  J=1  TO  70 

3700  E-f  f  =Ef  f  -*-Svs_e-f  -f  <  Si  de ,  J  >  *N  ( J  ) 

3710  NEXT  J 

3720  IF  U  <  7 1 ) =0  THEN  3760 
3730  Cbt_ef  f  =Ef  f /IJ  <71  > 

3740  N (79) =Cbt_ef  f 
3750  ! 

3760  RETURN 
3770  1 

3780  !  *********************************************************************** 

3790  • 

3800  Pri nt_un 1 1 _stat :  '  THIS  SBR  PRINTS  OUT  THE  INDIVIDUAL  UNIT  HISTORY 
3810  1 

3820  PRINTER  IS  702 

3830  IF  N  <  82 ) =0  THEN  M 1 S=" I NACTI VE" 

3840  IF  N (82  >  = 1  THEN  M1*="ACTIVE  " 

3850  IF  N ( 82 ) =2  THEN  M 1 *=" DESTROYED" 

3860  1  PRINT  USING  Fmt2: "UNIT:  " .  I . MS. "TYPE:  " . N ( 78)  , M 1  * , "CRT— EFF :  " . N <79 >  , ”M  I 
SION:  " , N (83) 

3870  «  Fmt2: IMAGE  / .  6A, 3D, 3X . 8A, 3X , 6A. ID. 1 D. 3X , 8A, 3X . 9A, 3D. 2D,3X.9A.  ID.  ID 
3880  PRINT  USING  Fmt2:"UNIT:  “ . I , MS. "TYPE:  ”.N(78> .Ml*. "CBT-EFF :  ".N(79) 

3890  Fmt2:  IMAGE  /.6A.3D.3X.  16A.3X.6A.  ID.  1 D, 3X , 9A. 3X . 9A, 3D.  2D.  3X 
3900  IF  N  (82)  =0  OR  N(82)=2  THEN  End_stat._pr  l  nt 
3910  FOR  J=1  TO  70 
3920  S ( J ) =N  <  J ) 

3930  NEXT  J 

3940  PRINT  USING  "/. 26 A" ; "SYSTEMS  REMAINING:" 

3950  GOSUB  Pr i nt_svs_out 
3960  GOTO  Log 
3970  SELECT  N(91) 

3980  CASE  =0 

3990  M1S="N0T  DET  " 

4000  CASE  = 1 

4010  M 1 S= " DETECTED" 

4020  CASE  =2 

4030  Ml *=" VERIFIED" 

4040  CASE  =3 
4050  M1*="L0ST 

4060  END  SELECT 

4070  PRINT  USING  Fmt3; "DETECT  ION:  ".Ml*. "SENS  STATUS  (Z/G):  ".N(89)."FRA  CVG: 

, N (90) , "KM  MOVED:  ",N(146> 
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4080  Fmt3: IMAGE  /, 11A.8A.3X, 19A, ID. 1D.4X.9A, 1D.2D.6X, 10A.3D 

4090  PRINT  USING  Fmt4; "AIR  DEFENSE: " , “SUPPRESSION:  “ . N (80) . "CORPS  SUPPORT  ADC 
"  .  N  <  8 1  ) 

4100  Fmt4: IMAGE  / . 1 2A. 4X . 1 3A . 2D. 2D. 4X . 1 9A . 3D 
4110  Log:  ‘LOGISTICS 

4120  PRINT  USING  "/.  1 OA" ; "LOGISTICS: " 

4130  PRINT  USING  Fmt5: "TYPE'1, “STATUS", "PROFILE", "CONSUMED",  "RESUPPLY". "ON-TRC 
"ON-GND" , "DISPND” , "ON-VEH" , "CURRNT" . "USD/DT" 

4140  FmtS: IMAGE  4A, 1 X . 6A , 1 X . 7A. 1 X . 8A. 1 X . 8A, 6 ( 1 X , 6A) 

4150  ! 

41  AO  DP_used=N(  1  1A>  -N  <  131  > 

4170  IP _used=N< 1 17) -N ( 132) 

4180  Ad_used=N < 1 18) -N < 133) 

4190  TdP  _used=TdP  _used+D-f  _used 
4200  7  i  P  _used=T i  P  _used  + 1  P  _used 

4210  T  ad_used=Tad_use?d  + Ad_used 
4220  ! 

4230  N135_sv=N< 135) 

4240  G0SU8  Update_ammo 
4250  • . 

4260  !  FILL  IN  SUPPLY  STATUS  MATRICES 

4270  DP  _stat  ( 1 )  =INT  (N  (136)  >  /  1000*N135_sv 
4280  DP_stat  ( 2)  =  I  NT  ( N  (  1  24  >  >  /  lOOOtN  (123) 

4290  DP_stat (3) =IN7  (N  < 126)  ) / 1000*N ( 125) 

4300  DP  _stat <4 )  =  I NT (N ( 1 38)  ) / 1000*N( 137) 

4310  1 

4320  I P _stat < 1 )  =  <N< 136) -INT  <N< 136) ) ) *N135_sv 
4330  IP_stat (2) = (N ( 124) -INT (N< 124) > )*N(123> 

4340  IP_stat (3)  =  (N( 126) -INT  <N< 126) ) ) *N<125) 

4350  I P_stat (4)= (N ( 138 ) - INT (N ( 1 38 ) ) ) *N < 137). 

4360  ! 

4370  Ad_stat ( 1 ) =N135_sv- (DP_stat  < 1 ) +IP_stat ( 1 ) ) 

4380  Ad_stat (2) =N ( 123) - (DP_stat (2>  +IP_stat (2) ) 

4390  Ad_stat (3) =N < 1 25) - ( DP _stat <3) +IP_stat  (3) ) 

4400  Ad_stat <  4 ) =N ( 137) -(DP_stat (4) +IP_stat (4) ) 

4410  1 

4420  GQSUB  Vehammo 

4430  C_PueI =T_Puel +N ( 105) +N ( 103) 

4440  Total Puel=Total Puel +N (108) 

4450  CurrentPuel  =CurrentPuel +C_Puel 
4460  ! 

4470  TdP=DP_stat (2)+DP_stat (3) +Tot _ammo < 1 ) 

4480  TiP  =  IP_stat (2) +IP_stat  <3) +Tot_ammo (2) 

4490  Tad=Ad_stat  (2)  -*-Ad_stat  (3)  +Tot_acnmo  (3) 

4500  TotaldP=TotaldP+TdP 
4510  Total i P =Tota 1 i P +Ti P 
4520  Tot al ad=Tot al ad+Tad 
4530  TdP _used=TdP _used-DP _stat (4) 

4540  Ti P_used=Ti P _used - I P _st at (4)  ‘TEST 

4550  Tad_used=Tad_used-Ad_st at (4) 

4560  ! 

4570  Gnd_ammo=DP _st at < 3 > + I P  st at ( 3 ) +Ad_st at ( 3) 
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4580  Ftr k_cap=N (55) *Truck_cap ( 1 > 

4590  Ft 4=0 

4600  IF  Tk_emp<0  THEN  Tk_emp=0 

4610  IF  N< 103><N(55> *Truck_cap ( 1 )  THEN 

4620  Ft 1=N  < 103) / <N (55) *Truck_cap ( 1 ) > 

4630  Ft2=N (55) * ( 1 -Ft  1 ) 

4640  Ft4=INT (Ft2) 

4650  END  IF 

4660  PRINT  USING  Fmt6;  " DF"  .  N  (  1  1  9 )  .  N  (  1 27  )  .  D-f  _used  .  Dt  _stat  (  *  )  .  Tot  _ammo  (  1  )  .  Td-f  .  N  < 

39) 

4670  PRINT  USING  Fmt6:  " IF" . N ( 120) . N < 1 28) , IF_used. IF  st at  ( * )  ,  Tot _ammo  ( 2 )  .  Ti  F  .  N  ( 

40) 

4680  PRINT  USING  Fmt6; " AD" , N ( 1 2 1 ) . N ( 1 29 ) , Ad_used , Ad  stat ( * ) . Tot _ammo ( 3 > . Tad . N ( 

41) 

4690  PRINT  USING  Fmt6; "FU" . N ( 1 01 ) . N ( 107 ) . N ( 108 ) . N ( 1 10) , N ( 103 > . N < 1 05) . N ( 1 1 2 > . T_ 
uel , C_f uel , N ( 143) 

4700  Fmt6: IMAGE  1 X , 2A, 1 X , 4D . 2D . 1 X , 7D . 1 X . 8D . 1 X . 8D. 6 ( 1 X , 6D > 

4710  * 

4720  PRINT 

4730  Tk_emp=INT (Tk_emp ) 

4740  PRINT  "EMPTY  AMMO  TRUCKS  ":Tk_emp:"  EMPTY  FUEL  TRUCKS  M;Ft4 

4750  ! PRINT  "  EQUIVALENT  EMPTY  FUEL  TRUCKS  ":Ft4 
4760  ! PR  I NT  USING  "///" 

4770  N ( 1 1 0  >  =0 

4780  N ( 1 35 ) =0 

4790  N ( 136) =0 

4800  N ( 1 1 2 ) =0 

4810  N ( 1 37 ) =0 

4820  N ( 1 38 ) =0 

4830  End_stat_pr i nt : RETURN 

4840  1 

4850  !  *********************************************************************** 

4860  ! 

4870  Pr i nt  _kvF i 1 e:  1  THIS  SBR  PRINTS  OUT  THE  SUMMARY  KV  FILE 

4880 

4890  GOSUB  Zero_list 

4900  FOR  1=1  TO  8 

4910  FOR  J=1  TO  70 

4920  Kv ( I ,  J  ) =Ci _kv_b ( I . J ) 

4930  Kv_tot <J)=kv_tot (J)+Ci  kv.b  (I. J) 

4940  NEXT  J 

4950  NEXT  I 
4960  VehS=B_vehS 

4970  PRINT  USING  "I?.  38  A .  1  A.  7  A.  3A.  2X.4A.  IX, 7A.  /  ":  "RED  KILLER — BLUE  VICTIM  FILE 
OR  GAME  ".Game*,"  TURN  ",  Turn* , "TIME" , T* 

4980  GOSUB  Li st_kv 
4990  1 

5000  '  PRINT  OUT  RED  KV  LIST 

5010  GOSUB  Zero_list 

5020  FOR  1=1  T0~8 

5030  FOR  J=1  TO  70 

5040  K v ( I . J ) =Ci  kv  r <  I  . J ) 
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5050  Kv  tot  ( J  )  =Kv_tot.  ( J  )  -*-Ci  _kv_r  ( I .  J  > 

060  NEXT  J 
070  NEXT  I 
080  Veh*=R_veh* 

090  PRINT  USING  "(?.  38  A,  1A, 7A,  3A,  2X . 4A, 1 X , 7A, / " ;  "BLUE  KILLER — RED  VICTIM  FILE  F 
OR  GAME  ".Game*."  TURN  " , Turn* , " T I  ME" , T* 

5100  GOSUB  Li  st_t;v 
51  10  ! 

5120  RETURN 
5130  ! 

5140  !  ***)M*******t**********»t***********t************************ »*****»»**> 

5150  ! 

5160  Zero_l i st :  !  ZERO  VARIABLES  FOR  KV  PRINT 

5170  ! 

5180  FOR  1=1  TO  8 
5190  FOR  J=1  TO  70 

5200  Kv(I,J)=0 

5210  Kv_tot ( J ) =0 

5220  NEXT  J 

5230  NEXT  I 
5240  ! 

5250  RETURN 
5260  1 

5270  !  ******«***************X*»***»«*****************************»***********> 

5280  ! 

5290  Li st_kv:  1  THIS  SBR  PRINTS  THE  KV  TABLE 

5300  PRINT  USING  “ / / ,  6A,  13X  ,  49A"  ;  "VICTIM".  "< - KILLER - 


5310  PRINT  USING  FmtlOs"  " , "D/F" . “ I /F" . "PGM" , " A/H"  .  " INF"  .  "MIN" ,  "CHM" . " A ’ 

R" , "T /KILL" 

5320  FmtlO: IMAGE  / , 8A, 3X „ 7 < 3A. 5X ) . 3A, 4X . 6A . / 

5330  FOR  1=1  TO  70 

5340  PRINT  USING  Fmt  11:  VehSC  <  I -1  >  *5+1  .  1*51.  Kv  (  1  .  I  )  ,  Kv  (2.1),  Kv  ( 3 .  I  )  .  Kv  (  4  .  I  >  ,  K 
(5, I) , Kv (6, I) , Kv  <  7 , I) , Kv (8, I) ,Kv_tot  (I) 

5350  IF  1=55  THEN 

5360  PRINT  USING  "t?M 

5370  END  IF 

5380  NEXT  I 

5390  Fmtll: IMAGE  5A,4X,8(4D. 1D.2X) . IX, 4D. ID 
5400  ! 

5410  RETURN 
5420  1 

5430  !  ************************************************************************ 

5440  ! 

5450  Pr int_helo_-fi  le:  !  THIS  SBR  PRINTS  OUT  BLUE  HELICOPTER  DATA 

5460  1 

5470  ENTER  li'Phel  o,  1 :  Ci  _hel  o_b  (  *  ) 

5480  ENTER  li'Phel  o,  2;  Ci  _hel  o_r  (  *  ) 

5490  PRINT  USING  “<?,  #.  27A”  ;  "ATTACK  HELICOPTER  RESULTS" 

5500  PRINT  USING  Fmt  32;  "TYPE".  "#K  I LLED"  ,  "  it  SORT  I ES" 

5510  PRINT  USING  Fmt33; "LCH  " , Cl _hel o_b < 1 , 2) . Ci _hel o_b < 1 . 6) 

5520  PRINT  USING  Fmt 33; " AH-1 " , Ci _hel o_b ( 2. 2) . Ci _hel o_b (2 . 6 > 
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5530  PRINT  USING  Fmt33s "0H58" . Ci _hel o_b ( 3. 2) , Ci _hel o_b (3. 6) 

5540  PRINT  USING  " //" 

5550  PRINT  USING  Fmt33; "HIP" . Ci  hel o_r (2. 2) . Ci  helo_r<2.6> 

5560  PRINT  USING  Fmt33; "HIND" . Ci  hel  o_r ( 1 . 2) . Ci _hel o_r ( 1 . 6) 

5570  Fmt32: IMAGE  / / / , 4A, 4X , 7A, 3 (4X , 9A> . / / 

5500  Fmt33: IMAGE  4A,  5X , 3 (3D . 1 D , 7X ) , 5D 
5590  ! 

5600  RETURN 
5610  ! 

5620  !  *********************************************************************** 

5630  ! 

5640  Print_work_sht:  *  THIS  SBR  PRINTS  GAMER  WORK  SHEETS 

5650  ! 

5660  ! IF  1=192  THEN 

5670  !  PRINT  USING  "(?, #, 32A, 2D" ; “GAMER  STAFF  WORK  SHEET  FOR  TURN  ".Tl 
5680  !  PRINT  USING  " / , 13A" ; "RED  UNITS:" 

5690  ! END  IF 

5700  IF  N (82) =0  OR  N (82) =2  THEN  End_print 

5710  ! PRINT  USING  Fmt20; "UNIT  " , I , M«7"TYPE:  "fN(78) 

5720  ! Fmt20: IMAGE  / / / , 5A , 3D, 5X , 8A, 4X , 6A.  1 D.  1 D 

5730  PRINT  USING  Fmt21 ; "LINE  1:  ACTIVITY:  " , N (02) . "MOPP  LEVEL:  " . N ( 77 > . "M ISS I 
N;  ",N(83) , "KM  MOVED:  ",N<146) 

5740  Fmt21: IMAGE  / , 19A, ID, 7X , 12A. 1 D, 6X , 9A . 1 D. 1 D. 4X . 1 OA, 3D 
5750  N2= I NT (N (89 ) ) 

5760  Nl  =  I NT ( (N (89) — N2) *  10+ . 5) 

5770  N3= I  NT (N (90) *  100) 

5780  PRINT  USING  Fmt22: "LINE  2:  SENSOR  GP:  " . N1 . “ZONE:  ".N2."PCT  COVERED:  "  .  f 
5790  Fmt 22: IMAGE  / , 20 A , 1 D ,  8  X ,  6  A , ID, 1 0 X . 1 3A . 3D 
5800  N1=INT (N(80) > 

5810  N2=INT< ( (N(80)-N1) *100) ) 

5820  PRINT  USING  Fmt23; "LINE  3:  PCT  ADA  SUPPRESSION:  VEH:  " . N1 , "HAND:  ",N2,‘ 
ORPS  ADA:  ",N(81> 

5830  Fmt23: IMAGE  / . 36A, 3D. 7X , 6A, 3D. 8X . 1 1 A. 3D 
5840  1 
5850  PRINT 

5860  PRINT  "LINE  4:  RESUPPLY:  DF(Tons) _ IF (Tons) _ AD (Tons) _ FUEL(qsl): 

5870  PRINT 

5880  PRINT  "LINE  5:  DISPENSED:  DF (Tons ) _ IF(Tons) _ AD (Tons) _  FUEL: (as) 

II 

5890  PRINT 

5900  IF  I< 192  THEN 

5910  PRINT  "LINE  6:  GDRADAR _ " : N (95) ; "ARTRADAR _ " : N ( 96 ) ; " LRRP _ ":N(97 

"RPV _ "  ;  N  (98)  ;  "SLAR _ "5N(99>  ;  "FO _ ";N(  100) 

5920  ELSE 

5930  PRINT  "LINE  6:  GDRADAR _ N ( 95 ); "ARTRADAR _ " : N < 96 > ; "LRRP _ ":N<97 

"SLAR _ ";N  (98)  ;  "RPV _ ";N  (997;  "FQ _ "  :  N  (  10O) 

5940  END  IF 
5950  PRINT 

5960  PRINT  "CURRENT  LOCATION 
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5980  PRINT  "ACTUAL  LOCATION  ARRIVED  AT  _ " 

5990  PRINT 

6000  PRINT  "ACTION  TO  BE  TAKEN  AT  THE  OBJECTIVE:" 

6010  PRINT 

6020  PRINT  " _ 

6030  End_print:  ! 

6040  RETURN 
6050  ! 

6060  !  ********  ******  ************************  *  ***************************** *  *  » 

6070  ! 

6080  Blue_data:  ! 

6090  ! 

6091  1  **  DC  ** 

6092  ' 

6100  ASSIGN  li'Pwpntyp  TO  “WPN_TYP"S<Dcdi  si  * 

6110  ENTER  li'Pwpntyp  ,  1  ;  Wpn_type  <*  > 

6120  ASSIGN  li'Pwpntyp  TO  * 

6 1 30  ! 

6180  ASSIGN  8Pammacap  TO  "  AMMO_CAP‘‘S<Dcdi  sk* 

6190  ENTER  li'Pammocap  ,  1 ;  Ammo_cap  <  *  > 

6200  ASSIGN  li'Pammocap  TO  * 

62 1 0 

6270  ASSIGN  li'Ptuelcap  TO  "FUEL_CAP"?/Dcdi  sk* 

6280  ENTER  li'Pfuel  cap  „  1 :  Fuel  cap  (*  > 

6290  ASSIGN  liP-fuel  cap  TO  * 

6300  ' 

6310  ASSIGN  li'Ptr  kcap  TO  "BL_TRK_CAP"?-Dcdi  sk* 

6320  ENTER  li'Ptr  Leap .  1 :  Truck  _cap  (*  > 

6330  ASSIGN  li'Ptrkcap  TO  * 

6360  Truck_cap  (4>  =6. 5 
6370  1  Truck _cap < 1 >  =  1800 

6380  RETURN 
6390  1 

6400  I************************************************************************* 

64  1  0  ' 

6420  Red_data:  1 

6430  ASSIGN  li'Pwpntyp  TO  •,WPN_TYP"S<Dcdi  sk* 

6440  ENTER  li'Pwpntyp  ,  1  ;  Dummyrec  (*>,  Wpn_type  (*  > 

6441  ASSIGN  li'Pwpntyp  TO  * 

6450  ! 

6520  ASSIGN  li'Pammocap  TO  " AMMO_CAP"S<Dcd i  skt 
6530  ENTER  li'Paminocap  ,  1 ;  Dummyrec  (*>,  Ammo_cap  <*  ) 

6540  ASSIGN  d'Pammocap  TO  * 

6550  ' 

6610  ASSIGN  ©F'tuelcap  TO  "FUEL_CAP"?<Dcdi  sk* 

6620  ENTER  li'P-fuel  cap .  1 ;  Dummyrec  (*>.  Fuel  cap  <*  ) 

6630  ASSIGN  li'Ptuelcap  TO  * 

6640 

6650  ASSIGN  H'Ptrkcap  TO  "RD_TRK_CAP"S<Dcd i sk* 

6660  ENTER  li'Ptr  kcap .  1 ;  Truck  cap  U) 

6670  ASSIGN  PFtrkcap  TO  * 

6700  ' Tr uc k _ cap < 4 > =4 . 5 
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6710 
671  1 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 


! Truckcap < 1 ) =1288 
!  **  END  DC  ** 

RETURN 

i 

\ ***************************  ********************************************* 

i 

Update_ammo:  ! CALCULATE  TOTAL  CAPACITY 
FOR  I  k  p  **  1  TO  3 

Tot_veh_ammo  (Ikp)  =0 
NEXT  Ikp 
FOR  J*=l  TO  70 

Tot_veh_ammo  <Wpn_type ( J ) ) =Tot _veh_a<nmo <Wpn_type ( J ) ) +N  < J  >  #Ammo_cap ( J  > 
NEXT  J 
N <1251=0 
FOR  Ikp  =  l  TO  3 

IF  N  < 1 30+ 1 kp >  <0  THEN  N < 130+1 kp > =0 
IF  Tot_veh_ammo < I kp ) < =0  THEN 
Ammo_l  eft  <  I  kp  >  =N  <  1 30+Ikp  > 

N  < 1 18+1 kp  >  =0 
N  < 130+1 kp ) =0 
GOTO  Eel 
END  IF 

IF  N  < 1 30+Ikp ) >  Tot _veh_ammo  < I kp  >  THEN 
N  < 1 18+ 1 kp  >  = 1 

Ammo_lef  t  ( I  kp  )  =N  <  130+1  kp  >  -Tot _veh_ammo  (  Ikp  > 

N< 130+1 kp)=0 
ELSE 

N ( 1 18+Ikp  >  =N  < 130+1 kp) /Tot_veh_ammo (Ikp) 

N ( 130+1 kp ) “O 
Ammo_lef t < Ikp) =0 
END  IF 

Eel : N  < 1 25 ) =N  < 1 25 ) +Anraio_ 1 ef  t <Ikp) 

NEXT  Ikp 

i 

IF  N  < 1 25) =0  THEN 
N  < 126) =0 
ELSE 

Pdf  =Ammo_l  e-f  t  <  1  >  /N  <  125) 

Pi  f  *=Ammo~l  ef  t  <2)  /N  <  125) 

N  < 126) =INT (Pdf  * lOOO ) +Pi f 
END  IF 

!  CALC  PROPER  TRUCK  CAPACITY 
Atr k_cap=N (58) *Truck_cap (4) 

!  TAKE  AMMO  FROM  PILES  IN  SAME  RATIO  AS  AVAILABLE  TRUCKS 
Tk_emp=0 

!  ZERO  AMOUNT  IN  TRUCKS 
FOR  Ikp=l  TO  3 
Tk_ammo (Ikp) =0 
NEXT  Ikp 
N  (  123) =0 

IF  N<125)<*=0  OR  Atrk_cap<=0  THEN  No_trks 

!  AMMO  IS  ON  GROUND  AND  TRUCKS  HAVE  A  CAPACITY  LOAD  ON  EMPTY  TRUCKS 
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Table  10-2. 


Unit  status  report  code  (concluded). 


7220  Tk_perc ( 1 ) = I NT ( N ( 1 26 ) ) /1000 
7230  Tk_perc  (2)  =N  (  1  26 )  - 1  NT  (N  (  1  26)  > 

7240  Tk_perc  < 3) = 1 -  ( Tt  _por c ( 1 >  +Tk  _pc?r  c  <  2 )  ) 

7250  IF  Atrk_cap<N< 1 25)  THEN 

7260  Tk_ammo < 1 ) =Atr I  _captTi_perc  ( 1 ) 

7270  Tk_ammo  ( 2 )  =  At r  t-  cap *Tk  per c  ( 2) 

7280  Tk_ammo (3) =Atr k  cap *Tk_perc <3) 

7290  N ( 123) =Atr k_cap~ 

7300  N ( 124 ) =N  < 1 26 ) 

7310  N< 125)=N ( 125) -N < 123) 

7320  Tk_emp=0 

7330  ELSE 

7340  ! MORE  TRUCKS  THAN  ON  GROUND  AVAILABLE 

7350  Tk_ammo ( 1 ) =N ( 1 25 )  *Tk  _per c < 1 > 

7360  Tk_ammo  <  2  )  =N  <  1  25 )  »Tk_perc  (2) 

7370  Tk_ammo  <  3 ) =N  < 1 25) *  Tk_per c (3) 

7380  N  ( 123 )  =Tk_ammo  <  1  )  -*  Tk  _ammo  ( 2  >  +Tk_ammo  <  3  > 

7390  N(124)=N( 126) 

7400  Tk_emp= (Atr k_cap-N < 125) ) /Truck_cap (4) 

7410  N ( 125) =0 

7420  END  IF 
7430  N ( 1 31 ) =0 
7440  N ( 1 32 ) =0 
7450  N ( 1 33 ) =0 
7460  N ( 135) =0 
7470  No_trks:  ! 

7480  'IF  Ammog=0  THEN  N< 1 25) =0 
7490  IF  N  < 1 46 )  >0  THEN  N(125)=0 
7500  IF  N  < 1 46) >0  THEN  N(105)=0 
7510  'IF  Fuel a=0  THEN  N(105'=o 
7520  RETURN 
7530  ! 

7540  !******************»*****»****#**#********»***»*»******************»»***»» 

7550  ' 

7560  Vehammo:  ' 

7570  FOR  J=1  TO  3 
7580  Tot _ammo < J ) =0 
7590  NEXT  J 
7600  T_-f  uel  =0 
7610  FOR  J=1  TO  70 

7620  T  ot  _ammo ( Wpn_t ype ( J ) ) = Tot _ ammo ( Wpn_type  <J>  )+Ammo_cap(J)*N(J)*N<l  18+Wpn 
ype ( J ) ) 

7630  T_t uel =T_t  uel +N < J ) HFuel _c  ap  <  J  >  *N ( 101 ) 

7640  NEXT  J 
7650  RETURN 
7660  ! 

7670  !*****$»*«** *.****t***tt**t**tt*tt*tttt*tt****t*tt*$*tt***t*************>*’ 

7680  ! 

7690  Halt:  ' 

7700  LOAD  "DIME "?<Di  sl-t 
7710  END 
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CHAPTER  11 


UTILITY  ROUTINES 


1.  PURPOSE. 

DIME  utility  routines  are  available  to  assist  in  the  creation  of  needed 
files,  in  listing  files  and  in  some  cases,  changing  data  values. 


2.  CREATE  ROUTINES. 

The  following  routines  are  used  preceding  the  use  of  game  initialization 
(PI).  These  are  necessary  before  any  DIME  game  operations  may  be  done. 

A.  "CR_NAME".  Initially  creates  and  blanks  the  unit  name  file, 
"NAMEFILE". 

B.  "CR_TOE".  Initially  creates  and  zeros  the  table  of  organization/ 
equipment  (TOE)  file,  "TOEFILE". 

C.  "CR_UNIT".  Initially  creates  and  zeros  the  unit  status  file, 
"UNITFILE". 


3.  "UNITFILE"  UTILITIES. 

The  following  routines  may  be  used  to  list  and  check  the  "UNITFILE", 
"NAMEFILE"  and  "TOEFILE"  after  they  have  been  built  in  PI. 

A.  "NAMEDUMP".  This  routine  lists  the  names  ("NAMEFILE")  of  the  400 
possible  units  created. 

B.  "STRENGTH".  This  routine  lists  the  total  of  each  21  systems  in  the 
191  Blue  units  and  209  Red  units.  These  totals  are  listed  from  both  the 
"UNITFILE"  and  "TOEFILE". 

C.  "EFFECTIVE".  This  routine  recalculates  effectiveness  totals  and 
percentages.  The  internal  system  effectiveness  data  may  be  changed  and 
recalculated  in  both  the  "TOEFILE"  and  "UNITFILE". 


4.  CREATE/ZEROING  ROUTINES. 

These  routines  may  be  used  when  initially  creating  the  game's  cumulative 
kill  files,  when  zeroing  is  necessary  before  the  beginning  of  a  game  or  when 
the  unit  status  report  (P8)  is  not  run  to  completion.  The  following 
routines  create  and/or  zero  files  which  contain  accumulated  kills  for  one 
complete  game  turn. 
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A.  "CR_KV".  Creates  and/or  zeros  the  killer/victim  file,  "KVFILE". 

B.  "CR_HELO".  Creates  and/or  zeros  the  helicopter  file,  "HELOFILE" . 

C.  "AIRPLANE".  Creates  and/or  zeros  the  air  defense  victim  files.  This 
is  the  same  routine  which  is  used  to  create  the  entire  air  defense  (P3)  data 
base.  The  two  files  consist  of: 

(1)  The  "RAIR_INF"  contains  the  number  of  Blue  victims. 

(2)  The  "BAIR__INF"  contains  the  number  of  Red  victims. 

D.  "CR_CHEM".  Creates  and/or  zeros  both  chemical  files  which  consist 
of: 

(1)  "BLCHMVCTM"  which  contains  the  number  of  Blue  victims. 

(2)  "RDCHMVCTM"  which  contains  the  number  of  Red  victims. 


5.  "OMNI"  DATA  FILE  UTILITIES 

The  following  routines  are  primarily  used  to  alter  the  data  values  in  files 
used  by  DIME.  In  addition,  they  may  be  used  to  create  new  data  files  and/or 
list  the  values  in  these  files.  All  "OMNI"  routines  may  be  executed  from 
the  "OMNI"  menu.  The  routines  are  described  below. 

A.  Ground  Combat  Files. 


(1)  "OMNI_ECF" 

files, 

(2)  "OMNI_SSKP" 

(3)  "0MNI_CAT" 

(4)  "OMNI_AMMO" 

(5)  "OMNI  FIRE" 


processes  the  expected  number  of  completed  firing 

processes  the  probability  of  kill  files, 
processes  the  pointer  to  the  P(K)  files, 
processes  the  ammunition  weight  files, 
processes  the  fire  distribution  files. 


B.  Helicopter  Files 

(1)  "HELOCREATE"  creates  helicopter  files. 

(2)  "HELOTGTPRG"  creates  helicopter  target  preference  files. 

(3)  "HELOFORM"  lists  helicopter  files. 
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C.  Main  Driver  Files. 

(1)  "OPERATION"  processes  operational  mission  template  files. 

(2)  "AMMO" 

D.  Artillery  Files 

(1)  "LETHALAREA"  processes  lethal  area  files. 

(2)  "FIREDELVRY"  processes  fire  delivery  files. 

E.  Infantry  Files. 

(1)  "FIREPOWER"  processes  firepower  scores  files. 

F.  Projectile  Guided  Missile  (PGM)  Files. 

(1)  "PGMDATAPRG"  processes  PGM  files. 

G.  Air  Attack/Air  Defense  Files. 

(1)  "AIRPLANE"  processes  the  following: 

(a)  Air  ingress/egress  profile  files. 

(b)  Air  strike  profile  files. 

(c)  Unit  area  template  files. 

(d)  Weapon  load  template  files. 

(e)  Air  mission/target  priority  files. 

(f)  Initializes  air  and  target  loss  files. 

H.  Declassification  Files.  In  previous  versions  of  the  DIME  model,  data 
was  contained  in  data  statements.  These  data  are  now  contained  in  data 
files.  The  following  utility  programs  are  used  to  process  these  files. 

(1)  "AMMOCAPdc"  processes  ammunition  capacity  files. 

(2)  "FUELCAPdc"  processes  fuel  capacity  files. 

(3)  "SYSEFFdc"  processes  system  effectiveness  files. 

(4)  "WPNTYPdc"  processes  weapon  type  files. 

(5)  "AMMOUSEdc"  processes  ammunition  use  files. 

(6)  "FUELUSEdc"  processes  fuel  use  files. 
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(7)  "TRUCKCAPdc"  processes  truck  capacity  files. 

(8)  "TOTPLOSSdc"  processes  total  probability  of  loss  files. 

(9)  "FRACDISMdc"  processes  dismounted  fraction  files. 

(10)  "AMMOWTdc"  processes  ammunition  weight  files. 

(11)  "BASICLDdc"  processes  basic  load  files. 

(12)  "ARTYRATEdc"  processes  artillery  rate  files. 

(13)  "ARTYWTdc"  processes  artillery  weight  files. 

(14)  "FMASKdc"  processes  indirect  fire  mask  files. 

(15)  "DFMASKdc"  processes  direct  fire  mask  files. 

(16)  "DSSTARTdc"  processes  start  range  for  direct  fire  files. 

(17)  "ARTYALOCdc"  processes  artillery  allocation  files. 

(18)  "MINEFRCTdc"  processes  mine  fraction  files. 

(19)  "CONVERTDdc"  processes  defender  loss  coefficient  files. 

(20)  "CONVERTAdc"  processes  attacker  loss  coefficient  files. 

(21)  "AREABANDdc"  processes  area  band  files. 

(22)  "DISPMASKdc"  processes  dispersion  mask  files. 

(23)  "TGTMASKdc”  processes  target  mask  files. 

(24)  "PSNLPOSTdc"  processes  personnel  pasture  files. 

(25)  "TLEdc”  processes  target  location  error  files. 

(26)  "ROUNDWTdc"  processes  round  weight  files. 

(27)  "AMWTPPdc"  processes  ammunition  weight  per  round  files. 

(28)  "IROFdc"  processes  integer  rate  of  fire  files. 

(29)  "SENSORdc"  processes  sensor  files. 

(30)  "TGTVALSdc"  processes  target  values  files. 

(31)  "SSKPdc"  processes  single  shot  kill  probability  files. 

(32)  "TGTMASKldc"  processes  target  mask  files. 


11-4 


(33)  "DUSTABRTdc"  processes  probability  of  dust  abort  files. 

(34)  "CLGPMASKdc"  processes  cannon  loaded  guided  projectile  files. 

(35)  "PROBDESGdc"  processes  probability  designator  files. 

(36)  "SSKPCLGPdc"  processes  single  shot  kill  probabilities  for  cannon 
loaded  guided  projectile  files. 


6.  OFF-LINE  LOSS  ASSESSMENT  (P6). 

A.  This  routine,  available  through  the  DIME  menu,  may  be  used  to  create 
losses  to  units  separate  from  the  attrition  calculations  of  air  attack/air 
defense  (P3),  ground  combat  (P4),  and  chemical  (P5). 

B.  In  order  to  cause  attrition  through  this  off-line  loss  assessment, 
the  following  items  must  be  identified: 

(1)  The  unit  number  being  assessed. 

(2)  The  killing  category  (direct  fire,  indirect  fire,  precision  guided 
munitions,  attack  helicopters,  infantry,  mines,  chemical,  and  air  attack/air 
defense) . 

(3)  The  system  number  (1-70). 

(4)  The  amount  of  losses  to  the  particular  system  in  a  specific  unit. 

C.  Included  in  the  loss  with  the  systems,  ammunition  and  fuel  losses  are 
calculated  for  the  systems. 


7.  CODE. 

Listings  for  the  utility  routines  (except  OMNI)  may  be  found  in  Tables  11-1 
through  11-10.  A  listing  of  the  P6  code  appears  in  Table  11-11. 
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Table  11-1. 


program 


"CR  NAME" 


t 


i 

> 

i 

1 


10 

20 


PROGRAM  :  CRNAME 


DIMP  V5 . n  -  MAR  lRBo 


40 
50 
60 
7o 
80 
90 
1  00 
1  10 
1 20 
1  70 
1  40 
150 
1  60 
1  70 


OPTION  BASE  1 
DIM  M4C161 
PRINT  CHR*<12> 

REPEAT 

INPUT  "  <  CR  )  CREATE  OR  (  IN)  IN  I  T  I AL  I  ZE  ‘  NAMEF  I LE  ’  .  AS 

UNTIL  A4="CR"  OR.  A%  =  "  IN“ 

IF  A*="CR"  THEN 

CREATE  BDAT  "NAMEFILE: HP9134. 701 . 0" . 400. 20 
PRINT  TABXY (2.2) : "NAMEFILE  CREATED." 

END  IF 

PRINT  TABXY(2. 4) ; "INITIALIZING  NAMEFILE  <400  RECORDS)" 
ASSIGN  li'Pnome  TO  "  NAMEF  I  LE :  HP9 1 34 . 701  .  O” 

M*=" UNUSED 

FOR  Recnum=l  TO  400 


180  OUTPUT  SPname. Recnum; M* 

190  IF  Recnum  MOD  10=0  THEN  PRINT  TABXY <2. 7) : Recnum: "  ..." 

200  NEXT  Recnum 

210  PRINT  TABXY <2. 10) : "NAMEFILE  INITIALIZED.” 

220  ASSIGN  ij'pname  TO  * 

-  PRINT  TABXY  <2.  17)  : CHR*  <  130)  INSERT"  : CHR*  <  128)  :  "  OMNI  MENU  DISK 

PESS  ENTER..." 

240  INPUT  "".A* 

250  LOAD  "OMN  I  _MENIJ" 

260  END' 


THEN  F 
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Table  11-2.  "CR_TOE  program 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
RESS 
260 
270 
280 


'  PROGRAM  ;  CR_TOE  DIME  05.0  -  MAR  1986 

I 

OPTION  BASE  1 
DIM  U ( 72 ) 

PRINT  CHR*  < 1 2 ) 

REPEAT 

INPUT  "<CR> CREATE  OR  ( IN) IN  I T I AL I ZE  ' TOEF I LE ' ?" . A* 

UNTIL  AS="CR"  OR  A*="IN" 

IF  AS="CR"  THEN 

CREATE  BDAT  "TOEFILE: HP9134. 701 , O" . 400. 576 
PRINT  TABXY <2. 2>; "TOEFILE  CREATED.  " 

END  IF 

PRINT  TABXY<2,  4) : "INITIALIZING  TOEFILE  (400  RECORDS)" 

ASSIGN  G‘Ptoe  TO  "TOEFILE:  HP9134.  701 . 0" 

FOR  1=1  TO  72 
U  (  I  )  =0 
NEXT  I 

FOR  Recnum=l  TO  400 

OUTPUT  li'Ptae.  Recnum: U  ( *  > 

IF  Recnum  MOD  10=0  THEN  PRINT  TABXY ( 2. 7 ); Recnum:  ”  .  .  .  " 

NEXT  Recnum 

PRINT  TABXY<2. 10) : "TOEFILE  INITIALIZED." 

ASSIGN  li’Ptoe  TO  * 

PRINT  TABXY  <2. 17) : CHR*  < 130) : " INSERT" ; CHR*  < 128) : "  OMNI  MENU  DIS)  .  THEN 
ENTER. . . " 

INPUT  "".A* 

LOAD  "OMNI  MENU" 

END' 


Table  11-3.  CR  UNIT 


program 


10  • 

20  !  PROGRAM  :  CR_UNIT  DIME  V5.0  -  MAR  1 986 

30  1 

40  OPTION  BASE  1 

50  DIM  N ( 1 50 ) 

60  PRINT  CHRt<12) 

70  REPEAT 

80  INPUT  " (CR) CREATE  OR  <  IN) IN  I T I AL I ZE  ’ UNI TF ILE’ ?" . A* 

90  UNTIL  At="CR"  OR  At="IN" 

100  IF  At="CR"  THEN 

110  CREATE  BOAT  "UNITFILE: HP9134, 701 . 0" . 400. 1200 

120  PRINT  TABXY <2, 2) ; "UNITFILE  CREATED.  " 

130  END  IF 

140  PRINT  TABXYC2, 4) ; "INITIALIZING  UNITFILE  (400  RECORDS)" 

150  ASSIGN  E‘Punit  TO  "UNITFILE:  HP9134.  701 , 0" 

160  FOR  1=1  TO  150 

170  N  < I ) =0 

180  NEXT  I 

190  FOR  Recnum= 1  TO  400 

200  OUTPUT  G'Puni  t .  Recnum:  N  <  * ) 

210  IF  Recnum  MOD  10=0  THEN  PRINT  TABX Y ( 2. 7 ) ; Recnum:  "  ..." 

220  NEXT  Recnum 

230  PRINT  TABXY (2. 10) : "UNITFILE  INITIALIZED." 

240  ASSIGN  i?Pun i  t  TO  * 

250  PRINT  TABXY (2.  17) : CHR*  < 130) ; " INSERT" : CHR*  <128):"  OMNI  MENU  DISK.  THEM  P 

RESS  ENTER. . . " 

260  INPUT  "".At 

270  LOAD  "OMNI  MENU" 

280  END' 
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Table  11-4.  "NAMEDUMP"  program 


1 0 

20  1  PROGRAM  :  NAMEDUMP  DIME  V5.0  -  MAR  1906 

30  ! 

40  OPTION  RASE  1 

50  DIM  A* (400) C 163 

60  PRINT  CHRS (12) 

70  PRINT  TABXY (2,2) ; "READING  NAMEFILE" 

80  ASSIGN  li'Pname  TO  "NAMEFILE:  HP9134 , 701 . O" 

90  FOR  Recnum=l  TO  400 

10O  ENTER  GPriame,  Recnum:  A*  (Recnum > 

110  NEXT  Recnum 

120  ASSIGN  C-Pname  TO  * 

1 30  ! 

140  PRINT  TARXY<2. 4) s "PRINTING  NAMEFILE" 

150  PRINTER  IS  702 

160  ! 

170  PRINT  CHRS (10) 

180  PRINT  TAB (10) 5 "NAMEFILE  VALUES  (400  RECORDS) 

190  PRINT  CHRS (10) 

200  FOR  1  =  1  TO  400 

210  IF  I  MOD  50=1  AND  I>1  THEN 

220  PRINT  CHRS (12) 

230  PRINT  CHRS (10) 

240  PRINT  TAB < 10) ; "NAMEFILE  VALUES  (continued)  " 

250  PRINT  CHRS (10) 

260  END  IF 

270  PRINT  TAB (15): 

280  PRINT  USING  "DDD, 4A, #" : I : "  -  " 

290  PRINT  AS ( I ) 

300  NEXT  I 

310  PRINT  CHRS (12) 

320  PRINTER  IS  1 

330  PRINT  TABXY (2, 10) : "  DONE  PRINTING.” 

340  STOP 

350  END 1 
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V* 


Table  11-5.  "STRENGTH"  program. 


PROGRAM  :  STRENGTH 


DIME  5.0  -  1986 


OPTION  BASE  1 

DIM  U < 150) , T  < 72) ,  W  <70) , N (70) ,D<70) , Sys* [ 3503 . Rsys*C350 3 , T*  C7  3 
Sys*tl, 1253="DF  FAV-TM551  FAV40HMV-GDF  DRAGNLAW  DF  CMD-VDF 
DF  DF  HMV40DF-ICDF-ICDF-ICDF- I CARTY  ARTY  ARTY  ARTY  ARTY  " 

Sys*C 126, 2503=“ ARTY  ARTY  MORTRMORTRMORTRMORTRMLRSTMLRSTMLRSTMLRST I NF 
INF  INF  SARMSSARMSSARMSS ARMSSARMSSARMSS ARMSVULCNAVNGR I HAWK " 


DF 


INF 


10 
20 
30 

40 
50 
60 
F 

70 
INF 

BO  Sys*C251, 3503=" ADA  ADA  STINGADAHHF-TRKJ4TRKWATERCG0-TNATRKEWTRKEWTRKENGI 
OBSCEAVLB  P0N8RENGEQENGEQMATHEMATHEAATHE" 

90  Rsys*Cl, 1253="T55  DF  BMP73DF  BRDM3BRDM5AT-75AGS1 7T 12  CMD-VDF  DF 

DF  DF  DF  BMPATBTR  DF- I CDF- I CDF- I CARTY  ARTY  ARTY  ARTY  ARTY  " 

100  Rsys*C 126, 2503="ARTY  ARTY  MORTRMORTRMORTRMORTRMRL  MRL  MRL  MRL  INF  INI 
INF  INF  INF  SARMSSARMSSARMSSARMSSARMSSARMSSARMSZSU-XSA-1 3SA-6  " 

110  Rsys*C251, 3503  =  “ ADA  ADA  SA-1 4ADAHHF-TRKJ4TRKWATERCG0-TNATRKEWTRKEWTRKENI 

R  OBSCEAVLB  PONBRENGEQENGEQMATHEMATHEAATHE" 

120  ASSIGN  @Pu  TO  "UNITFILE: HP9134. 701 " 

ASSIGN  BPt  TO  "TOEFILE: HP9134, 701 " 

INPUT  "ENTER  GAME  TIME" , TS 
PRINTER  IS  702 
RESTORE  180 
READ  W(») 

DATA 


130 
140 
150 
160 
170 
180 
1 90 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


DATA  - 
DATA  - 
DATA  - 
DATA  - 
DATA  - 
DATA  - 
Side** 


'BLUE 

BLUE" 

GOSUB  Prt_pg_hdrs 
FOR  1=1  TO  191 

ENTER  @Pu , I ; U  <  *  > 

ENTER  t?Pt,  Is  T (*) 

IF  U (82) =0  THEN  350 
FOR  J  =  1  TO  70 
D(J)=D(J)+T(d> 

IF  U (79) >. 3999  THEN  N ( J > =N < J ) +U ( J ) 

NEXT  J 
NEXT  I 

FOR  J=1  TO  70 

IF  J=55  THEN  GOSUB  Prt_pg_hdrs 
Num=Num+N< J) *W(J) 

Den=Den+D ( J ) *W  <  J ) 

PRINT  USING  "20X.3D.5X, 5A, 

N ( J ) =0 
D  < J  >  =0 
NEXT  J 

IF  Den<  >0  THEN  Be-f  -f  =Num/Den 
X=Num 

PRINT  USING  "18X, 15A,3X,9D,3X.9D": "WEIGHTED  TOTALS" , Num. Den 


iX, 7D, 5X. 7D" : J, Sys*C (J-l >  *5+1 ,  J*53  ,  N  < J ) . D ( J) 
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Table  11-5.  "STRENGTH"  program. 


PRINT  USING  "18A, 3X,D. 3D": "BLUE-EFFECTIVENESS". BeFF 
Si de*= "  RED" 

GOSIJB  Prt_pg_hdrs 

Num=0 

Den=0 

RESTORE  540 
READ  W(*> 

DATA 

DATA  1  •  1  ,  — ,  — ,  — .  « 

DATA 

DATA  .  ,  ,  ,  — ,  j “j  ,  — , 

DATA  ,  — ,  — ,  ,  —  j  — 

DATA  j  .  — ,  .  ,  ,  — ,  ,  . 

DATA  'RED 

FOR  1=192  TO  400 
ENTER  li'Pu.  I ;  U  ( * ) 

ENTER  i?Pt ,  I ;  T  <  *  > 

IF  U (82) =0  THEN  690 
FOR  J=1  TO  70 
D(J)=D(J)+T(J) 

IF  U  ( 79 )  >.  3999  THEN  N  < J  >  =N ( J  >  +U ( J ) 

NEXT  J 
NEXT  I 

FOR  J  =  1  TO  70 

IF  J=55  THEN  GOSUB  Prt_pg_hdrs 
Num=Nu(n-t-N  ( J  >  *W  ( J  ) 

Den  =  Den+D ( J  >  *W ( J ) 

PRINT  USING  "20X,3D,5X,5A,5X,7D,5X,7D"s J,Rsys*C < J-l > *5+1 . J*5D . N< J) . t 
NEXT  J 

PRINT  USING  "18X, 15A,3X,9D,3X,9D": "WEIGHTED  TOTALS” . Num. Den 

IF  DenOO  THEN  ReFF=Num/Den 

Y=Num 

PRINT  USING  "18A.3X.D.3D"; "  RED-EFFECTI VENESS" . ReFF 
PRINT 

PRINT  USING  "31A, 2D. 2D" ; "CURRENT  FORCE  RATIO  RED: BLUE  =  ";Y/X:":1" 
PRINTER  IS  1 

PRINT  "DO  YOU  WANT  TO  RUN  1)  EFFECTIVE?" 


PRINT  "  2  >  ARMY?" 

PRINT  "  3)  DIME"’" 

INPUT  X 

IF  X  =  1  THEN  LOAD  "EFFECT  I VE : HP9 1 34 , 70 1 " 

IF  X=2  THEN  LOAD  "ARMY: HP9134, 701 " 

IF  X=3  THEN  LOAD  "DIME: HP91 34, 701 " 

Prt_pg_hdrs:  ! 

PRINT  USING  "i?,#" 

PRINT  USING  "20X, 30A, 7A": "STRENGTH  REPORT  FOR  GAME  TIME  ",T* 
PRINT  USING  "//,38X,6A,7X.5A"; "ACTIVE", "TOTAL" 

PRINT  USING  "4A. 1 X.9A, 6X, 3A. 6X, 5A.3X, 8A, 5X, 7A" : Si det.  "STRENGTH: " 
,  "UNITFILE", "TOEFILE" 

RETURN 

END 
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Table  11-6.  "EFFECTIVE"  program. 


I 

► 

i> 


1 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1  10 
120 
130 
1  40 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 


•  PROGRAM  :  EFFECTIVE 


DIME  5.0  -  MAR  1986 


OPTION  BASE  1 

!  THIS  PROGRAM  WILL  LOOK  AT  THE  UNIT '  S  EFFECTIVENESS  AND  PRINT 
!  OUT  THE  PERCENTAGE. 

DIM  U  < 150) , T (72) , M*C 16  3 

ASSIGN  (?Pu  TO  "UN I TFILE :  HP9 134,  701  " 

ASSIGN  6'Pt  TO  "TOEFILE: HP9134, 701  “ 

ASSIGN  li'Pname  TO  “NAMEFILE:  HP9134,  701  " 

INPUT  "WHAT  IS  THE  GAME  TIME  ” , X 

INPUT  "PRINT  TO  SCREEN  OR  PRINTER (S/P> ", S* 

PRINTER  IS  1 
IF  S*="P"  THEN 
PRINTER  IS  702 
PRINT  USING  "8,#" 

GOTO  170 
END  IF 

IF  S*<>"S"  THEN  GOTO  90 

PRINT  "*******************  BLUE  UNIT  EFFECTIVENESS  **********  TIME  ":X; 
PRINT  " 

PRINT  "  ACTIVE  INACTIVE" 

PRINT  " 


FOR  1=1  TO  191 

ENTER  i?Pu .  I ;  U  ( * ) 

ENTER  f?Pt.  I  ;  T  <*) 

ENTER  (i'Pname,  I  ;  M* 

IF  M*="UNUSED"  OR  M*=“  "  THEN  440 

IF  U (821=1  OR  U (82) =2  THEN 
U_790=DRQUND  <U (79) ,2) 

IF  U  790>=. 8  THEN 

PRINT  USING  "3D.5X, 16A.3X.D.2D": I.M*.U_790 
GOTO  440 
END  IF 

IF  U_790>=. 6  THEN 

PRINT  USING  "3D, 5X , 16A , 10X.D.2D"; I. MS, U_790 
GOTO  440 
END  IF 

IF  U_790>=. 4  THEN 

PRINT  USING  "3D,5X,16A,20X,D.2D": I.M*,U_790 
GOTO  440 
END  IF 

IF  U_790< . 4  THEN 

PRINT  USING  "3D, 5X, 16A, 30X, D. 2D, 3A" : I . M*. U_790. " ***" 

END  IF 
END  IF 
NEXT  I 
PRINT  " 

PRINT  CHRS (12) 

PRINT  " 

PRINT  "********************  RED  UNIT  EFFECTIVENESS  **********  TIME  ";X: 
PRINT  " 


"  * 
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500  PRINT  "  ACTIVE  INACTIVE" 

510  PRINT  " 

520  FOR  1=192  TO  400 
530  ENTER  ©Pu ,  I ;  U  <  *  > 

540  ENTER  & Pt ,  I ;  T  <  *  > 

550  ENTER  i?Pname,  I ;  MS 

560  IF  MS=" UNUSED"  OR  M*="  "  THEN  750 

570  IF  U (82) =1  OR  U<82)=2  THEN 

580  U_790=DROUND(U(79) ,2) 

590  IF  U_790>=. 8  THEN 

600  PRINT  USING  "3D. 5X . 1 6A. 3X . D. 2D" : I , MS , U_790 

610  GOTO  750 

620  END  IF 

630  IF  U_790>=. 6  THEN 

640  PRINT  USING  "3D. 5X , 16A. 10X . D. 2D" ; I .  M*.  U  790 

650  GOTO  750 

660  END  IF 

670  IF  U_790>=. 4  THEN 

680  PRINT  USING  "3D, 5X . 1 6A, 20X . D. 2D" : I , MS , U_790 

690  GOTO  750 

700  END  IF 

710  IF  U_790< . 4  THEN 

720  PRINT  USING  "3D. 5X . 16A. 30X , D. 2D, 3A" : I . MS, U  790. " ** * " 

730  END  IF 

740  END  IF 

750  NEXT  I 
760  PRINTER  IS  1 
770  PRINT  USING  "(?" 

780  PRINT  "DO  YOU  WANT  TO  RUN  DARMY'”’ 

790  PRINT  “  2)  STRENGTH"”' 

800  PRINT  "  3)  DIME"”' 

810  INPUT  X 

820  IF  X=1  THEN  LOAD  " ARMY : HP91 34 . 701 " 

830  IF  X=2  THEN  LOAD  "STRENGTH: HP91 34 . 701 " 

840  IF  X=3  THEN  LOAD  "DIME: HP9134. 701 " 

850  END 


Table  11-7.  "CR_KV"  program 


10 

20  !  PROGRAM  :  CR_KV  OMNI  05. 0  -  MAR  1986 

30  ! 

40  OPTION  BASE  1 

50  DIM  Kv_data <8. 70) 

60  PRINT  CHR* (12) 

70  REPEAT 

80  INPUT  "CREATE  OR  INIT  THE  KV  FILE <CR/ IN) ?" . A* 

90  UNTIL  A*="CR"  OR  A*="IN" 

100  IF  A*="CR"  THEN 

110  CREATE  BDAT  "KVFILE: HP9 1 34 . 701 . 0" , 2. 1 360 

120  PRINT  TABXY (2,2) ; "CREATING  KVFILE  (2  RECORDS)" 

130  END  IF 

140  PRINT  T AB XY (2,4) ; "INITIALIZI NS  KVFILE" 

150  ASSIGN  li'Path  TO  "KVFILE:  HP9134, 701 .  O" 

160  FOR  1  =  1  TO  8 

170  FOR  J=1  TO  70 

180  Kv_data < I , J ) =0 

190  NEXT  J 

200  NEXT  I 

210  FOR  Recnum= 1  TO  2 

220  OUTPUT  li'Path .  Recnum;  Kv_data  <  *• )  ,  END 

230  PRINT  TABXY (2, 7) ; Recnum; "  .  .  .  " 

240  NEXT  Recnum 

250  PRINT  TABXY <2. 10) ; "KVFILE  INITIALIZED." 

260  ASSIGN  li'Path  TO  * 

270  PRINT  TABXY <2,  17) : CHR* (130) ; "INSERT" ; CHR* (128) : "  OMNI  MENU  DISK.  THEN 

RESS  ENTER..." 

280  INPUT  "".A* 

290  LOAD  "OMN I _MENU” 

300  END  ' 


Table  11-8.  "CR  HELO" 


program 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1  10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
RESS 
280 
290 
300 


‘  PROGRAM  :  CR_HELO  DIME  05.0  -  MAR  1986 

I 

OPTION  BASE  1 
DIM  Hel  o_dat a ( 3, 6) 

PRINT  CHRS (12) 

REPEAT 

INPUT  " <CR) CREATE  OR  < IN) INI T I AL I ZE  ’ HELQF ILE' ?" . At 
UNTIL  A*«"CR"  OR  A*="IN" 

IF  AS="CR"  THEN 

CREATE  BDAT  "HELOF ILE: HP9134. 701 , 0" . 2.  1 44 
PRINT  TABXY (2, 2) ; "CREATING  HELOFILE  <2  RECORDS)" 

END  IF 

PRINT  TABXY(2,  4) ; "INITIALIZING  HELOFILE" 

ASSIGN  ePhelo  TO  "HELOFILE: HP9134, 701 .O" 

FOR  1*1  TO  3 

FOR  J=1  TO  6 

Hel o_data < I , J ) =0 
NEXT  J 
NEXT  I 

FOR  Recnum* 1  TO  2 

OUTPUT  (?Phel  o.  Recnum;  Hel  o_data  <  *  ) 

PRINT  TABXY (2, 7) ; Recnum: "  ..." 

NEXT  Recnum 

PRINT  TABXY <2. 10) : "HELOFILE  INITIALIZE." 

ASSIGN  PPhelo  TO  * 

PRINT  TABXY (2, 17) ; CHR* ( 130) : " INSERT " ; CHR* ( 1 28)  :  "  OMNI  MENU  DISK. 
ENTER. . . " 

INPUT  " " , A< 

LOAD  "OMNI  MENU" 

END1 


THE 


Table  11-9  "AIRPLANE’ 


program 


10  1 

20  !  PROGRAM  :  AIRPLANE  OMNI  V5.0  -  MAR  1986 

30  1 

40  !  THIS  IS  THE  UTILITY  PROGRAM  FOR  BUILDING  AND  MAINTAINING  THE  AIR  ATTACH  / 

50  !  AIR  DEFENSE  DATABASE.  THIS  PROGRAM  WAS  CODED  BY  STEVE  ARRINGTON  AND  CINDY 
60  !  JAHNKE  AND  LAST  CHANGED  BY  JIM  LUNN  ON  09  AUG  S4. 

70  ! 

80  J NOTE:  THIS  DOCUMENT  IS  PROTECTED  BY  PROVISIONS  UNDER  AR  600-50 

90  !  UNTIL  PUBLICATION  IN  THE  PUBLIC  DOMAIN  -  "All  DA  Personnel  will 

100  '  retrain  -from  releasing  to  an  individual  or  business  concern  or 

110  !  its  representati ves  any  knowledge  such  persons  may  possess  or 

120  !  have  acquired  in  any  way  concerning  proposed  acquisition  or 

130  !  purchases  by  any  contracting  activity  of  DA  ...  .  Such 

140  !  information  will  be  released  to  all  potential  contractors  as 

150  (  nearly  simultaneous  as  possible  ....  Such  information  will 

160  !  be  provided  in  accordance  with  existing  authorized  procedures 

170  !  and  only  in  connection  with  the  necessary  and  proper  discharge 

180  !  of  official  duties." 

190  ! 

191  ! - 

192  !  THIS  CODE  LISTING  ONLY  CONTAINS  THE  PART  NECESSARY  TO  INITIALIZE 

193  !  THE  ACCUMULATIVE  KILL  FILES.  THE  REST  OF  THE  CODE  DEALING  WITH 

194  !  THE  ENTIRE  DATABASE  CAN  BE  FOUND  IN  VOLUME  I  1 1  OF  THE  DIME 

195  1  DOCUMENTATION. 

196  ! -  - 

200  OPTION  BASE  1 

210  DIM  Area  (10,4)  !  CONTAINS  UNIT  AREAS  BASED  ON  10  UNIT  TYPES  AND 

220  !  4  MISSION  POSTURES 

230  DIM  Fit (7.8)  !  C0N1AINS  INGRESS/EGRESS  PROFILE  DATA 

240  DIM  FI t_i nf o (56 ) 1  CONTAINS  INGRESS/EGRESS  PROFILE  DATA 

250  DIM  Load* ( 3 ) C 1 4 7  !  CONTAINS  FILE  NAME  OF  STRIKE  PROFILES  (MAX  3) 

260  DIM  St k ( 28 , 8 )  !  CONTAINS  STRIKE  PROFILE  DATA 

270  DIM  Stk_info (224) !  CONTAINS  STRIKE  PROFILE  DATA 

280  DIM  Total s (51 ) !  CONTAINS  ACCUMULATION  LOSSES  FOR  AIR  ATTACK/AIR 

290  (  DEFENSE  MODULE 

300  DIM  Wts (72, 5)  !  CONTAINS  MI SS I ON /TARGET  WEIGHT  VALUES  BASED  ON 

310  !  23  TARGET  ELEMENTS  AND  5  MISSION  TYPES 

320  ! 

330  !tt****»»tttt*t*t*tt»t*X**t*t*tt$**ttttt*t***ttt»tt$t****tt***t************ 

340  ! 

350  Mai n_progr am:  '  UTILITY  PROGRAM  MENU 

360  • 

370  REPEAT 

380  PRINT  CHR* (12) 

390  PRINT  "AIRPLANE  -  AIR  DEFENSE  DATA  FROGRAM" 

400  INPUT  "SELECT  <  D ) D I SKETTE  OR  ( W>  W I NCHESTER  ?".An* 

410  UNTIL  An*="W"  OR  An*="D" 

420  IF  An*="W"  THEN 

430  Disk*=":HP913X. 701 " 

440  ELSE 

450  Di sk*= " " 

460  END  IF 
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program 


470 

< 

480 

Repeat _ma i nS=“ Y" 

490 

WHILE  Repeat_mainS="Y" 

500 

PRINT  CHR*  < 12) 

510 

PRINT  "  DIME  AIR  ATTACK/AIR  DEFENSE  i 

UTILITY  PROGRAM 

520 

PRINT 

530 

PRINT  "  MENU  : " 

540 

PRINT 

550 

PRINT  "  1  -  PROCESS  AIR  INGRESS/EGRESS 

PROFILE" 

560 

PRINT  "  2  -  PROCESS  AIR  STRIKE  PROFILE 

II 

570 

PRINT  "  3  -  PROCESS  UNIT  AREA  TEMPLATE 

•  1 

580 

PRINT  "  4  -  PROCESS  WEAPON  LOAD  TEMPLATE" 

590 

PRINT  "  5  -  PROCESS  AIR  MISSION/TARGET 

PRIORITIES" 

600 

PRINT  "  6  -  INITIALIZE  AIR  AND  TARGET 

LOSSES" 

610 

PRINT  "  7  -  EXIT" 

620 

INPUT  "SELECT  OPTION  : " , Mai n_opt i on 

630 

SELECT  Main  option 

640 

CASE  1 

650 

GOSUB  Pres  ing  egr 

660 

CASE  2 

670 

GOSUB  Prcs_air_stt: 

680 

CASE  3 

690 

GOSUB  Pres  area  tmp 

700 

CASE  4 

710 

GOSUB  Pres  wpn  load 

720 

CASE  5 

730 

GOSUB  Pres  tat  wt 

740 

CASE  6 

750 

GOSUB  Ini t_l osses 

760 

CASE  7 

770 

PRINT 

780 

FRINT  "  EXIT  UTILITY  PROGRAM." 

790 

STOP 

800 

END  SELECT 

810 

END  WHILE 

820 

1 

830  ! 

840  '.*************  t*****************************.******************.*****. ******** 
850  • 

860  Ini t_l osses:  !  REINITIALIZES  AIR/TARGET  LOSS  FILES  TO  ZERO 

870  ! 

880  GOSUB  Slct_color 

890  File*=Color*V_AIR_INF" 

900  PURGE  Fi  1  e*S<"  :  HP9 1 3X . 70 1 ” 

910  CREATE  BDAT  Fi  1  e*V  s  HP9 13X «  701 “ ,  1 , 408 

920  FOR  1=1  TO  51 

930  Totals* I > =0 

940  NEXT  I 

950  ASSIGN  ©Path  TO  Fi  1  e*.V  :  HP9 1 3X ,  701  " 

960  OUTPUT  ©Path , 1 ; Total s <* ) 

970  ASSIGN  ©Path  TO  * 

980  PRINT 


11-17 


Table  11-9  "AIRPLANE"  program 


990 
1 000 
1010 
1 020 
1 030 
1 040 
1 050 
1 060 
1 070 
1000 
1090 
1 1 00 
1  1 10 
1120 
1  1 30 
1  140 
1  150 
1160 
1  170 


PRINT  "FILE  "  jFi  le*V  :  HP913X  ,  701  :  "  HAS  BEEN  INITIALIZED  TO  ZERO" 

i 

RETURN 

■ 

I********************************************** ****** ***********»********. 

■ 

SI ct_col or :  !  SELECTS  BLUE  OR  RED  FORCE 

i 

REPEAT 

PRINT 

PRINT  "SELECT  (BL>  BLUE  OR  (RD)RED  FORCE  :  ": 

INPUT  Color* 

UNTIL  Col or*="BL“  OR  Color*="RD" 

PRINT  Color* 

I 

RETURN 

I 

I************************************************************************) 

END 
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Table  11-10.  CR_CHEW  program. 


10 

20  '  PROGRAM  :  CR_CHEM  DIME  V5.0  -  MAR  1906 

30  ! 


40 

50 
60 
70 
00 
90 
1  00 
1  10 
120 
1  30 
140 
150 
160 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
RESS 
260 
270 
280 


OPTION  BASE  1 
DIM  Chem (70) 

PRINT  CHR* (12) 

REPEAT 

INPUT  “  (CR)  CREATE  OR  <  IN)  I N IT  I AL  I  ZE  CHEMICAL  FILES'’"  .  A* 
UNTIL  A*="CR"  OR  A*="IN" 

IF  AS="CR"  THEN 

CREATE  BOAT  "BLCHMVCTM: HP9 1 34 . 701 . 0" . 1 . 560 
CREATE  BDAT  "RDCHMVCTM: HP9134. 701 . O" , 1 . 560 
PRINT  TABXY (2. 2) : "CHEMICAL  FILES  CREATED." 

END  IF 

PRINT  TABXY<2, 4) ; "INITIALIZING  CHEMICAL  FILES  <1  RECORD/FILE)" 
FOR  1=1  TO  70 
Chem ( I ) =0 
NEXT  I 

ASSIGN  G-Pchem  TO  "BLCHMVCTM:  HP9134. 701 , 0" 

OUTPUT  G'Pchem,  1 ;  Chem  (  *  > 

ASSIGN  C-Pchem  TO  "RDCHMVCTM:  HP9 1 34 . 701 . 0" 

OUTPUT  i?Pchem,  1  ;  Chem  <  *  ) 

ASSIGN  t?Pchem  TO  * 

PRINT  TABXY (2, 10)  : "CHEMICAL  FILES  INITIALIZED." 

PRINT  TABXY  <2,  17) : CHR*  < 1 30) : " INSERT " : CHR* < 1 28 >  :  "  OMNI  MENU  DIS) 
ENTER. . . " 

INPUT  " " . AS 
LOAD  "OMNI _MENU" 

END1 


THEN 
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Off-line  assessment  program  code 


10  '  1  '  "P6“  ALLOWS  OFF-LINE  INPUT  OF  LOSSES  TO  UNITS  BY  SEPARATE  t  ILLEF 

20  !  CATEGORY.  CODED  BY  MAJ  REISCHL.  DPNS  ANAL  BR.  CAORA  (A/V  552-461' 

30  !  THIS  PROGRAM  WAS  LAST  UPDATED  ON  11  JAN  1984  BY  CINDY  JAHNh  E. 

40  ! *****»*******»**********»»***t******************************»*»*»*»*x» 

50  1  EXPANDED  VERSION  —  JUNE  9.  1986  —  BY  OAO  CORP. 

51  1  DECLASSIFIED  —  AUG  7.  1986  —  BY  OAO  CORP.  **  DC  ** 

60  OPTION  BASE  1 

70  DIM  Kvdata <8.70),  Loss  <70) , Sys (70) , N  < 1 50 ) . Loss_al 1  owed (70) .5(1 50) 

80  DIM  Svs_e-ff  (2,70)  ,T1  <28>  .Air  Joss<72) 

90  INTEGER  I , J  ,  K . System, Ki 1 1 er 

91  Dcdi  st:*=“:HP9134, 701 ,0"  '  **  DC  ** 

100  ASSIGN  E'Umtpath  TO  "UNITFILE:  HP9134. 701 " 

110  ASSIGN  i?K  vpath  TO  "KVFILE:  HF'9134,  701  " 

1 20  ' 

121  '  **  DC  *» 

1  22 

130  ASSIGN  epsyse-f-f  TO  "SYS_EFF"S<Dcdi  sk* 

140  ENTER  i?Psysef  t  ,  1  ;Sys_et  f  (*) 

150  ASSIGN  6'PsyseTT  TO  * 

160  1  **  END  DC  ** 

290  PRINTER  IS  1 

300  ' 

310  '  START  INPUT  PORTION 

320  Start_assess: PRINT  USING  "9  . 25X . 26A" : "OFF-L I NE  UNIT  ASSESSMENT" 

330  INPUT  "ENTER  #  OF  UNIT  TO  BE  ASSESSED  <999=ST0P) :  ".I 
340  IF  1=999  THEN  Un ] t s_ a  1 1 .done 
350  IF  KO  OR  1)400  THEN  320 

360 

370  '  READ  IN  UNIT  TO  BE  CHANGED 

380  ENTER  i?Un  i  t  pat  h .  I  ;  N  <  *  ) 

390  ' 

400  '  READ  IN  RED  OR  BLUE  KV  MATRIX 

410  IF  I'.  192  THEN 

420  ENTER  l?K  vpath  .  1 ;  Kv  data  <  *  ) 

430  Si de= 1 

440  ELSE 

450  ENTER  i*'k  vpath ,  2 :  K v_dat e  <  *  > 

460  Side=2 

470  END  IF 

480  FOR  J=1  TO  70 

490  Sys<J)=N(J; 

500  S ( J ) =N ( J ) 

510  NEXT  J 

520  * 

530  '  PRINT  OUT  CURRENT  LIST  AND  ASK  FOR  CHANGES 

540  Start_i nput : PRINT  " 

550  PRINT  "UNIT:  ".I 

560  PRINT  " 

570  PRINT  "SYSTEMS  AVAILABLE:  “ 

580  GOSUB  Pr  i  nt  _sys_oi.it 

590  INPUT  "«t  KILLER  CAT:  1-D/F  2-I/F  3-PGM  4-A/H  5-INF  6-MIN  7-CHM  R 

P  999-STOP". Ki  1 ler 
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600  IF  Killer =999  THEN  Unit_done 
610  IF  Kill er < 1  OR  Killer >8  THEN  590 
620  FOR  J=1  TO  70 
630  Loss(J>=0 

640  NEXT  J 

650  Put_in_loss: INPUT  "ENTER  LOSS  BY  SYS# ,  #LOST  (999 . 999=ST0P > :  System. No_l 

st 

660  IF  System=999  THEN  Stop_losses 

670  IF  System< 1  OR  System>70  OR  No_lost<0  THEN  650 
680  Loss (System) =No_l ost 
690  GOTO  Put_in_loss 
700  ! 

710  Stop_l osses:  !  SUBTRACT  LOSSES  AND  CHECK  FOR  ERRORS 

720  FOR  J=1  TO  70 

730  Temp_loss=0 

740  Temp_l oss=Sys ( J ) -Loss ( J ) 

750  IF  Temp_loss<0  THEN 

760  Loss ( J ) =Sys ( J ) 

770  Loss_sl 1  awed ( J ) =Sys ( J ) 

780  Sys ( J ) =0 

790  ELSE 

800  Sys ( J ) =Temp_l oss 

810  Loss_al 1  owed ( J ) =Loss ( J > 

820  END  IF 

830  NEXT  J 

840  FOR  J=1  TO  70 

850  S < J ) =Loss_al 1  owed ( J ) 

860  NEXT  J 
870  ' 

880  !  PRINT  OUT  CURRENT  FORCE  LEVEL  AND -UPDATE  KV  FILE 

890  PRINT  " 

900  PRINT  "LOSSES  ALLOWED:" 

910  GOSUB  Pr i nt _sys_out 
920  FOR  J=1  TO  70 
930  S ( J ) =Sys ( J ) 

940  NEXT  J 

950  FOR  J=71  TO  150 

960  S ( J ) =N ( J ) 

970  NEXT  J 
980  PRINT  " 

990  PRINT  "SYSTEMS  REMAINING:” 
lOOO  GOSUB  Pr l nt _sys_out 
1010  FOR  J=1  TO  70 

1 020  Kv_data (Ki 1  ler,  J) =Kv_dat a (Killer,J>+Loss_all owed ( J  > 

1030  NEXT  J 

1040  Umt_done:  INPUT  "DO  YOU  WISH  UNIT  ASSESSMENT  POSTED  TO  UNI  TF I  LE°  (Y  or  N 
"  .  QS 

1050  IF  QSO"Y"  AND  Q*<>"N"  THEN  1040 
1060  IF  Q4="N"  THEN 
1070  GOTO  Start_assess 

1080  ELSE 

1090  OUTPUT  li'Kvpath ,  Si  de;  Kv_dat  a  (  *  > 
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llOO  OUTPUT  ISUnitpath.  I;S<*> 

1110  ENTER  <?Uni  tpath .  I ;  S  <  *  > 

1120  GOSUB  Upd  sm(no_f uel 

1130  GOSUB  Upd'cbt _  et t 

1140  OUTPUT  l?Um  tpath. I;S(*) 

1 150  END  IF 

1160  PRINT  USING  "li',#" 

1170  GOTO  Start_assess 
1180  • 

1  190  ' 

1200  Uni ts_al 1 _done:  !  UNIT  ENTRY  COMPLETED 

1210  INPUT  "DO  YOU  WANT  AN  UPDATED  KILLER-VICTIM  MATRIX?  (Y  or  N)  ".04 
1220  IF  Q*<>"Y"  AND  Q*< >"N“  THEN  1210 
1230  IF  Q4="Y“  THEN  GOSUB  F'r  i  nt_kv_matr  i  >: 

1240  ASSIGN  li'Uni  tpath  TO  * 

1250  ASSIGN  6‘Kvpath  TO  * 

1260  GOTO  Halt 
1270  ! 

1280  < 

1290  1  ********************  END  OF  MAIN  PROGRAM  **************************** 

1 300  ! 

1310  ' 

1320  !**********#*******************************************#*************»*»»» 

1330  ! 

1340  Upd_ammo_tuel  :  ! 

1350  !  UPDATE  CARGO  TRUCKS 

1360  IF  S (58) <N (58)  AND  N  < 58 ) ;0  THEN 

1370  Tons_on_truck=N ( 123) /N (58) 

1380  S ( 123) =S (58 ) *Tons_on_truc k 

1390  IF  S<  123X0  THEN  S(123>=0 

1400  S  <  84 ) =S (58) 

1410  END  I F 
1420  ! 

1430  'UPDATE  FUEL 

1440  IF  S  <  55  >  <  N  <  55 )  AND  N(55)  O  THEN 
1450  Gal _on_truck=N ( 103) /N (55) 

1 460  S ( 1 05) =Gal _on_truc k  *S ( 55) 

1470  IF  S<  105X0  THEN  S(105)=0 

1480  S (85) =S (55) 

1490  END  IF 
1 500  1 

1510  RETURN 
1 520  1 

1530  I********************* *******  *********  A*******************************! 

1540  1 

1550  Upd_cbt _et t  :  1 

1560  Net  t =0 
1 570  Sett=o 
1580  FOR  Ietf=l  TO  70 

1  590  Set  t  =  Set  t  -*-S  ( let  t )  tSvs_elI  (Side.  I  pt  t  > 

1  600  Net  t  =Net  t  +N  (left)  *Svs  et  t  <  S  l  dp .  1  et  t  ) 

1610  NEXT  I et  f 
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1620  S  (79)  =  <Sef  f  /N<?P-f  >  *N  (79) 

1 630  ! 

1640  RETURN 
1 650  ! 

1 660  !*********  ************************  *****************************  »*****»> 

1670  ! 

1680  print_sys_out:  !  THIS  SBR  PRINTS  OUT  THE  SYSTEMS  LIST 

1690  ! 

1700  FOR  X=7  TO  70  STEP  7 

1710  PRINT  USING  Fmt 1 : X-6 . " : " . S ( X-6 > . X -5, ” : " . S < X-5) , X-4 , " : " . S ( X-4 > . X-3 . " : " . v 

X-3) , X-2, " , SCX-21  .  X-l  .  "  :  " .  S(X-1 >  .  X,  "  ,S(X) 

1720  NEXT  X 

1730  Fmt 1 : IMAGE  7 ( 2D.  1  A . 4D .  1 D . 2X > 

1740  ! 


1750  RETURN 


1760  ! 

1770  !  ***************************************************************** ***»*> 

1780  ! 

1790  Print_V;v_matr  l  >:  :  1  THIS  SBR  PRINTS  OUT  THE  CURRENT  KV  MATRIX 

1800  < 


1810 
1820 
1 830 
1840 
1850 
1860 
1870 
1880 


PRINT  USING 
PRINT  ■* 
PRINT  " 
PRINT  " 
PRINT 
PRINT  - 
PRINT 
PRINT  " 


TO  OBTAIN  AN  UPDATED  M 
KILLER-VICTIM  MATRIX  " 

PRINT-OUT 

RUN  OPTION  8  IN  DIME  MENU.  THEN  USE  THE  KV— F 1 LE  ONLY  OPTIC 


1890  PRINT  "  .  - " 

1900  PRINT  USING  "  / / / " 

1910  PRINT  “  PRESS  CONT  TO  RETURN  TO  THE  DIME  MENU" 

1920  PAUSE 
1930  RETURN 
1 940  1 

1 950  !  ************************  ********* ************************************** 

1960  1 

1970  Hal  t :  LOAD  "DIME:  HP9 1  34 , 701 '* 

1980  END 
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